【ArrayList活用】.NET COMコンポーネントを用いたVBScriptでの超高速データソート
レガシーシステムの深部、あるいはWindows管理者の日常的な自動化スクリプトにおいて、VBScript（Visual Basic Scripting Edition）は今なおしぶとく生き続けている。依存関係を排除し、OS標準の `cscript.exe` さえあれば動作するその身軽さは、コンパイルやランタイムのインストールが許されない閉じた環境において無類の強さを誇る。
しかし、VBScriptのネイティブな配列（`Array`）には致命的な欠落がある。「まともなソート機能がない」 という点だ。
VBScriptで配列を並べ替えようとすれば、バブルソートやクイックソートなどのアルゴリズムを自前で実装するか、あるいは不格好に冗長なレコードセット（ADODB.Recordset）のソート機能をハックするほかない。数千件を超えるデータを前にして自前ループのソートを回せば、CPUは無駄に焼き尽くされ、スクリプトは沈黙する。
この限界を鮮やかに突破する鍵が、.NET FrameworkのCOMCallableなクラス群、`System.Collections.ArrayList` のVBScriptからのインポートである。
今回は、この隠れた高速化手法のメカニズムと、実務で即座に使える極限まで最適化されたコードベースを提示する。
—
1. なぜネイティブ配列を捨て、ArrayListを選ぶのか
VBScriptの配列（`Dim arr(n)` や `Split` 関数の返り値）は、本質的にはCOMの安全配列（SafeArray）のラッパーである。これに対してVBScriptの言語仕様レベルでのソートメソッドは用意されていない。
もちろん、WSH（Windows Script Host）環境からPowerShellを呼び出すという手もあるが、プロセスの起動オーバーヘッド（約0.5秒〜数秒）が無視できない。高頻度で実行されるバッチ処理や、数万行のログ解析において、このオーバーヘッドは致命傷となる。
一方、`CreateObject(“System.Collections.ArrayList”)` を用いるアプローチには、以下の圧倒的なアドバンテージがある。
1. JITコンパイルによる高速処理: .NET Frameworkのマネージドコードとして実装されたソートアルゴリズム（Introspective Sort：クイックソート、ヒープソート、挿入ソートのハイブリッド）の恩恵を、COM経由でそのまま受けることができる。
2. 圧倒的なコード量の削減: 自前ソートロジックの実装ミス（境界値エラーや無限ループ）のリスクをゼロにできる。
3. 動的サイズ変更の優位性: 要素数が事前に確定していないストリームデータであっても、`Add` メソッドでシームレスに拡張できる。
—
2. 【実装】超高速ソート・実用スクリプト
以下のコードは、数万件の文字列・数値をVBScript上で瞬時に昇順・降順ソートし、メモリ管理まで完璧に考慮した実用スクリプトである。
Option Explicit
‘ ==============================================================================
‘ スクリプト名: FastArrayListSort.vbs
‘ 概要: .NET ArrayListを用いた超高速データソート＆メモリ最適化の実装例
‘ ターゲット: Windows Script Host (cscript.exe / wscript.exe)
‘ ==============================================================================
Sub Main()
Dim objList, i
Dim arrRawData
WScript.Echo “=== VBScript + ArrayList 高速ソートデモ ===”
‘ 1. テストデータの準備（あえてランダムな順序で10万件生成を想定）
‘ 実務ではファイル読み込みやDBからのフェッチ結果に置き換えてください
arrRawData = Array(“Tokyo”, “Osaka”, “Nagoya”, “Fukuoka”, “Sapporo”, “Sendai”, “Hiroshima”, “Kyoto”)
‘ 2. ArrayListオブジェクトの生成
‘ ※注意: .NET Framework 4.0以降がインストールされている環境が前提
On Error Resume Next
Set objList = CreateObject(“System.Collections.ArrayList”)
If Err.Number <> 0 Then
WScript.Echo “[致命的エラー] .NET FrameworkのCOM相互運用に失敗しました: ” & Err.Description
Exit Sub
End If
On Error GoTo 0
‘ 3. データのバルクインポート（Addメソッド）
‘ 大量データの場合はパフォーマンス維持のため、可能な限り一括処理を意識する
For i = LBound(arrRawData) To UBound(arrRawData)
objList.Add arrRawData(i)
Next
WScript.Echo “ソート前要素数: ” & objList.Count
‘ ————————————————————————–
‘ 4. 昇順ソート (Sort メソッド)
‘ ————————————————————————–
objList.Sort
WScript.Echo vbCrLf & “— 昇順ソート結果 —”
DumpArrayList(objList)
‘ ————————————————————————–
‘ 5. 降順ソート (Reverse メソッドとの組み合わせ)
‘ ArrayListには直接DescSortはないため、Sort後にReverseをかけるのが定石
‘ ————————————————————————–
objList.Reverse
WScript.Echo vbCrLf & “— 降順ソート結果 —”
DumpArrayList(objList)
‘ ————————————————————————–
‘ 6. メモリの明示的解放（極限のライフサイクル管理）
‘ ————————————————————————–
‘ COMオブジェクトおよび.NETオブジェクトの参照を切断
objList.Clear
Set objList = Nothing
WScript.Echo vbCrLf & “処理が正常に完了しました。”
End Sub
‘ ——————————————————————————
‘ 補助プロシージャ: ArrayListの内容をコンソールに出力
‘ ——————————————————————————
Sub DumpArrayList(ByVal targetList)
Dim item
For Each item In targetList
WScript.Echo ” -> ” & item
Next
End Sub
‘ メイン処理の実行
Main()
—
3. シニアエンジニアが知るべき「罠」とアーキテクチャの知見
この手法は極めて強力だが、レガシー環境や大規模システムに導入する際には、VBScript特有の型システムと.NETの相互運用における深い理解が必要となる。
① 型の不一致（Variantの呪縛）とバグの温床
VBScriptの変数はすべて `Variant` 型という極めて曖昧なコンテナである。ArrayListに数値を格納する際、VBScript側で文字列として扱われている値（例: `”10″` と `”2″`）が混入していると、文字列としての辞書順ソート（ASCIIコード順）が行われる。結果として `”10″` が `”2″` よりも前に来るというバグを生む。
- 対策: 数値ソートを厳密に行う必要がある場合は、VBScript側で `CDbl()` や `CLng()` を用いて明示的に型をキャストしてから `Add` する必要がある。
‘ 数値として正しくソートさせたい場合
objList.Add CDbl(rs.Fields(“Amount”).Value)
② .NET Frameworkの依存関係
`System.Collections.ArrayList` は、マシンにインストールされている .NET Framework（CLR）のCOMCallableWrapper機能に依存している。
- Windows 10 / 11 および Windows Server 2016以降の環境であれば、.NET Framework 3.5 / 4.x が標準で有効（または容易に有効化可能）であるため問題ない。
- ただし、極端に古い組み込み用Windows環境や、完全に .NET が排除されたミニマムなコンテナ環境では `CreateObject` が失敗する。環境構築の前提条件としてCLRの存在をドキュメント化しておくことが不可欠である。
③ ガベージコレクションとメモリの明示的解放
VBScriptのスクリプトエンジンは参照カウント方式（COMのAddRef/Release）でメモリを管理しているが、背後で動く.NETのマネージドオブジェクトは独自のガベージコレクション（GC）の管理下にある。
大量のデータを処理するバッチスクリプトにおいて、`Set objList = Nothing` だけでは即座にメモリが解放されず、ループ内でインスタンスを何回も生成するとメモリリークに似た肥大化現象を引き起こすことがある。
- 実践的知見: ループ内で使い捨てる場合は、ループの脱出前に必ず `objList.Clear()` を呼び出して内部の参照ツリーをクリアし、その後に `Set objList = Nothing` でCOM境界をまたいだ参照を切断すること。これにより、メモリフットプリントを極限まで低く抑えることができる。
—
総括
VBScriptは「過去の遺物」と揶揄されることが多い。しかし、OSの根幹に寄り添い、外部依存を極限まで嫌う現場において、その価値が色褪せることはない。
ネイティブの限界を嘆き、無駄な自前アルゴリズムを実装する時代は終わった。.NETの強力な資産である `ArrayList` をスマートに借用することで、レガシーなVBScript環境であってもモダンで高速なデータ処理パイプラインを構築することが可能となる。
現場の制約を技術力でねじ伏せる――これぞ、真のインフラエンジニアの流儀である。
