【VBScriptの真髄】WMI大量クエリにおける「参照リーク」を完全封印するメモリ管理の極意
VBScriptを「過去の遺物」と呼ぶ者は、この言語が持つOS直結のポテンシャルを理解していない。WMI (Windows Management Instrumentation) は、Windowsという巨大なOSの深淵を覗き込むための強力な武器だ。しかし、この武器は扱いを誤れば、たちまちメモリを食い荒らす「リークの温床」へと変貌する。
特に、`Win32_GroupUser` や `CIM_DataFile` のような、数千単位のインスタンスを生成するクエリを叩く際、安易なループ処理は長期間稼働する監視スクリプトを確実に死に至らしめる。
今日は、WMIのメモリ管理における「禁じられた知識」を共有しよう。
—
なぜ、VBScriptはメモリを解放できないのか
VBScriptはCOMベースの言語であり、内部的には参照カウンタ（Reference Counting）でオブジェクトの寿命を管理している。しかし、`SWbemObjectSet`のようなコレクションを扱う際、「イテレータの暗黙的な保持」や「循環参照に近い挙動」により、GC（ガベージコレクタ）が機能不全に陥ることがある。
特に監視スクリプトなどで `Set colItems = objWMIService.ExecQuery(…)` を繰り返すと、解放のタイミングを逸した参照がメモリ上に残り続け、Commit Charge（物理メモリ消費）は際限なく増大する。
—
極限のメモリ最適化：3つの鉄則
WMIクエリでメモリ肥大化を根絶するためには、以下の3つの流儀を徹底せよ。
1. コレクションを保持するな: `Set` で受け取ったオブジェクトセットは、即座にイテレートし、個別の要素以外は速やかに `Nothing` にする。
2. プロパティ取得の最適化: 不要なプロパティをすべて取得するな。`SELECT ` は悪である。必要なプロパティのみを射抜け。
3. 明示的な破壊（Destroy）: VBScriptのスコープを信用するな。`Set obj = Nothing` は必須の儀式だ。
—
【実装コード】安全な列挙とメモリ解放のテンプレート
これが、メモリリークを許さないための「真の構造」だ。
Option Explicit
‘ メモリリークを撲滅するためのWMIクエリ実行パターン
Sub ExecuteMemorySafeQuery()
Dim objWMIService, objItems, objItem
Dim strQuery
‘ 1. 名前空間の接続（WbemScripting.SWbemLocatorを使用するのがベストプラクティス）
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
‘ 2. 必要なプロパティのみを指定（は厳禁。メモリ消費量に直結する）
strQuery = “SELECT GroupComponent, PartComponent FROM Win32_GroupUser”
Set objItems = objWMIService.ExecQuery(strQuery, “WQL”, 48) ‘ 48 = wbemFlagForwardOnly + wbemFlagReturnImmediately
‘ 重要: 48 (wbemFlagForwardOnly) を指定することで、
‘ コレクションをカーソルとして扱い、メモリ上の全展開を防ぐ（これが極意だ）
If Not objItems Is Nothing Then
For Each objItem In objItems
‘ 処理：必要最小限のデータのみを抽出する
‘ ここで複雑なオブジェクト操作を行わないこと
WScript.Echo “Group: ” & objItem.GroupComponent
‘ 3. 個別のインスタンスを即時解放
Set objItem = Nothing
Next
End If
‘ 4. 親オブジェクトの完全解放
Set objItems = Nothing
Set objWMIService = Nothing
End Sub
‘ 呼び出し
ExecuteMemorySafeQuery
—
チーフアーキテクトからの深掘り：なぜ `48` なのか？
上記のコードにある `48` という数値は、WMIのAPI仕様における `wbemFlagForwardOnly (32)` と `wbemFlagReturnImmediately (16)` の加算値だ。
- wbemFlagForwardOnly: これを指定することで、WMIはオブジェクトセット全体をメモリにロードせず、前方のみに移動可能な「読み取り専用カーソル」として動作させる。大量のインスタンスを扱う際、これを指定しないことは、システムに対する自殺行為に等しい。
- wbemFlagReturnImmediately: 同期的なクエリ待ちを回避し、レスポンスを高速化する。
これらのフラグを活用することで、スクリプトのメモリフットプリントは最小限に抑えられ、数週間の連続稼働にも耐えうる堅牢性を手に入れることができる。
—
結びに代えて
VBScriptは、コードを書く者の「意図」をそのままOSに伝える、きわめて純度の高い言語だ。メモリ管理を放棄することは、OSに対して無責任であることを意味する。
システム管理者やエンジニアよ、`Set = Nothing` を疎かにするな。その一行が、深夜の緊急アラートからあなたを救うことになるのだから。
もし、貴殿の環境で依然としてメモリが肥大化し続けるのであれば、それはスクリプトの問題ではなく、別のプロセスがWMIプロバイダ（`WmiPrvSE.exe`）を汚染している可能性を疑え。その時は、また別の深い知見が必要になる。
健闘を祈る。
