実行環境を掌握せよ：VBScriptにおける「自己診断ロジック」の極意
VBScriptを「過去の遺物」と呼ぶ者は、その真のポテンシャルを理解していない。
業務自動化の現場において、WSH（Windows Script Host）はOSの深淵に直接アクセスできる軽量かつ最強の武器だ。しかし、多くのエンジニアが「パスの不整合」や「環境依存の罠」に足を取られ、場当たり的な修正に追われている。
今日は、スクリプトが自身の存在を定義し、過酷な実行環境を自己診断するための「アーキテクトの作法」を伝授する。
—
1. 相対パスの呪縛を断つ：自己位置特定の本質
スクリプトをタスクスケジューラやネットワークドライブから実行する際、`CurrentDirectory`は常に不安定だ。`”config.ini”`を読み込もうとしてファイルが見つからない、という初歩的なエラーは、実行パスの固定化を怠った証左である。
以下のロジックは、スクリプト自身の物理配置を特定し、そこを基点とした絶対パスを再構築する。これにより、カレントディレクトリに依存しない堅牢な実行基盤が完成する。
‘ — 自己位置特定用クラス —
Function GetScriptDirectory()
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ WScript.ScriptFullName: スクリプトのフルパス
‘ GetParentFolderName: 親フォルダパスを取得
GetScriptDirectory = fso.GetParentFolderName(WScript.ScriptFullName)
‘ メモリ最適化: オブジェクトの明示的解放
‘ VBScriptの参照カウンタを過信せず、終了前に強制解放する
Set fso = Nothing
End Function
‘ 使用例: ログファイルの出力先をスクリプトと同じ階層に強制する
Dim logPath
logPath = GetScriptDirectory() & “\logs\execution.log”
—
2. 環境のメタデータを読み解く：WSHの自己診断
大規模システム連携において、実行環境（WSHのバージョンやアーキテクチャ）の差異は致命的なバグを生む。特に、64bit/32bitの混在環境や、古いWindows Server環境では、実行時に呼び出されるDLLの挙動が異なる場合がある。
以下のコードは、自身の実行環境を「メタデータ」として抽出し、診断を行うためのプロトタイプだ。
Sub DiagnoseEnvironment()
‘ WScript.Version: 現在のWSHバージョン
‘ WScript.FullName: 実行バイナリ(wscript.exe or cscript.exe)のパス
Dim wshVersion, hostPath
wshVersion = WScript.Version
hostPath = WScript.FullName
‘ 診断ロジック:
‘ 例えば、特定のWSHバージョン未満であれば処理を停止させる
If CDbl(wshVersion) < 5.8 Then
WScript.Echo "Critical Error: WSH Version 5.8 or higher is required."
WScript.Quit 1
End If
' ホスト実行モードの判定（CScriptかWScriptか）
' CScriptであればコンソール出力、WScriptであればダイアログ等の切り分けが可能
Dim isConsole
isConsole = (InStr(LCase(hostPath), "cscript.exe") > 0)
If isConsole Then
WScript.StdOut.WriteLine “Running in Console Mode.”
End If
End Sub
—
3. レガシー環境を支配するメモリ管理の鉄則
VBScriptのエンジンは、オブジェクトのライフサイクル管理において「自動」を謳っているが、大規模なループや長時間の常駐プロセスでは、明示的な解放（`Set Object = Nothing`）を行わないとメモリリークの温床となる。
特にWMI（Windows Management Instrumentation）やShell.Applicationオブジェクトを多用する場合、以下のルールを徹底せよ。
- スコープの最小化: グローバル変数は排除し、必要なタイミングで関数内で生成、使い終わったら即座に解放する。
- 例外処理の代替: `On Error Resume Next`を使用する際は、必ず`Err.Number`をチェックし、クリアする習慣を身につける。
‘ メモリリークを防ぐための定石
Sub ExecuteHeavyTask()
Dim objWMI, colServices
Set objWMI = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2”)
‘ 処理…
‘ 逆順で解放する (親から子へ)
Set colServices = Nothing
Set objWMI = Nothing
End Sub
—
アーキテクトの視点：技術は「信頼」のためにある
VBScriptはレガシーかもしれない。しかし、OSに深く根を張り、追加のランタイムを必要とせず、数行のコードでシステムを掌握できるその特性は、クラウド時代においても「エッジでの自動化」として極めて強力だ。
今回紹介した「自己診断」のコードを自身のライブラリに組み込め。環境に文句を言うスクリプトではなく、環境を自ら特定し、適応するスクリプトこそが、真のエンジニアが作るべき「堅牢な自動化」である。
次回の記事では、`WMI`を用いた詳細なシステムリソース監視と、それをCSVとして出力する際の排他制御について深掘りする。準備を怠るな。
