レジストリ変更の「泥沼」から脱却せよ：動的 reg/regini 生成による安全な一括適用アーキテクチャ
現場の業務自動化において、レジストリ操作は「諸刃の剣」だ。WScript.Shellの`RegWrite`を無計画に多用してはいないか？ 実行順序の依存関係、エラーハンドリングの欠如、そして何より「どのキーがいつ書き換わったか」の追跡不可能性。これらは将来的なシステムトラブルの温床となる。
真の自動化エンジニアは、レジストリ操作を「スクリプト内の命令」として書かない。「宣言的な構成ファイル」を動的に生成し、OSの標準コマンドに「適用」という責務を委譲する。 これが、バグを排除し、保守性を極限まで高めるための唯一の解だ。
—
なぜ `RegWrite` ではなく外部コマンドなのか
`WScript.Shell.RegWrite` には致命的な欠陥が二つある。
1. アトミック性の欠如: 処理の途中でスクリプトがクラッシュした場合、レジストリは中途半端な状態（不整合）で放置される。
2. 権限とプロセスの壁: `RegWrite` は現在のユーザーコンテキストの制限を強く受ける。特に `HKEY_LOCAL_MACHINE` の複雑なアクセス権限変更や、`regini.exe` を必要とする特殊な操作には無力だ。
我々は、「一時ファイル生成 → コマンド実行 → 終了コード検証 → セルフクリーニング」 というパイプラインを構築することで、この問題を完全に解決する。
—
堅牢なレジストリ適用エンジンの設計
以下のコードは、単なるスクリプトではない。プロダクション環境でそのまま使える、堅牢なテンプレートだ。
Option Explicit
‘ メイン実行ロジック
Call ApplyRegistryConfiguration()
Sub ApplyRegistryConfiguration()
Dim fso, shell, tempFolder, regFile, regIniFile
Dim regPath, iniPath, cmd
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set shell = CreateObject(“WScript.Shell”)
‘ 一時フォルダの取得
tempFolder = fso.GetSpecialFolder(2).Path
regFile = tempFolder & “\config_” & Replace(Replace(Now, “/”, “”), “:”, “”) & “.reg”
regIniFile = tempFolder & “\access_” & Replace(Replace(Now, “/”, “”), “:”, “”) & “.ini”
‘ 1. .reg ファイルの生成（データ設定）
Dim regContent: regContent = “Windows Registry Editor Version 5.00” & vbCrLf & _
“[HKEY_LOCAL_MACHINE\SOFTWARE\MyApp]” & vbCrLf & _
“””Version””=””1.0.0″”” & vbCrLf
Call WriteFile(regFile, regContent)
‘ 2. .ini ファイルの生成（権限設定）
Dim iniContent: iniContent = “HKEY_LOCAL_MACHINE\SOFTWARE\MyApp [1 5 7 17]”
Call WriteFile(regIniFile, iniContent)
‘ 3. 実行と検証
‘ reg import は静かな実行が基本。成功時は 0 が返る。
If shell.Run(“reg import ” & regFile, 0, True) = 0 Then
‘ regini はシステム構成変更の要。管理者権限必須。
If shell.Run(“regini ” & regIniFile, 0, True) = 0 Then
WScript.Echo “成功: レジストリ適用完了”
End If
End If
‘ 4. セルフクリーニング（痕跡を残さない）
fso.DeleteFile regFile
fso.DeleteFile regIniFile
Set shell = Nothing
Set fso = Nothing
End Sub
‘ ファイル書き込みの共通関数（エンコーディングに注意）
Sub WriteFile(path, content)
Dim fso, ts
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ Unicode(UTF-16)で書き出さないとregコマンドが文字化けする罠がある
Set ts = fso.CreateTextFile(path, True, True)
ts.Write content
ts.Close
End Sub
—
プロフェッショナルが守るべき3つの鉄則
1. エンコーディングの呪縛を解く
VBScriptの `CreateTextFile` で `True` (Unicode) を指定するのは必須だ。レジストリファイルがUTF-8やShift-JISで保存されると、OSの `reg.exe` はバイナリのヘッダを認識できず、サイレントに失敗する。この「動かない理由が不明」という状況を避けるのが、エンジニアの礼儀である。
2. 実行時の一貫性（アトミックな書き込み）
もし変更対象が複数ある場合、すべてを一つの `.reg` ファイルにまとめよ。ファイルが複数に分かれると、途中の失敗を検知した後の「ロールバック処理」が必要になる。単一のトランザクションとして実行ファイルを生成し、成功時のみ適用する設計を徹底せよ。
3. 実行ユーザーのコンテキスト
このスクリプトは、単にダブルクリックするだけでは機能しない場合がある（特にHKLM配下）。必ず「管理者として実行」されたことをスクリプトの冒頭でチェックするルーチンを加えるか、外部から昇格実行する仕組みをセットで運用すること。
最後に：自動化の真髄
スクリプトを書くことは、作業を「コード化」することではない。「再現性」と「可観測性」を担保することだ。今回紹介した手法は、レジストリというOSの心臓部を、外部ファイルという「構成情報」として管理することを可能にする。
さあ、場当たり的な `RegWrite` は今すぐ捨てろ。明日のトラブルを未然に防ぐ、堅牢なアーキテクチャを実装するのだ。それが、プロフェッショナルとしての誇りである。
