ゾンビプロセスを許すな：GetObjectとCreateObjectによる「プロセス・ライフサイクル管理」の極意
業務自動化の現場において、ExcelやWordの「ゾンビ化」ほどシステム保守担当を疲弊させるものはない。タスクマネージャーに並ぶ無数の `EXCEL.EXE`。これらは単なるメモリの浪費ではなく、不完全なオブジェクト参照が引き起こすメモリリークの残骸であり、システム全体の信頼性を根底から腐食させる。
本稿では、VBScriptおよびWSH環境において、起動済みプロセスを制御下に置き、リソースを枯渇させないための「プロセス・アタッチメント」の極意を伝授する。
—
1. GetObject と CreateObject の非対称性を見極める
多くのエンジニアが「なんとなく」使い分けているこの2つの関数だが、その本質は「インスタンスの探索」か「インスタンスの生成」かという、オブジェクトライフサイクルにおける決定的な分岐点にある。
- CreateObject: 常に新しいプロセスを生成し、システムに負荷を強いる。
- GetObject: 既存のROT（Running Object Table）を走査し、既に息をしているインスタンスを捕獲する。
究極の接続ロジック（パターンマッチング）
既存のプロセスがあればそれに接続し、なければ新規作成する。この「優雅なフォールバック」こそが、堅牢な自動化スクリプトの必須要件だ。
‘ — プロセス接続のための堅牢な関数 —
Function GetAppInstance(progID)
Dim obj
On Error Resume Next
‘ 1. 既存インスタンスへのアタッチを試みる
Set obj = GetObject(, progID)
‘ 2. エラーが発生（起動していない）した場合、新規作成へ
If Err.Number <> 0 Then
Err.Clear
Set obj = CreateObject(progID)
End If
On Error GoTo 0
Set GetAppInstance = obj
End Function
‘ 使用例
Dim xlApp
Set xlApp = GetAppInstance(“Excel.Application”)
xlApp.Visible = True
—
2. なぜ「明示的な解放」が宗教の域で語られるのか
VBScriptは参照カウンタ方式でメモリを管理しているが、COMオブジェクトの解放はしばしば「おまじない」程度に軽視される。しかし、WSH環境下では、変数がスコープを抜けるまでオブジェクトがメモリに居座ることは珍しくない。
特に、ループ処理の中で `CreateObject` を繰り返すのは、自殺行為に等しい。
メモリリークを撲滅する作法
1. Nothingの代入: 不要になったオブジェクトには即座に `Set obj = Nothing` を行う。
2. Quitメソッドの活用: アプリケーションそのものを終了させる場合は、必ず `Quit` を呼ぶ。
3. エラーハンドリングの徹底: 異常終了時にも `Finally` 的な処理で `Nothing` を保証する。
Sub SafeCleanup(obj)
‘ オブジェクトが有効か確認してから解放する防衛的コーディング
If Not obj Is Nothing Then
‘ アプリケーション固有の終了処理があればここに記述
On Error Resume Next
obj.Quit
On Error GoTo 0
Set obj = Nothing
End If
End Sub
—
3. レガシー環境における「見えない壁」を突破する
Windows APIの知見があれば、GetObjectの限界を超えられる。例えば、「特定のExcelファイルが開かれている場合のみアタッチしたい」といった要件だ。
VBScript単体ではプロセスID（PID）の特定が難しいケースがあるが、WMI（Windows Management Instrumentation）と組み合わせることで、プロセス名だけでなくコマンドライン引数まで精査が可能になる。
WMIを用いたプロセスの高度な走査
‘ 特定のブック名で起動しているExcelを特定する例
Function FindExcelByFile(fileName)
Dim wmi, processes, proc
Set wmi = GetObject(“winmgmts:\\.\root\cimv2”)
Set processes = wmi.ExecQuery(“SELECT FROM Win32_Process WHERE Name = ‘EXCEL.EXE'”)
For Each proc In processes
‘ コマンドライン引数にファイル名が含まれているか確認
If InStr(proc.CommandLine, fileName) > 0 Then
‘ ここでGetObject経由の制御へつなげるロジックを組む
End If
Next
End Function
—
チーフアーキテクトからの提言
自動化スクリプトとは、単に手順をなぞるものではない。それは、「OSのリソースとどう対話するか」という哲学である。
- プロセスを殺すな、再利用せよ。
- エラーを隠すな、制御下に置け。
- メモリを放置するな、最後に必ず片付けろ。
この3つの原則を守るだけで、あなたの書くVBScriptは「動く」だけの不安定なスクリプトから、堅牢なシステムコンポーネントへと昇華する。レガシーだからこそ、細部に魂を宿せ。それが、我々エンジニアがプロとして生き残るための唯一の道だ。
