VBScriptを支配する：Class_Initialize/Terminateによる「不可視のメモリリーク」を殲滅する技術
VBScriptは、現代のモダンな開発言語と比較すれば、そのメモリ管理は極めて原始的だ。しかし、レガシーシステムにおいて、複雑なオブジェクトのライフサイクルを制御できないエンジニアは、いずれ「解決不能なフリーズ」という壁に突き当たる。
WSH（Windows Script Host）環境下で、動的にオブジェクトを生成し続ける処理を書くとき、我々が最も警戒すべきは「循環参照」と「意図しないオブジェクトの滞留」だ。今回は、VBScriptが本来持たない高度なデバッグ機能を、`Class_Initialize`と`Class_Terminate`という、いわば「魂の入出門」を監視することで実装する。
なぜVBScriptで「監視」が必要なのか
VBScriptのメモリ管理は参照カウンタ方式だ。だが、深い階層でオブジェクトが互いを参照し合えば、ガベージコレクション（GC）は機能不全に陥る。特にWSH環境では、スクリプト実行ホスト（`wscript.exe` / `cscript.exe`）が終了するまでメモリは解放されないため、大量のバッチ処理や長時間稼働するエージェントでは、数日でリソースが枯渇する。
「動いているから問題ない」という甘い考えは捨てろ。破棄漏れは「沈黙の爆弾」である。
実装：リーク診断カウンターの構築
以下のコードは、クラスのインスタンス生成数と破棄数をカウントし、実行終了時に「生存しているオブジェクト」を即座に特定するためのフレームワークだ。
‘ — Global Counter Class —
‘ 診断用カウンターを保持するシングルトン的な役割
Class ObjectTracker
Public ActiveCount
Private Sub Class_Initialize()
ActiveCount = 0
End Sub
Public Sub Increment()
ActiveCount = ActiveCount + 1
End Sub
Public Sub Decrement()
ActiveCount = ActiveCount – 1
End Sub
End Class
‘ グローバル変数として監視用インスタンスを配置
Dim G_Tracker: Set G_Tracker = New ObjectTracker
‘ — 監視対象の自作クラス —
Class Processor
Private Sub Class_Initialize()
G_Tracker.Increment
‘ ログ出力（開発時のみ有効化せよ）
‘ WScript.Echo “DEBUG: Processor Created. Current: ” & G_Tracker.ActiveCount
End Sub
Private Sub Class_Terminate()
G_Tracker.Decrement
‘ WScript.Echo “DEBUG: Processor Destroyed. Current: ” & G_Tracker.ActiveCount
End Sub
End Class
‘ — メイン処理 —
Sub Main()
Dim i, obj
‘ 1000個のオブジェクトを生成・解放するループ
For i = 1 To 1000
Set obj = New Processor
‘ … ここで何らかの複雑なビジネスロジックを実行 …
‘ 必須：明示的な解放
Set obj = Nothing
Next
‘ 最終診断
If G_Tracker.ActiveCount > 0 Then
WScript.Echo “CRITICAL: オブジェクトリーク発生！ 残存数: ” & G_Tracker.ActiveCount
Else
WScript.Echo “SUCCESS: メモリリークなし。全てのオブジェクトは正しく解放されました。”
End If
End Sub
Call Main()
シニアエンジニアが押さえるべき「極限の知見」
1. `Set obj = Nothing` の義務化
VBScriptにおいて`Set obj = Nothing`は「推奨」ではない。「必須」だ。特にループ内での生成は、スコープを抜ける前に必ず破棄せよ。これを行わないと、`Class_Terminate`が意図したタイミングで呼ばれず、リークカウンターが正しく機能しない。
2. 循環参照の回避（設計レベルの防御）
もしクラスAがクラスBを持ち、クラスBがクラスAを参照しているなら、どれだけ`Nothing`を呼んでも`Class_Terminate`は決して走らない。この場合、破壊用のメソッド（例：`obj.Dispose()`）を自作し、相互参照を強制的に解除する処理を組み込む必要がある。
3. WMIやADOオブジェクトの管理
上記の手法は自作クラスだけでなく、`ADODB.Recordset`や`WScript.Shell`のような外部オブジェクトにも応用できる。ラッパークラスの中にこれらを封じ込め、`Class_Terminate`の中で`Close`や`Nothing`を記述することで、リソースのクローズ漏れを確実に防ぐことができる。
結論：コードを「可視化」せよ
エンジニアリングとは、神のみぞ知るメモリの挙動を、我々の管理下に置く行為だ。`Class_Initialize`と`Class_Terminate`は、単なる初期化・終了処理ではない。それは、システムが健全であるかどうかを問い続けるためのセンサーである。
レガシーな環境であればあるほど、こうした泥臭い「可視化」こそが、システムの寿命を延ばす唯一の正攻法となる。明日から、君の書く全てのクラスにこの監視機構を組み込んでみてほしい。沈黙していたメモリリークが、悲鳴を上げて姿を現すはずだ。
