【リモートレジストリ一括取得】WMI StdRegProv クラスを用いたネットワーク経由での複数端末設定の動的収集
インフラ管理の現場において、数百台規模のクライアント端末のレジストリ設定を個別確認することは、もはや人力で許される作業ではない。Active Directoryのグループポリシー（GPO）で縛っているつもりでも、「例外的にローカルで値を変更した端末」や「ポリシーが適用漏れになっている孤児端末」は必ず現れる。
これらを全台リモートから一瞬で、かつ余計なエージェントを一切インストールせずに吸い上げる。
その要となるのが、WMI（Windows Management Instrumentation）の `StdRegProv` クラス だ。
今回は、VBScriptのライフサイクルとCOMコンポーネントの挙動を熟知したプロフェッショナルが、ネットワーク経由で複数端末のレジストリを安全かつ高速に一括収集するプロダクションコードを伝授する。
—
なぜ「PowerShellではなくVBScript」なのか？
現代のインフラ管理において、PowerShellは強力な選択肢だ。しかし、企業のレガシー環境や閉域網、あるいはEDRやセキュリティポリシーが厳格に適用された端末群において、PowerShellのRemoting（WinRM）が有効化されていない、あるいはスクリプト実行ポリシーで阻まれるケースは多々ある。
一方、WMI（DCOMポート 135 / 動的RPC） は、Windowsの根幹をなすプロトコルであり、ドメイン環境であれば追加の設定なしで初期状態から開放されていることが多い。
VBScriptは、このWMIを最もオーバヘッドが少なく、OSのネイティブ機能だけでダイレクトに叩ける至高のインターフェースなのだ。
—
堅牢なリモートレジストリ取得の設計思想
ネットワーク経由のレジストリ操作において、素人が書いたコードは確実に沈没する。以下の3点に妥協してはならない。
1. タイムアウトとエラーハンドリングの徹底
ネットワーク越しに存在しない端末や電源オフの端末を叩いた場合、WMIの接続（`GetObject`）は容赦なく数秒〜数十秒ハングアップする。これを制御するには、VBScriptの `On Error Resume Next` を戦略的に用い、エラー番号を即座に評価するブロック構造が不可欠である。
2. メモリリークの根絶（COMオブジェクトの解放）
ループ内でWMIのモディファイアやSWbemServicesを生成・破棄する場合、明示的な参照切断（`Set obj = Nothing`）を行わないと、VBScriptホスト（`cscript.exe`）のメモリフットプリントが肥大化し、プロセスがクラッシュする。
3. レジストリハイブの定数化
`StdRegProv` が扱うハイブ（HKEY_LOCAL_MACHINEなど）は数値で渡す必要がある。マジックナンバーを排除し、可読性の高いコードを書く。
—
プロダクションコード：リモートレジストリ一括収集スクリプト
以下のスクリプトは、ターゲット端末のリスト（テキストファイル）を読み込み、指定したレジストリキー配下の値をごっそり取得して、CSV形式で標準出力（またはファイル）に出力する実戦仕様のコードである。
‘ ==============================================================================
‘ Script Name : RemoteRegistryCollector.vbs
‘ Description : WMI StdRegProvを用いたリモート複数端末のレジストリ一括収集
‘ Author ： Enterprise Infrastructure Architecture Team
‘ ==============================================================================
Option Explicit
Const HKEY_LOCAL_MACHINE = &H80000002
Const TargetKeyPath = “SOFTWARE\Policies\Microsoft\Windows\System”
Const TargetValueName = “集团共通ポリシー適用確認値” ‘ 取得したい値の名前（適宜変更）
‘ 接続タイムアウト対策として、WbemLocator経由で接続するのがプロの技
Dim objFSO, objFile, strComputer, ts
Dim inputFilePath, outputFilePath
inputFilePath = “computers.txt”
outputFilePath = “registry_result.csv”
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
‘ 入力ファイルの存在チェック
If Not objFSO.FileExists(inputFilePath) Then
WScript.Echo “[ERROR] ターゲットリスト(” & inputFilePath & “)が見つかりません。”
WScript.Quit 1
End If
‘ 出力ファイルの初期化とヘッダー書き込み
Set ts = objFSO.CreateTextFile(outputFilePath, True)
ts.WriteLine “ComputerName,RegistryPath,ValueName,ValueData,Status”
Set objFile = objFSO.OpenTextFile(inputFilePath, 1)
Do Until objFile.AtEndOfStream
strComputer = Trim(objFile.ReadLine)
‘ 空行やコメントアウト行はスキップ
If strComputer <> “” And Left(strComputer, 1) <> “#” Then
Call CollectRegistry(strComputer, ts)
End If
Loop
objFile.Close
ts.Close
Set ts = Nothing
Set objFile = Nothing
Set objFSO = Nothing
WScript.Echo “[INFO] 処理が完了しました。出力ファイル: ” & outputFilePath
WScript.Quit 0
‘ ——————————————————————————
‘ Subroutine: CollectRegistry
‘ 指定された端末のWMI(StdRegProv)に接続し、レジストリ値を取得する
‘ ——————————————————————————
Sub CollectRegistry(strComputer, tsOutput)
Dim objLocator, objServices, oReg, errReturn, arrValues, strValue, dwValue, binValue
Dim connectionError
connectionError = False
‘ On Errorでネットワークタイムアウト等の致命的例外を捕捉
On Error Resume Next
Set objLocator = CreateObject(“WbemScripting.SWbemLocator”)
‘ 接続オブジェクトの生成（ドメイン認証情報が必要な場合は引数追加を検討）
Set objServices = objLocator.ConnectServer(strComputer, “root\default”)
If Err.Number <> 0 Then
connectionError = True
Else
‘ セキュリティ権限の調整（必要に応じて）
objServices.Security_.ImpersonationLevel = 3
Set oReg = objServices.Get(“StdRegProv”)
End If
On Error GoTo 0
If connectionError Then
WScript.Echo “[WARNING] 接続失敗: ” & strComputer
tsOutput.WriteLine strComputer & “,” & TargetKeyPath & “,N/A,N/A,Connection_Failed”
Exit Sub
End If
‘ レジストリ値の型によって取得メソッドを使い分けるのがStdRegProvの鉄則
‘ 今回は文字列(GetStringValue)の取得を例とする
Dim strValueData
errReturn = oReg.GetStringValue(HKEY_LOCAL_MACHINE, TargetKeyPath, TargetValueName, strValueData)
If errReturn = 0 Then
‘ 取得成功
WScript.Echo “[SUCCESS] 取得完了: ” & strComputer
‘ CSV用に出力のクレンジング（カンマや改行の除去）
strValueData = Replace(strValueData, “,”, ” “)
tsOutput.WriteLine strComputer & “,” & TargetKeyPath & “,” & TargetValueName & “,” & strValueData & “,Success”
Else
‘ キーまたは値が存在しない、あるいはアクセス権限エラー
WScript.Echo “[NOTICE] 値なし/権限エラー: ” & strComputer & ” (Code: ” & errReturn & “)”
tsOutput.WriteLine strComputer & “,” & TargetKeyPath & “,” & TargetValueName & “,N/A,Registry_Error_” & errReturn
End If
‘ 【極めて重要】COMオブジェクトのライフサイクル管理とメモリリーク防止
Set oReg = Nothing
Set objServices = Nothing
Set objLocator = Nothing
End Sub
—
アーキテクトが解説するコードの急所と注意点
1. `SWbemLocator.ConnectServer` の優位性
単なる `GetObject(“winmgmts://…”)` を使うと、VBScriptランタイム内部のデフォルト接続キャッシュやタイムアウト設定に引きずられ、応答のない端末でスクリプト全体が数分間フリーズする。
`SWbemLocator` を明示的にインスタンス化し、接続オブジェクトを分離することで、インフラ自動化に必須である「見切り（タイムアウト制御）」を担保しやすくなる。
2. `StdRegProv` のメソッド特性
`StdRegProv` は、レジストリの型（String, DWORD, Binary等）に応じて呼び出すべきメソッドが厳密に分かれている。
- 文字列なら `GetStringValue`
- 32ビット整数なら `GetDWORDValue`
- バイナリなら `GetBinaryValue`
もし存在しない型やメソッドを呼ぶと、WMIプロバイダ側でエラー（非ゼロの戻り値）を返す。プロダクション環境では、取得したい値のデータ型にあわせてメソッドをラップする関数を一つ噛ませる設計にすると、保守性が飛躍的に向上する。
3. ファイル・データベース連携の作法
今回のコードでは、結果をCSV (`registry_result.csv`) にストリーミング形式で書き込んでいる。
メモリ上にすべてのデータを配列として保持し最後に一括書き込みする手法をとるエンジニアがいるが、対象端末が1,000台を超えたあたりでメモリ消費やスクリプト異常終了時のデータ喪失リスク跳ね上がる。
「1台取得したら即座にファイルへ追記（Flush）」 これが、大規模バッチ処理における鉄則のアーキテクチャである。
—
運用時の前提条件（インフラ管理者への申し送り）
このスクリプトを実戦投入する際、以下のWindowsファイアウォールおよびDCOMの要件が満たされている必要がある。これらはVBScript側の問題ではなく、OSアーキテクチャの制約である。
- Windows ファイアウォール: ターゲット端末側で「Windows Management Instrumentation (WMI-In)」の規則が有効であること。
- 権限: スクリプトを実行するオペレーターが、リモート端末の `Administrators` グループ（またはそれに順ずるWMIアクセス権限）に所属していること。
—
結びにかえて
VBScriptは「古い言語」と揶揄されることがある。しかし、OSの根幹にダイレクトにアクセスし、環境依存のランタイムインストールの手間を一切かけずにインフラを自動制御する能力においては、いまだに現役最強クラスのツールボックスである。
設計思想を研ぎ澄まし、リソースのライフサイクルを完全にコントロールしたコードを書けば、VBScriptはあなたのインフラ管理を強力に支える無敗の武器となるだろう。
