【COM通信エラーハンドリング】CreateObject失敗時のHRESULTコード判定とレジストリ非依存のエラー代替処理
開発現場でVBScriptを用いた自動化スクリプトを組み上げ、いざクライアント端末や本番サーバーへ配備した瞬間、無情にも画面に突きつけられるエラー番号。
`実行時エラー: 429 – オートメーション サーバーはオブジェクトを作成できません。`
このエラーに直面したとき、君はどうしている？
「あぁ、ExcelやAcrobatのバージョンが違うんだな」「対象のDLLがレジストリに登録されていないな」と、その場しのぎでインストーラーを叩き直したり、手動で `regsvr32` を走らせていないだろうか。
プロフェッショナルな業務自動化エンジニアであれば、環境の差異に怯えるような脆弱なコードを書いてはならない。
今回は、COMコンポーネントの生成地獄を完全に制御下におき、`CreateObject` の失敗を検知した瞬間にHRESULT（エラーコード）を解析、さらにはレジストリに依存しないフォールバック（代替処理）までを完遂する「要塞級のオブジェクト生成コンストラクター」の設計思想を伝授しよう。
—
1. なぜ通常の `CreateObject` では現場で破綻するのか
VBScriptの `CreateObject` は、OSのレジストリ（`HKEY_CLASSES_ROOT`）に深く依存している。
例えば、Excelの操作自動化を行う際に `”Excel.Application”` を指定すると、WSHはレジストリからCLSIDを逆引きし、COMサーバーを起動する。
しかし、以下の環境差異によってこのメカニズムは容易に崩壊する。
1. Officeのアーキテクチャ混在: 32bit版と64bit版のCOM登録ハイブの食い違い。
2. マルチテナント・権限不足: IIS経由やタスクスケジューラ（最高権限以外）からの実行時、COMオブジェクトのセキュリティ記述子（DCOMパーミッション）に阻まれる。
3. バージョンアップによるProgIDの消滅: 旧バージョンのコンポーネントがアンインストールされ、参照すべきProgIDが変わっている。
これらの異常時、`On Error Resume Next` を雑に挟んでエラーを握りつぶすだけのコードは、悪質なバグの温床となる。
「オブジェクトが生成できなかった」という事実に対し、なぜ失敗したのか（HRESULTの特定）、そして別手段で代替稼働できるかをプログラム自身が判断しなければ、真の自動化とは言えない。
—
2. VBScriptにおけるHRESULTの捕捉と罠
VBScriptでは、COMのメソッドやインスタンス化でエラーが発生した場合、`Err` オブジェクトに制御が移る。
しかし、ここで知っておくべき重大な事実がある。`Err.Number` に格納される値は、32bitのHRESULTをVBScriptが十進数（あるいは負数のサイン付き整数）に変換した劣化版であるということだ。
例えば、よくある `0x80040154`（REGDB_E_CLASSNOTREG：クラスが登録されていません）は、VBScript上では `-2147221164` として観測される。
この数値を正確にヘキサ（16進数）に変換し、エラーの真因を特定するロジックがエラーハンドリングの第一歩となる。
—
3. 【プロダクションコード】堅牢なCOMフォールバック・コンストラクター
ここでは、本番環境での利用を想定した実用的なVBScriptコードを提示する。
今回は、メインのCOMオブジェクト（例：DOMDocumentやExcel等）の生成に失敗した場合、エラーコードを解析した上で、「別バージョンのProgIDへのフォールバック」、あるいは「レジストリを介さない代替ロジック（ファイルI/Oや別APIへの切り替え）」へシームレスに移行する設計を実装している。
Option Explicit
‘ ==============================================================================
‘ スクリプト名: RobustComConnector.vbs
‘ 概要: 堅牢なCOMオブジェクト生成およびHRESULT解析・代替フォールバック処理
‘ ==============================================================================
Main
Sub Main
WScript.Echo “=== 業務自動化スクリプト開始 ===”
‘ テストケース: 存在しない、あるいは環境によって不安定なCOMを指定
‘ ここでは例としてXMLDOMを安全に生成するラッパーを呼び出す
Dim objDOM
Set objDOM = GetRobustObject(“Msxml2.DOMDocument.6.0”, “Msxml2.DOMDocument.3.0”)
If Not objDOM Is Nothing Then
WScript.Echo “[SUCCESS] オブジェクトの生成に成功しました。”
‘ 動作確認としてXMLをロードしてみる
objDOM.Async = False
objDOM.LoadXML “
WScript.Echo “取得データ: ” & objDOM.SelectSingleNode(“//item”).Text
Else
WScript.Echo “[CRITICAL] すべてのフォールバック試行が失敗しました。代替処理へ移行します。”
Call ExecuteAlternativeProcess()
End If
WScript.Echo “=== 業務自動化スクリプト終了 ===”
End Sub
‘ ——————————————————————————
‘ 関数名: GetRobustObject
‘ 概要: 主命題となるCOMオブジェクトを生成し、失敗時はHRESULT解析とフォールバックを行う
‘ 引数: primaryProgId – 第一候補のProgID
‘ fallbackProgId – 第二候補（旧バージョン等）のProgID
‘ 戻り値: 生成されたCOMオブジェクト（失敗時は Nothing）
‘ ——————————————————————————
Function GetRobustObject(primaryProgId, fallbackProgId)
Dim targetObj
Set targetObj = Nothing
‘ — 1. 第一候補の生成トライ —
Set targetObj = TryCreateObject(primaryProgId)
If Not targetObj Is Nothing Then
Set GetRobustObject = targetObj
Exit Function
End If
‘ — 2. 第二候補（フォールバック）の生成トライ —
If fallbackProgId <> “” Then
WScript.Echo “[WARNING] 主オブジェクト [” & primaryProgId & “] の生成に失敗。フォールバック [” & fallbackProgId & “] を試行します。”
Set targetObj = TryCreateObject(fallbackProgId)
If Not targetObj Is Nothing Then
Set GetRobustObject = targetObj
Exit Function
End If
End If
‘ すべて失敗
Set GetRobustObject = Nothing
End Function
‘ ——————————————————————————
‘ 関数名: TryCreateObject
‘ 概要: 単一のProgIDに対してCreateObjectを実行し、詳細なHRESULTを診断する
‘ ——————————————————————————
Function TryCreateObject(progId)
Dim errNum, errHex, errDesc
On Error Resume Next
Set TryCreateObject = CreateObject(progId)
errNum = Err.Number
errDesc = Err.Description
On Error GoTo 0
If errNum <> 0 Then
‘ VBScriptの十進数エラーを16進数（HRESULT）に変換
errHex = Hex(errNum)
‘ 32bit符号付き整数の場合、下位16/32bitのマスク処理が必要なことがあるためHex変換値を整形
If Len(errHex) > 8 Then
errHex = Right(errHex, 8)
End If
WScript.Echo ” -> 失敗: ProgID(” & progId & “)”
WScript.Echo ” HRESULT: 0x” & errHex & ” (Decimal: ” & errNum & “)”
WScript.Echo ” 詳細: ” & errDesc
‘ 特定のHRESULTに応じた個別ログ・診断（必要に応じて拡張）
Select Case errHex
Case “80040154”, “1B4″ ‘ REGDB_E_CLASSNOTREG / オートメーションサーバー…
WScript.Echo ” [診断] コンポーネントがシステムに登録されていません。”
Case “80070005” ‘ E_ACCESSDENIED
WScript.Echo ” [診断] アクセス権限が不足しています（DCOM設定を確認してください）。”
Case Else
WScript.Echo ” [診断] 予期せぬCOMエラーです。”
End Select
Set TryCreateObject = Nothing
End If
End Function
‘ ——————————————————————————
‘ プロシージャ名: ExecuteAlternativeProcess
‘ 概要: レジストリ依存のCOMが全滅した際の、純粋なVBScript機能（ファイルシステム等）による代替処理
‘ ——————————————————————————
Sub ExecuteAlternativeProcess()
WScript.Echo “[FALLBACK] レジストリ非依存の代替ルーチンを実行します…”
‘ 例: COMを使わず、標準のFileSystemObject（これ自体もCOMだがOSコアのため通常生存している）で
‘ 代替のテキストログを出力して処理を安全に終了させる
Dim fso, logFile
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim logPath
logPath = fso.GetSpecialFolder(2) & “\Automation_Error_Fallback.log”
Set logFile = fso.CreateTextFile(logPath, True)
logFile.WriteLine “Timestamp: ” & Now
logFile.WriteLine “Status: COM Component failure handled gracefully. Fallback executed.”
logFile.Close
WScript.Echo “代替処理完了: ログを ” & logPath & ” に出力しました。”
End Sub
—
4. チーフアーキテクトからの実務アドバイス
1. エラー番号の「符号」に惑わされるな
VBScriptの `Err.Number` は環境によって負数で返ることが多々ある。HRESULTをデバッグする際は、必ず `Hex()` 関数を通し、さらに `Right(…, 8)` でマスクして `0x80040154` のようなMicrosoft公式ドキュメントにあるエラーコードと突き合わせる習慣をつけよ。
2. 「FileSystemObject」すら信用するな
今回の代替処理で `Scripting.FileSystemObject` を使っているが、極稀にセキュリティソフトやポリシーでFSOすら封じられている環境が存在する。真にレジストリや外部COMに依存したくないクリティカルな局面では、VBScriptのネイティブステートメント（`Open` / `Print #` / `Close` によるレガシーなファイルI/O）をフォールバックのさらに奥の砦として用意しておくべきだ。
3. 「動かないこと」を前提に設計する
「このサーバーにはExcelが入っているはずだ」という性善説に基づいたコードは、担当者が変わった瞬間、あるいはOSのセキュリティパッチが当たった瞬間に沈黙する。「動かないかもしれない、だからどう安全に身をかわすか」というフェイルセーフの思想こそが、現場を救うエンジニアの武器なのだ。
手を抜くな。コードは君の分身であり、無人環境で深夜に稼働する戦士なのだから。
