現場で生き残るための「事前依存環境診断」：VBScriptにおける防衛的プログラミングの極致
VBScriptはレガシーと言われる。だが、Windowsの心臓部（WSH）でネイティブに動作するこの言語ほど、環境依存という「地雷」に敏感でなければならない言語はない。
本番環境で突然の`ActiveX component can’t create object`を吐き、深夜の呼び出しを受ける――そんな無様な事態を避けるためには、「処理に入る前に環境の健全性を証明する」という哲学が必要だ。今日は、真に堅牢なシステムを構築するための「事前診断モジュールの設計思想」を伝授する。
—
1. なぜ「実行時エラー」を待ってはいけないのか
VBScriptはインタプリタ言語であり、実行するまで型の不整合やCOMの欠損が露見しない。しかし、業務の自動化において、数時間走った後の「途中終了」は許されない。
真のエンジニアは、処理を開始する前に以下の3点を「診断」し、環境が不完全であれば0.1秒で即座に自死させる。
1. COMオブジェクトの生存確認: `CreateObject`の成功可否。
2. 物理リソースの存在確認: 設定ファイルやDLL、外部バイナリのパス実在。
3. パーミッションの検証: 読み書き権限の事前確認。
—
2. 診断モジュールの実装：極限の防衛コード
以下は、私が長年現場で使い続けている「環境診断テンプレート」の精髄だ。これをスクリプトの先頭に配置し、`Sub Main()`の直前に呼び出すことで、システムは鉄壁となる。
‘ —————————————————————————
‘ 診断モジュール: EnvironmentValidator
‘ 依存関係を事前に検証し、環境が不完全な場合は即座に通知して終了する
‘ —————————————————————————
Option Explicit
If Not ValidateEnvironment() Then
WScript.Echo “【重大なエラー】環境依存関係のチェックに失敗しました。”
WScript.Quit 1
End If
‘ ここからが本番処理
Call Main()
Function ValidateEnvironment()
Dim fso, shell
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 1. COMコンポーネントの存在確認 (例: Excel.Application)
If Not IsComponentAvailable(“Excel.Application”) Then
ValidateEnvironment = False: Exit Function
End If
‘ 2. 必須ファイルの存在確認
If Not fso.FileExists(“C:\System\Config.ini”) Then
WScript.Echo “エラー: 設定ファイルが見つかりません。”
ValidateEnvironment = False: Exit Function
End If
‘ 全ての診断をパス
Set fso = Nothing
ValidateEnvironment = True
End Function
‘ COM生存確認用ユーティリティ
Function IsComponentAvailable(progID)
On Error Resume Next
Dim obj
Set obj = CreateObject(progID)
If Err.Number <> 0 Then
WScript.Echo “エラー: COMコンポーネント[” & progID & “]の生成に失敗しました。”
IsComponentAvailable = False
Else
Set obj = Nothing ‘ 診断後は即座にメモリ解放
IsComponentAvailable = True
End If
On Error GoTo 0
End Function
—
3. メモリとライフサイクルの管理：VBScriptの美学
VBScriptにおいて`Set obj = Nothing`を怠ることは、重罪に等しい。特にExcel等の巨大なプロセスを操作する場合、診断段階で生成したオブジェクトを残したままにすると、後のメイン処理で「ゾンビプロセス」がメモリを食いつぶすことになる。
守るべき鉄則
- On Error Resume Nextは「最小限」に: 診断関数内のみに限定し、グローバルスコープを汚染しないこと。
- 診断と実行の分離: 診断処理にロジックを混ぜてはいけない。診断は「イエスかノーか」を返す純粋関数（Pure Function）であるべきだ。
- プロセス終了の徹底: `CreateObject`で診断を行った後は、必ずそのスコープ内で`Nothing`を代入せよ。ガベージコレクションをOSに委ねるな。
—
4. 現場のシニアとしてのアドバイス：DLLの登録確認
もしスクリプトが特定のDLLを直接呼び出す場合、`CreateObject`だけでは不十分なことがある。その際は、`WScript.Shell`の`Run`メソッドで`regsvr32`のステータスを確認するか、あるいは`Scripting.FileSystemObject`でDLLのバージョンリソースを直接読み込む高度なチェックを検討すべきだ。
システム管理者が最も恐れるべきは「動かないこと」ではない。「不安定な環境で、誤ったデータを生成し続けること」だ。
スクリプトが走り出す前に、環境が万全であることを確認する。このたった数行の「疑い深さ」こそが、数千の自動化ジョブを支える伝説のアーキテクトの矜持である。
今すぐ君のスクリプトに、この「診断の儀式」を組み込みたまえ。明日からの運用が劇的に変わるはずだ。
