VBScriptの「見えないメモリ」を可視化せよ：Class_InitializeとTerminateで構築するオブジェクト診断術
こんにちは。現場の最前線でコードと格闘している皆さん、お疲れ様です。
VBScriptを書いていると、「動いているから良し」と済ませてしまいがちですが、実はその背後でオブジェクトの亡霊がメモリを蝕んでいるかもしれません。
特に、`Class`を使って大量のデータを処理したり、複雑な業務ロジックを組んだりする場合、「生成したはずのオブジェクトがいつ消えたのか」を把握することは、プロフェッショナルへの第一歩です。
今回は、VBScriptのメモリ管理の「暗部」に光を当て、自作クラスを完全制御するためのリーク診断カウンターを伝授します。
—
1. なぜ「生成」と「破棄」を意識するのか？
VBScriptはガベージコレクション（メモリの自動解放）を備えていますが、「参照カウント」という仕組みで動いています。
簡単に言えば、「どこからも参照されていない」と判断された瞬間にメモリから消えるのですが、循環参照や予期せぬ変数の保持によって、この「消滅」が阻害されることがあります。
特に大規模な自動化処理において、この「消えないオブジェクト」が積み重なると、スクリプトの実行速度は低下し、最悪の場合はOSのリソースを食いつぶしてスクリプトがクラッシュします。
これを防ぐための特効薬が、`Class_Initialize`と`Class_Terminate`です。
—
2. 実践！リーク診断カウンターの作り方
クラスの「誕生」と「死」を記録する静的なカウンターを導入します。VBScriptには静的変数（static）がないため、スクリプトのスコープ（グローバル領域）にカウンタ用変数を置くのが定石です。
実装コード例
‘ — グローバルカウンター（監視用） —
Dim g_ActiveObjectCount
g_ActiveObjectCount = 0
Class DataProcessor
‘ インスタンス生成時に呼ばれる（コンストラクタ）
Private Sub Class_Initialize()
g_ActiveObjectCount = g_ActiveObjectCount + 1
WScript.Echo “[生成] 現在の生存数: ” & g_ActiveObjectCount
End Sub
‘ インスタンス破棄時に呼ばれる（デストラクタ）
Private Sub Class_Terminate()
g_ActiveObjectCount = g_ActiveObjectCount – 1
WScript.Echo “[破棄] 現在の生存数: ” & g_ActiveObjectCount
End Sub
End Class
‘ — メイン処理 —
Set obj1 = New DataProcessor
Set obj2 = New DataProcessor
‘ 明示的に破棄（Nothingを代入）
Set obj1 = Nothing
Set obj2 = Nothing
WScript.Echo “最終的な生存数: ” & g_ActiveObjectCount
このコードのポイント
- `Class_Initialize`: オブジェクトが `New` された瞬間に実行されます。ここでカウントを増やします。
- `Class_Terminate`: オブジェクトがメモリから解放される直前に実行されます。ここでカウントを減らします。
- `Nothing` の代入: これが非常に重要です。VBScriptでは `Set obj = Nothing` を明示的に呼び出すことで、参照カウントを確実に減らす習慣をつけましょう。
—
3. 陥りやすい罠：「破棄されない」原因
もし `Nothing` を代入しているのに、`g_ActiveObjectCount` が0にならない場合、以下のいずれかが発生しています。
1. 循環参照: クラスAがクラスBを持ち、クラスBがクラスAを持っていると、互いに参照し合っているため「使われている」と判定され、永遠に消えません。
2. グローバル変数への格納: 関数内で生成したオブジェクトを、グローバル変数に代入したまま忘れているケース。
3. イベントハンドラの解除忘れ: COMオブジェクトのイベントを処理している場合、イベントの接続がメモリを繋ぎ止めることがあります。
—
4. プロの現場での活用法
このカウンター手法は、開発中の「プロファイリング」に非常に有効です。
- 大量ループ処理の際: `For` ループ内で `New` している場合、ループ終了時にカウンタが0に戻っているか確認してください。戻っていなければ、ループ処理のどこかで参照がリークしています。
- エラーハンドリング時: エラー発生時に処理が中断され、`Nothing` が呼ばれずにオブジェクトが残り続けることがあります。`On Error Resume Next` と組み合わせる際は、必ず `Finally` ブロックのように確実に `Nothing` を呼ぶ構造を意識してください。
—
最後に：コードは「生き物」である
VBScriptは古くからある言語ですが、だからこそ「メモリをどう扱うか」というプログラミングの根源的な作法を学ぶのに最適な環境です。
「動けばいい」から「美しく、かつ効率的に消えるコード」へ。
皆さんが書いたオブジェクトが、その役割を終えた時に静かにメモリを解放する……そんな美しいコードの書き手を目指してください。
ここをクリアできれば、あなたはもうVBScriptの初学者ではありません。自信を持って、より高度な自動化の世界へ突き進んでいきましょう！
何か詰まったら、いつでもまた聞きに来てくださいね。応援しています。
