【リモートレジストリ一括取得】WMI StdRegProv クラスを用いたネットワーク経由での複数端末設定の動的収集
レガシーシステムの保全、あるいはドメインに参加する何百台もの端末の構成監査において、GUIによるリモートデスクトップ接続や、サードパーティ製のエージェント常駐型ツールに頼るアプローチは、大規模インフラの現場においては悪手でしかない。
ネットワーク帯域の無駄な消費、セキュリティポリシーの壁、そして何よりも「スケールしない」。
我々インフラエンジニアが手にすべきは、WindowsOSの深部に標準搭載されているメカニズムを直接叩く、極限まで軽量かつ強靭なスクリプトだ。今回は、WMI（Windows Management Instrumentation）の `StdRegProv` クラスを駆使し、リモートPCのレジストリをネットワーク経由で動的かつ高速に一括収集する技術的極意を解説する。
—
1. なぜ `StdRegProv` なのか？ アーキテクチャの真実
レジストリ操作といえば、PowerShellの `Microsoft.PowerShell.Core\Registry` プロバイダや、.NET Frameworkの `Microsoft.Win32.RegistryKey` を思い浮かべる読者も多いだろう。しかし、閉塞したレガシー環境、あるいはPowerShellの実行ポリシー（ExecutionPolicy）が厳格に制限されたエンタープライズ環境において、VBScript（WSH）によるアプローチは依然として最強のフォールバックであり、軽量な特権実行手段である。
その中でも `StdRegProv`（System Registry Provider）は、WMIの `root\default` ネームスペースに常駐する標準クラスであり、以下の圧倒的な優位性を持つ。
- エージェントレス: リモート端末側に専用の常駐プログラムを一切必要としない。
- ファイアウォール貫通性: 標準的なDCOM/RPCポート（TCP 135および動的RPCポート、またはWMI用の WinRM / 5985など）のみで動作する。
- 低オーバーヘッド: オブジェクトのインスタンス生成コストが極めて低く、適切に解放を行えばメモリリークを完全に回避できる。
—
2. 現場で直面する罠と、チーフアーキテクトの知見
リモートレジストリ操作における最大の障壁は、「DCOMセキュリティのハンドリング」 と 「VARIANT型配列の扱いの複雑さ」 である。
特に `EnumKey` や `EnumValues` メソッドを呼び出す際、レジストリキーのサブキー一覧はVariant型の動的配列として返される。VBScriptの弱点である「型推論の曖昧さ」が原因で、この配列の境界チェックやNull判定を誤ると、スクリプトは容赦なくクラッシュする。
また、WMIオブジェクトのライフサイクル管理を怠ると、COMコンポーネントの参照カウントが解放されず、数百台規模のループ処理を行った瞬間にメモリリークを引き起こし、実行端末のリソースを枯渇させる。
—
3. 実装コード：リモートレジストリ動的収集エンジン
以下のコードは、指定したコンピュータ群に対して、リモートから特定のレジストリキー配下を走査し、設定値を動的に吸い上げるためのプロダクション品質のVBScriptである。
エディタにコピーし、拡張子 `.vbs` として保存の上、管理者権限で実行せよ。
‘ ==============================================================================
‘ 処理名 : RemoteRegistryHarvester.vbs
‘ 概要 : WMI StdRegProv を用いた複数端末のレジストリ高速一括収集スクリプト
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Option Explicit
Const HKEY_LOCAL_MACHINE = &H80000002
Const CONST_TARGET_KEY = “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall”
‘ 収集対象のコンピュータリスト（実際にはCSVやDBから動的に読み込むことも可能）
Dim arrComputers
arrComputers = Array(“127.0.0.1”, “RemotePC01”, “RemotePC02”)
Call Main()
Sub Main()
Dim strComputer
WScript.Echo “=== レジストリ一括収集処理を開始します ===”
For Each strComputer In arrComputers
WScript.Echo vbCrLf & “—————————————-”
WScript.Echo “対象端末: ” & strComputer
WScript.Echo “—————————————-”
Call HarvestRegistry(strComputer)
Next
WScript.Echo vbCrLf & “=== 全ての処理が完了しました ===”
End Sub
Sub HarvestRegistry(ByRef strComputer)
Dim objLocator, objServices, objStdRegProv
Dim lRC, arrSubKeys, strSubKey
Dim dwValue, strValue
On Error Resume Next
‘ 1. WMI Locatorの生成（接続タイムアウトや資格情報の制御に必須）
Set objLocator = CreateObject(“WbemScripting.SWbemLocator”)
If Err.Number <> 0 Then
WScript.Echo “[ERROR] SWbemLocatorの生成に失敗しました: ” & Err.Description
Exit Sub
End If
‘ 2. リモートサービスへの接続 (root\default)
‘ ※ 異なる資格情報を使う場合は SWbemLocator.ConnectServer の引数に User/Password を渡すこと
Set objServices = objLocator.ConnectServer(strComputer, “root\default”)
If Err.Number <> 0 Then
WScript.Echo “[ERROR] 接続失敗 (” & strComputer & “): ” & Err.Description
On Error GoTo 0
Exit Sub
End If
‘ セキュリティレベルの設定（必要に応じ）
objServices.Security_.ImpersonationLevel = 3 ‘ Impersonate
objServices.Security_.AuthenticationLevel = 4 ‘ Packet
‘ 3. StdRegProv オブジェクトの直接取得
‘ リモートの SWbemServices から Get を呼び出すことで、リモート側のStdRegProvをバインド
Set objStdRegProv = objServices.Get(“StdRegProv”)
If Err.Number <> 0 Then
WScript.Echo “[ERROR] StdRegProvの取得に失敗しました: ” & Err.Description
Set objServices = Nothing
Set objLocator = Nothing
On Error GoTo 0
Exit Sub
End If
On Error GoTo 0 ‘ 予期せぬエラー隠蔽を解除
‘ 4. レジストリキーの列挙 (EnumKey)
‘ 引数: hDefKey, sSubKeyName, sNames (Out)
lRC = objStdRegProv.EnumKey(HKEY_LOCAL_MACHINE, CONST_TARGET_KEY, arrSubKeys)
If lRC = 0 Then
If Not IsNull(arrSubKeys) Then
WScript.Echo “[-] 対象サブキー総数: ” & UBound(arrSubKeys) + 1
‘ サブキーを走査し、特定の値を抽出する例（ここではDisplayNameを取得）
For Each strSubKey In arrSubKeys
Dim subKeyPath, strDisplayName
subKeyPath = CONST_TARGET_KEY & “\” & strSubKey
‘ 文字列値の取得テスト (GetStringValue)
lRC = objStdRegProv.GetStringValue(HKEY_LOCAL_MACHINE, subKeyPath, “DisplayName”, strDisplayName)
If lRC = 0 And strDisplayName <> “” Then
WScript.Echo ” -> ” & strDisplayName
End If
Next
Else
WScript.Echo “[-] サブキーが存在しません。”
End If
Else
WScript.Echo “[WARNING] EnumKey 実行失敗。エラーコード: ” & lRC & ” (権限またはパスの誤り)”
End If
‘ 5. 【極めて重要】オブジェクトの明示的解放によるメモリ最適化
‘ VBScriptのガベージコレクタ頼みでは、大量ループ時にCOMホストのメモリリークを招く
Set objStdRegProv = Nothing
Set objServices = Nothing
Set objLocator = Nothing
End Sub
—
4. コードの深層解説：プロフェッショナルの視点
オブジェクトの明示的解放 (`Set obj = Nothing`)
VBScriptの内部ランタイム（`vbscript.dll`）は、COMオブジェクトの参照カウント（Reference Counting）に基づいてメモリ管理を行っている。しかし、スクリプトブロックが終了するまでオブジェクトのスコープが維持される場合や、長大なループ処理を行う場合、`Set obj = Nothing` を明示的に記述しないと、WMIプロバイダとのDCOMセッションが維持されたままとなり、ターゲット側・クライアント側の双方のリソースを圧迫する。アーキテクトたる者、メモリのライフサイクルは自身の手で完結させなければならない。
`EnumKey` の戻り値（Error Code）の解釈
`StdRegProv` のメソッドは、成否をVBScriptの `Err` オブジェクトではなく、メソッドの戻り値（Long型のエラーコード）として返す仕様になっている。
- `0` : 成功
- `2` : ファイル（キー）が見つからない
- `5` : アクセス拒否（権限不足）
この設計思想を理解せず、`On Error Resume Next` に頼り切ったコードを書く初学者が多いが、WMIメソッドの戻り値コードを適切にハンドリングしてこそ、堅牢なシステム監視スクリプトと言える。
—
5. 総括
レガシーな技術と侮るなかれ。VBScriptとWMI `StdRegProv` の組み合わせは、軽量、高速、そして環境を選ばないという、インフラ自動化における「究極のミニマリズム」を体現している。
PowerShell全盛の現在であっても、軽量な死活・設定監査スクリプトをサクッとデプロイしなければならない極限の現場において、この知見は必ずやあなたの強力な武器となるはずだ。無駄を削ぎ落としたコードで、インフラを支配せよ。
