レジストリ操作の「その場しのぎ」から卒業せよ：VBScriptによる動的ファイル生成と安全な一括適用の極意
こんにちは。現場で泥臭い自動化を積み重ねてきたエンジニアの皆さん、あるいは「マクロの記録」から一歩踏み出したいと考えている皆さん。
業務自動化の現場で最も恐ろしいのは、「あちこちのレジストリを直接スクリプトから書き換えて、戻し方がわからなくなること」です。VBScriptで直接`WScript.Shell`の`RegWrite`を叩くのは手軽ですが、失敗した際のリカバリが困難で、管理者権限の制御も煩雑になりがちです。
今日は、プロの現場で重宝される「一時的な設定ファイルを動的に生成し、OS標準の`reg.exe`に処理を委譲して、最後に跡形もなく消し去る」という、極めて安全でアーキテクチャに則った手法を伝授します。
—
1. なぜ「直接書き込み」ではなく「ファイル経由」なのか？
VBScriptから`RegWrite`を乱発すると、以下のようなリスクがあります。
- 権限の断絶: 実行中のプロセス権限と実際の書き込み先が競合し、エラーハンドリングが複雑化する。
- アトミック性の欠如: 途中でスクリプトがクラッシュした場合、設定が中途半端に残る。
- 可読性と可搬性: どの設定が適用されたのか履歴が残らない。
一方、`.reg`ファイルや`.ini`ファイルとして一旦出力し、`reg.exe`で適用すれば、「設定ファイル自体をログとして残せる」上に、OSネイティブのコマンドが失敗を確実に判定してくれます。
—
2. 実践：レジストリ一括適用スクリプトの全貌
このスクリプトは、「一時ファイルの生成 → コマンド実行 → 結果の確認 → 一時ファイルの自己削除」という、IT運用の黄金律を完璧に守ります。
‘ =================================================================
‘ RegAutoApply.vbs
‘ レジストリ変更を安全に行うための動的生成・適用スクリプト
‘ =================================================================
Option Explicit
Dim fso, shell, tempFolder, regFile, regPath
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set shell = CreateObject(“WScript.Shell”)
‘ 1. 一時ファイルパスの生成（環境変数TEMPを利用）
tempFolder = shell.ExpandEnvironmentStrings(“%TEMP%”)
regFile = fso.BuildPath(tempFolder, “apply_temp.reg”)
‘ 2. .regファイルの中身を記述（Windows Registry Editor Version 5.00必須）
Dim content
content = “Windows Registry Editor Version 5.00” & vbCrLf & _
vbCrLf & _
“[HKEY_CURRENT_USER\Software\MyCompany\AppConfig]” & vbCrLf & _
“””AutoRun””=dword:00000001” & vbCrLf & _
“””SettingMode””=””Verbose”””
‘ 3. ファイルの書き出し
Dim fileStream
Set fileStream = fso.CreateTextFile(regFile, True)
fileStream.Write content
fileStream.Close
‘ 4. reg.exeを使用して一括適用（/s はサイレントモード）
Dim cmd
cmd = “reg import ” & Chr(34) & regFile & Chr(34)
Dim exitCode
exitCode = shell.Run(cmd, 0, True) ‘ 0:非表示, True:完了まで待機
‘ 5. 結果判定と後始末
If exitCode = 0 Then
WScript.Echo “成功：レジストリ設定が適用されました。”
Else
WScript.Echo “警告：レジストリの適用に失敗しました。”
End If
‘ ファイルを確実に削除（自己消去）
If fso.FileExists(regFile) Then
fso.DeleteFile regFile
End If
Set fso = Nothing
Set shell = Nothing
—
3. ここをクリアすれば一人前！コードの重要ポイント
① `Chr(34)` を使ったパス囲み
ファイルパスにスペースが含まれている場合、コマンドプロンプトはエラーを吐きます。`Chr(34)` はダブルクォーテーション（”）を意味します。パスをこの文字で挟むのは、エンジニアの嗜みです。
② `shell.Run` の第3引数 `True` の意味
これがないと、VBScriptは「コマンドの完了を待たずに」次の行へ進んでしまいます。これでは、適用が終わる前にファイルを削除しようとしてエラーが発生します。「同期実行」こそが自動化の鍵です。
③ `reg.exe` の活用
`reg import` は非常に強力です。もし権限設定（ACL）まで触る必要がある場合は、`regini.exe` を使った同様のロジックに差し替えるだけで対応可能です。拡張性の高さがこの手法の魅力です。
—
4. 陥りやすいエラーとその対策
- 「アクセス拒否」が出る:
レジストリの書き込み権限がない場所（HKLMなど）を触ろうとしていませんか？ スクリプト自体を「管理者として実行」する必要があります。
- 文字コードの問題:
`fso.CreateTextFile` で生成するファイルは、デフォルトでASCII（またはANSI）になります。特殊文字や日本語を含むキーを扱う場合は、ADODB.Stream等を使ってUTF-16LE（BOM付き）で出力する工夫が必要になります。
—
まとめ：自動化とは「失敗をデザインすること」
優れた自動化スクリプトは、成功時よりも「失敗した時の挙動」が丁寧に設計されています。今回紹介した「一時ファイル方式」は、もしスクリプトが途中で止まっても、システム設定が破壊的に書き換わるリスクを最小限に抑えられます。
さあ、皆さんの環境でも、この「動的生成・一括適用」のテンプレートをベースに、自分だけの自動化ツールを育ててみてください。VBScriptは古い言語だと言われますが、Windowsの深部を理解する上でこれほど強力な武器は他にありません。
ここをクリアできれば、もうあなたは「マクロの記録者」ではありません。「システムアーキテクトの卵」です。応援しています！
