VBScriptの残滓と向き合う：参照カウントの「死角」を制するメモリ管理術
VBScriptという言語は、現代のモダンなランタイムから見れば「化石」のように映るかもしれない。しかし、基幹システムの保守やWindows自動化の現場において、未だにその「軽量かつ即時実行可能」という特性は代替不能な価値を持っている。
多くの初学者が陥る罠は、VBScriptを「適当に書いても動くスクリプト」と甘く見ることだ。だが、COM（Component Object Model）という複雑な背骨を持つこの言語において、メモリ管理を疎かにすることは、システムを時限爆弾化させることに他ならない。
今日は、VBScriptにおける「参照カウント」の真実と、巨大ループにおいてプロセスを殺さないための「究極のクリーンアップ」について語ろう。
—
1. 参照カウント方式の残酷な現実
VBScriptのメモリ管理は、.NETのようなガベージコレクタ（GC）による「世代別管理」とは異なる。COMオブジェクトの生存期間は、「参照カウント（Reference Count）」によって決定される。
`Set obj = CreateObject(…)` した瞬間、参照カウントは1になる。別の変数に代入すれば2になり、スクリプトのスコープを抜ければ0になる――はずだ。しかし、この「自動解放」を信じてはいけない。
なぜ `Set obj = Nothing` が不可欠なのか
ループ内でオブジェクトを生成し続ける場合、VBScriptのランタイムが適切に参照カウントをデクリメントできない状況が頻発する。特に、外部プロセスを伴うExcel.ApplicationやFileSystemObject（FSO）は、明示的に解放しなければ、スクリプト終了後もゾンビプロセスとしてメモリを食いつぶし続ける。
「スクリプトが終われば消える」という幻想を捨てろ。プロセスの生存期間と、オブジェクトの寿命は別物だ。
—
2. 巨大ループでメモリを枯渇させないための鉄則
数万件のログ処理やファイル操作を繰り返すループ内では、変数のスコープを意識した極端な管理が必要になる。以下のコードを見てほしい。
‘ メモリリークを極限まで抑えるループ処理の雛形
Dim i, fso, targetFile, stream
For i = 1 To 10000
‘ ループ毎にオブジェクトを生成し、即座に解放する戦略
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ FSO経由でストリームを開く
Set stream = fso.OpenTextFile(“C:\Logs\data_” & i & “.log”, 1)
‘ … ここで何らかの重い処理を実行 …
‘ 処理終了後、スコープ内であっても即座にNothingへ
‘ 参照カウントを強制的に0に近づける
stream.Close
Set stream = Nothing
Set fso = Nothing
Next
なぜこの書き方が必要なのか？
もし `Set fso = Nothing` をループの外に出せば、10,000回分のFSOオブジェクトの参照がメモリ上に蓄積される可能性がある。VBScriptのインタプリタは、メモリが逼迫するまで遅延的に解放を行う傾向があり、その結果として「実行中の急激なメモリ使用量増大」を招く。
鉄則：オブジェクトは「生成した場所」で「使い切る」。 ループの外側にインスタンスを出すのは、共有リソースとして本当に必要な場合のみに限定すべきだ。
—
3. シニアアーキテクトが教える「プロセスの掃除」
時として、コードの構造上どうしても解放漏れが発生する場合がある。そんな時、レガシー環境の保守エンジニアが持つべき「最後の手段」は、WMIを用いたプロセス強制終了である。
‘ 頑固に残留するExcelを強制的に仕留める関数
Sub ForceKillProcess(processName)
Dim objWMIService, colProcessList, objProcess
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
Set colProcessList = objWMIService.ExecQuery(“Select from Win32_Process Where Name = ‘” & processName & “‘”)
For Each objProcess in colProcessList
objProcess.Terminate() ‘ 強制終了
Next
Set colProcessList = Nothing
Set objWMIService = Nothing
End Sub
‘ 使用例: ループの終わりやスクリプト終了時に呼び出す
‘ ForceKillProcess “EXCEL.EXE”
—
結論：VBScriptを「制御」せよ
VBScriptを使いこなすということは、ランタイムの気まぐれに身を委ねるのではなく、メモリのライフサイクルを完全に掌握することだ。
1. スコープを最小化せよ: プロシージャを分割し、不要な変数を長生きさせない。
2. Nothingを恐れるな: 参照カウントをリセットすることは、プログラムの「責任」である。
3. 副作用を想定せよ: 外部COMオブジェクトを使用する場合、それが終了コードで確実に解放されるか常に疑え。
技術がどれだけ進化しても、メモリというリソースの有限性は変わらない。VBScriptという一見原始的な環境でこそ、エンジニアとしての「制御力」が試されるのだ。この知見を、君の現場の安定化に役立ててほしい。健闘を祈る。
