【VBScriptの極意】エラーで止まらない！「事前依存環境診断」でスクリプトの堅牢性を極める
こんにちは。システム自動化の現場で長年戦ってきたエンジニアです。
VBScriptを書いていると、「なぜか本番環境で動かない」「途中まで処理してエラーで落ちるのが怖い」といった経験はありませんか？ VBScriptは非常にシンプルですが、その裏側にある「COMコンポーネント」や「DLL」の存在に依存する不安定さを持ち合わせています。
今日は、「スクリプトが動かない」という悲劇を未然に防ぐための『事前依存環境診断モジュール』について、プロの視点から解説します。これを実装すれば、あなたのスクリプトは格段に「プロ仕様」へと昇華されます。
—
1. なぜ「事前診断」が必要なのか？
VBScriptの代表的なエラーといえば、`CreateObject` での失敗です。
「ActiveXコンポーネントを作成できません」という冷酷なエラーメッセージに、現場で頭を抱えたことはありませんか？
多くの初心者は、コードのメイン処理の途中でエラーが発生し、後始末もできずにスクリプトが死んでいく……という「地獄のようなコード」を書いてしまいます。プロのエンジニアは、処理を開始する前に「戦える状態か？」を必ず確認します。
—
2. 診断モジュールの設計思想
今回の診断モジュールでは、以下の2点を徹底的にチェックします。
1. COMコンポーネントの生存確認: `CreateObject` が正しくインスタンスを生成できるか。
2. 外部ファイルの存在確認: `Scripting.FileSystemObject` を使って、必要な設定ファイルやDLL（パス）が物理的にそこに存在するか。
—
3. 実装：事前診断スクリプトのテンプレート
このコードをスクリプトの冒頭に配置してください。これだけで、環境が整っていない場合に即座に警告を発し、安全に終了させることができます。
‘ ==========================================================
‘ 事前環境診断モジュール (Environment Pre-Check)
‘ ==========================================================
‘ 診断結果を格納する変数
Dim isReady : isReady = True
‘ 1. COMコンポーネントの存在チェック
If Not CheckCOM(“Scripting.FileSystemObject”) Then isReady = False
If Not CheckCOM(“Excel.Application”) Then isReady = False
‘ 2. 必須ファイルの存在チェック
If Not CheckFile(“C:\Config\settings.ini”) Then isReady = False
‘ 診断結果による分岐
If Not isReady Then
MsgBox “環境準備に失敗しました。不足しているコンポーネントを確認してください。”, vbCritical, “診断エラー”
WScript.Quit ‘ ここで安全に終了する
End If
‘ 以降、メイン処理を開始
MsgBox “診断OK！メイン処理を開始します。”
‘ — 以下、診断用関数 —
‘ COMコンポーネント生成テスト関数
Function CheckCOM(progID)
On Error Resume Next ‘ エラーを無視して実行
Dim obj
Set obj = CreateObject(progID)
If Err.Number <> 0 Then
MsgBox “エラー: ” & progID & ” が見つかりません。”, vbCritical
CheckCOM = False
Else
Set obj = Nothing
CheckCOM = True
End If
On Error GoTo 0 ‘ エラーハンドリングを元に戻す
End Function
‘ ファイル存在チェック関数
Function CheckFile(filePath)
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(filePath) Then
MsgBox “エラー: ファイルが見つかりません: ” & filePath, vbCritical
CheckFile = False
Else
CheckFile = True
End If
Set fso = Nothing
End Function
—
4. コードの深掘り：ここが「プロのこだわり」
On Error Resume Next の正しい使い方
VBScriptにおいて `On Error Resume Next` は諸刃の剣です。これを乱用してはいけません。今回の関数内のように、「エラーが発生しうるピンポイントな箇所だけを囲い、すぐに `On Error GoTo 0` で解除する」のが、世界最高峰のエンジニアが守るべき鉄則です。
オブジェクトの解放 (Nothing)
`Set obj = Nothing` を忘れるのは初心者にありがちなミスです。VBScriptのメモリ管理は自動ですが、COMコンポーネントは明示的に解放してあげないと、バックグラウンドでプロセスが残り続け、PCを重くする原因になります。行儀の良いコードを書きましょう。
—
5. まとめ：ここをクリアすれば「一人前」です
いかがでしたか？
今回紹介した「事前診断」は、ただエラーを防ぐだけでなく、「このスクリプトは、どのような環境で動くべきか」という仕様を明文化するドキュメントとしての役割も果たします。
- COMチェック：`CreateObject` の成否を判定する。
- ファイルチェック：依存関係にあるファイルを明示する。
- 安全終了：`WScript.Quit` で被害を最小限に。
これらを意識するだけで、あなたのスクリプトは格段に信頼性の高いものになります。まずは今のコードの頭に、この診断モジュールを組み込んでみてください。
もし、さらに高度な診断（レジストリの値チェックや、ネットワークドライブの接続確認など）が必要な場合は、またいつでも聞いてくださいね。あなたの自動化ライフが、より快適なものになることを応援しています！
