こんにちは！インフラの現場を駆け抜けるエンジニアの皆さん、日々の端末管理にお疲れ様です。
「複数台ある社内PCのレジストリ設定を、一斉に、しかもリモートで確認したい……」
そんな絶望的な状況に直面したことはありませんか？1台ずつリモートデスクトップで繋いでレジストリエディタを開いて……なんてやっていたら、定時までに終わるものも終わりませんよね。
今回は、VBScriptとWMI（Windows Management Instrumentation）の至宝、`StdRegProv` クラスを組み合わせて、ネットワーク経由で複数端末のレジストリをごっそり動的収集する極意を伝授します。
ここをクリアすれば、VBScriptの真骨頂である「OSを直接手足のように操る感覚」が掴め、あなたの自動化スキルは一気にプロの領域へ到達します。さあ、一緒に扉を開きましょう！
—
1. なぜ「StdRegProv」なのか？（VBScript × WMI の本質）
レジストリを操作するVBScriptといえば、`WshShell` オブジェクトの `RegRead` が有名です。しかし、アレには致命的な弱点があります。「ローカルPCのレジストリしか読めない」のです。
そこで登場するのが、WMIのレジストリプロバイダである `StdRegProv` です。
こいつの何が凄いかというと、ネットワーク越し（リモート）のPCを指定して、レジストリのキーや値をごっそり取得できる点にあります。さらに、VBScriptから見ると、COMコンポーネントを通じてOSの深部と直接対話できるため、追加のインストール不要で、どのWindows環境（Windows 7から最新の11まで）でも標準で動くという圧倒的なアドバンテージがあります。
🧠 押さえておきたい前提知識：リモート接続の壁
リモートレジストリを取得するためには、対象のPCで以下の条件がクリアされている必要があります。ここにつまずく初心者が非常に多いので、最初に覚えておきましょう！
1. リモートレジストリサービス（Remote Registry）が起動していること（または手動で起動できる状態）。
2. ファイアウォールで WMI（RPC / DCOM） の通信が許可されていること。
3. 実行しているあなたのアカウントが、対象PCの管理者権限（Administratorなど）を持っていること。
—
2. 実践！リモートレジストリ一括取得スクリプト
百聞は一見に如かず。まずは、特定のネットワーク端末（今回は例として “PC-001” とします）の指定したレジストリキー配下を列挙し、値をごっそり抜き取るスクリプトの全貌をお見せします。
デスクトップにメモ帳を開いて、以下のコードを `RemoteRegReader.vbs` という名前で保存してください。
Option Explicit
‘ =========================================================================
‘ スクリプト名: RemoteRegReader.vbs
‘ 概要: WMI StdRegProv を用いてリモートPCのレジストリを動的取得する
‘ =========================================================================
Dim strComputer, objWMIService, objRegistry
Dim HKEY_LOCAL_MACHINE
Dim strKeyPath, arrSubKeys, subKey
Dim strValueName, strValueData, dwValueData
‘ 1. ターゲットのPC名（またはIPアドレス）を指定
strComputer = “PC-001”
‘ 2. レジストリハイルの定数定義
‘ HKEY_LOCAL_MACHINE は WMIでは &H80000002 として扱われます
HKEY_LOCAL_MACHINE = &H80000002
WScript.Echo “=== ” & strComputer & ” のレジストリ調査を開始します ===”
On Error Resume Next
‘ 3. WMIサービスへの接続（接続先とネームスペースを指定）
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\default”)
If Err.Number <> 0 Then
WScript.Echo “[エラー] ” & strComputer & ” へのWMI接続に失敗しました。エラーコード: ” & Hex(Err.Number)
WScript.Quit
End If
‘ 4. レジストリ操作用クラス（StdRegProv）のインスタンスを取得
Set objRegistry = objWMIService.Get(“StdRegProv”)
If Err.Number <> 0 Then
WScript.Echo “[エラー] StdRegProv の取得に失敗しました。”
WScript.Quit
End If
On Error Goto 0 ‘ エラー監視を通常に戻す
‘ 5. サブキーを列挙する（例：インストールされているソフトウェア一覧のキーなど）
strKeyPath = “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall”
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
‘ 6. 取得したサブキーをループ処理して動的に表示
If IsArray(arrSubKeys) Then
WScript.Echo vbCrLf & “— [Uninstall キー配下の検出結果] —”
For Each subKey in arrSubKeys
WScript.Echo “サブキー: ” & subKey
‘ おまけ：特定のサブキーから「DisplayName」の値（文字列）を取得してみる
Dim strSubKeyPath, strDisplayName
strSubKeyPath = strKeyPath & “\” & subKey
objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strSubKeyPath, “DisplayName”, strDisplayName
If strDisplayName <> “” Then
WScript.Echo ” -> アプリ名: ” & strDisplayName
End If
Next
Else
WScript.Echo “サブキーが見つからないか、アクセス権がありません。”
End If
WScript.Echo vbCrLf & “=== 処理が完了しました ===”
‘ オブジェクトの解放（メモリ管理の美学）
Set objRegistry = Nothing
Set objWMIService = Nothing
—
3. コードの急所と、知的なエンジニアが解説する「意味」
初心者の方に向けて、このスクリプトの重要なポイントを3つに絞って解説します。ここを理解すれば、どんなレジストリ操作も怖くありません。
① 接続文字列の魔法： `winmgmts:\\root\default`
VBScriptの `GetObject` 関数に渡しているこの文字列が、ネットワーク経由で別PCのOS内部へ侵入するための「合言葉」です。
通常のWMI操作は `root\cimv2` を使いますが、レジストリを司る `StdRegProv` は `root\default` という専用の部屋（ネームスペース）に住んでいます。ここがプログラミング初心者がハマりやすい最初の罠なので、絶対に覚えておいてください。
② レジストリの定数（ハイブ）は「16進数」で指定する
VBScriptには、C#やVBAのように `HKEY_LOCAL_MACHINE` という名前がデフォルトでは用意されていません（WMI経由の場合）。そのため、OSが理解できるコード値（魔法の数字）を直接指定します。
- `HKEY_CLASSES_ROOT` = `&H80000000`
- `HKEY_CURRENT_USER` = `&H80000001`
- `HKEY_LOCAL_MACHINE` = `&H80000002`
- `HKEY_USERS` = `&H80000003`
③ メソッドによる値の取得の使い分け
`StdRegProv` には、データの型に応じたメソッドが用意されています。
- 文字列（REG_SZなど）を取得したいとき： `GetStringValue`
- 数値（REG_DWORD）を取得したいとき： `GetDWORDValue`
- キーの配下を一覧化したいとき： `EnumKey`
今回は文字列を取る `GetStringValue` と、一覧化する `EnumKey` を組み合わせて使いました。
—
4. 現場でありがちな「陥りやすいエラー」と対策
このスクリプトを実際に実務で動かしたとき、必ずと言っていいほど直面するエラーと、そのスマートな対処法をシェアします。
🚨 エラー1：エラー番号 `0x80041003` (アクセスカウンター拒否)
- 原因: ターゲットPCの権限不足、またはUAC（ユーザーアカウント制御）が邪魔をしています。
- 対策: スクリプトを実行している端末で、ドメイン管理者権限を持つアカウントでログインし直すか、タスクスケジューラ等を使って最高特権で実行してください。
🚨 エラー2：エラー番号 `0x800706BA` (RPC サーバーを利用できません)
- 原因: ネットワークが繋がっていない、PC名が間違っている、または相手側のファイアウォール（Windows Defender Firewall等）がWMIの通信をブロックしています。
- 対策: 対象PCに対して `ping` が通るか確認し、ファイアウォールで「WMI受信規則」が有効になっているかを確認します。
—
5. 【発展】複数端末（テキストファイル）へ一括展開する応用テクニック
「1台ずつじゃなくて、50台のPCリスト（`pc_list.txt`）から一気に状態を収集したい！」
そんな現場の要望に応えるために、先ほどのコードをループ構造に拡張するヒントを授けます。
‘ テキストファイルからPC名を1行ずつ読み込んで処理するイメージ
Dim objFSO, objFile, strLine
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objFile = objFSO.OpenTextFile(“C:\temp\pc_list.txt”, 1)
Do Until objFile.AtEndOfStream
strLine = Trim(objFile.ReadLine)
If strLine <> “” Then
‘ ここに先ほどの WMI 接続＆レジストリ取得処理を組み込む！
WScript.Echo “処理中: ” & strLine
End If
Loop
objFile.Close
これをテキストファイル出力（CSV形式など）と組み合わせれば、数分で全端末のレジストリ監査レポートが完成します。ExcelやPowerShellに頼らなくても、VBScriptだけでここまでスマートにインフラ管理ができるのです。
—
おわりに
今回は、WMIの `StdRegProv` クラスを用いたリモートレジストリの一覧取得について解説しました。
VBScriptは「古い言語」と揶揄されることもありますが、Windows環境において「何もインストールされていないクリーンな状態ですぐに動く」という最大の強みを持っています。インフラエンジニアやヘルプデスクにとって、これほど頼りになる相棒はいません。
ここをクリアしたあなたなら、もうVBScriptの基礎はバッチリです。ぜひ明日の実務でこのスクリプトを試し、周囲をアッと言わせる自動化を成し遂げてくださいね！
