【COMコンポーネント依存性チェック】CreateObject前のレジストリ事前確認による安全なエラー未然防止
レガシーシステムの維持、あるいはキッティングされた端末ごとの差異に頭を悩ませるシニアエンジニアにとって、`CreateObject` の失敗は悪夢の始まりに過ぎない。
`ADODB.Stream` や `MSXML2.DOMDocument.6.0`、あるいは特定のサードパーティ製COMコンポーネント。スクリプト実行時に「コンポーネントはコンテナーを作成できません: ‘…’」という実行時エラー（Runtime Error）が捕捉されず、無慈悲にバッチ処理が中断される。`On Error Resume Next` でエラーを握り潰すのは、エラーハンドリングではなく「現実逃避」に他ならない。
真に堅牢なエンタープライズ・スクリプトとは、実行前に環境の生死を診断し、枯れたロジックで安全に迂回（フォールバック）するものでなければならない。
今回は、VBScriptの基盤であるWSH環境において、`CreateObject` を一切汚さずに `HKEY_CLASSES_ROOT (HKCR)` を直接走査し、COMコンポーネントの依存性を極限まで安全に事前検証するアーキテクチャを解説する。
—
1. なぜ `On Error Resume Next` では不十分なのか
VBScriptにおける従来の例外処理は、お世辞にも洗練されているとは言えない。
‘ 悪しき定番パターン
On Error Resume Next
Set objStream = CreateObject(“ADODB.Stream”)
If Err.Number <> 0 Then
‘ エラー処理
End If
On Error GoTo 0
このアプローチには致命的な欠陥がある。
1. COMの初期化コストと例外ペナルティ: 存在しない、あるいは破損したCOMオブジェクトをインスタンス化しようとする試みは、COMサブシステム内部で無駄な例外発生とプロセス間のオーバーヘッドを発生させる。
2. 予期せぬエラーの隠蔽: `Err.Number` を監視するあまり、メモリー不足やアクセス権限の欠如など、別の致命的なエラーまで意図せず握り潰す危険性がある。
「創る前に、在るかを確認する」。これがエンジニアリングの基本原則である。
—
2. 核心：HKCR レジストリ直接走査メカニズム
Windows環境において、`ProgID`（例: `ADODB.Stream`）は必ずレジストリの `HKEY_CLASSES_ROOT`（実体は `HKEY_LOCAL_MACHINE\Software\Classes` および `HKEY_CURRENT_USER\Software\Classes` のマージビュー）にキーとして存在していなければならない。
`CreateObject` は内部的にこのレジストリツリーを逆引きしているに過ぎない。つまり、スクリプト側からレジストリを直接叩いて存在確認を行えば、インスタンス化の負荷ゼロで完全な事前診断が可能となる。
ここで、WSHの `WScript.Shell` が持つ `RegRead` メソッドを利用する。
実装コード：堅牢なCOM依存性チェッカー
以下のコードは、指定されたProgIDがターゲット環境に確実に存在し、かつ有効であるかをレジストリの観点から純粋に検証する関数群である。
Option Explicit
‘ 実行テスト
Sub Main()
Dim targetProgID
targetProgID = “ADODB.Stream”
If TestComComponent(targetProgID) Then
WScript.Echo “[SUCCESS] ” & targetProgID & ” は利用可能です。”
‘ 安全にインスタンス化を実行
Dim objStream
Set objStream = CreateObject(targetProgID)
‘ — 実際の処理 —
Set objStream = Nothing
Else
WScript.Echo “[WARNING] ” & targetProgID & ” が登録されていません。代替処理に移行します。”
‘ 代替処理やログ記録
End If
End Sub
‘———————————————————————-
‘ 関数名: TestComComponent
‘ 概要: 指定されたProgIDのCOMコンポーネントがレジストリに登録されているか検証する
‘ 引数: strProgID (String) – 検証するProgID
‘ 戻り値: Boolean – 存在する場合はTrue、それ以外はFalse
‘———————————————————————-
Function TestComComponent(ByVal strProgID)
Dim wshShell, regPath
TestComComponent = False
On Error Resume Next
Set wshShell = CreateObject(“WScript.Shell”)
If Err.Number <> 0 Then
‘ WScript.Shell自体が使えない異常環境
On Error GoTo 0
Exit Function
End If
‘ HKCR直下のProgIDキー、またはそのCLSIDサブキーの存在をチェック
‘ レジストリパスの構築: HKCR\
regPath = “HKCR\” & strProgID & “\CLSID\”
wshShell.RegRead regPath
If Err.Number = 0 Then
TestComComponent = True
Else
‘ キーが存在しない、またはアクセス権がない場合はエラー番号が非0になる
TestComComponent = False
End If
‘ オブジェクトの明示的解放（メモリ管理の鉄則）
Set wshShell = Nothing
On Error GoTo 0
End Function
‘ メイン処理の実行
Call Main()
—
3. チーフアーキテクトが指摘する「メモリ管理とライフサイクル」の極意
VBScriptはインタープリタ言語であり、ガベージコレクション（GC）の挙動は参照カウンタ方式に強く依存している。しかし、COMオブジェクトとWSHのオートメーションオブジェクトが混在する環境では、メモリリークやCOMプロセスのゾンビ化が頻発する。
1. `Set obj = Nothing` の強制
スクリプトが終了すればプロセスごとメモリは解放されるが、長期間稼働する常駐型WSHスクリプトや、多量のファイルをループ処理するバッチにおいて、ローカルスコープであっても使い終わったCOMオブジェクトは即座に `Nothing` を代入して参照カウンタをデクリメントすべきである。
2. `WScript.Shell` の乱用禁止
レジストリを読むために毎回 `CreateObject(“WScript.Shell”)` をループ内で呼び出すのは、パフォーマンス上の大罪である。チェック処理を関数化し、オブジェクトの生成と破棄のライフサイクルを明確に閉じ込めること。
—
4. より高度な応用：バージョン差異の動的フォールバック
エンタープライズ環境の悩みの種は「環境ごとのXMLパーサーのバージョンの違い」である。ある端末には `MSXML2.DOMDocument.6.0` があり、別のレガシー端末には `4.0` や `3.0` しか入っていないというケースは枚挙に暇がない。
以下のロジックは、配列に定義された複数の候補（フォールバックチェーン）をレジストリベースで上から順に走査し、最初にヒットした生存可能なコンポーネントを動的に採用する極限の耐障害性パターンである。
‘———————————————————————-
‘ 関数名: GetAvailableProgID
‘ 概要: 複数の候補から、現在利用可能な最初のProgIDを返す
‘ 引数: arrProgIDs (Array) – 優先順位を付与したProgIDの配列
‘ 戻り値: String – 利用可能なProgID（見つからない場合は空文字）
‘———————————————————————-
Function GetAvailableProgID(ByRef arrProgIDs)
Dim i, candidate
GetAvailableProgID = “”
For i = LBound(arrProgIDs) To UBound(arrProgIDs)
candidate = arrProgIDs(i)
If TestComComponent(candidate) Then
GetAvailableProgID = candidate
Exit Function
End If
Next
End Function
‘ — 使用例 —
Dim xmlParsers
xmlParsers = Array(“MSXML2.DOMDocument.6.0”, “MSXML2.DOMDocument.4.0”, “MSXML2.DOMDocument”)
Dim activeParserID
activeParserID = GetAvailableProgID(xmlParsers)
If activeParserID <> “” Then
WScript.Echo “採用されたパーサー: ” & activeParserID
Dim dom
Set dom = CreateObject(activeParserID)
‘ 処理…
Set dom = Nothing
Else
WScript.Echo “致命的エラー: 互換性のあるXMLパーサーが見つかりません。”
WScript.Quit 1
End If
—
総括
VBScriptは過去の遺物と揶揄されることもあるが、Windowsインフラストラクチャの深部を直接制御できる点において、依然としてシステム管理者の強力な武器である。
「動くかどうか分からないコードを走らせ、エラーが出たらトラップする」という甘えを捨て、「環境を精緻に診断し、確実に生存が保証された経路のみを通る」というエンジニアリングの美学を貫くこと。それこそが、レガシーシステムを永遠に安定稼働させるための唯一にして最大の極意である。
