VBScriptを掌握する：WScript.Shellによるレジストリ操作の「絶対安全圏」を構築せよ
現場で「とりあえず動くVBScript」を書くのは簡単だ。しかし、レジストリというOSの心臓部に触れるコードにおいて、「とりあえず」は許されない。不用意な書き込みやエラーハンドリングの欠如は、システム全体の破綻を招く。
今日は、WScript.Shellを用いたレジストリ操作において、プロのエンジニアが守るべき「堅牢性」の極意を伝授する。
—
1. なぜ「RegRead」はエラーを吐くのか？
初心者が陥る最大の罠は、「キーが存在するか確認せずにRegReadを叩く」ことだ。存在しないキーに対してRegReadを実行すれば、スクリプトは即座にランタイムエラーで停止する。
これを防ぐ唯一の道は、エラーを「トラップ」することではない。「エラーを予見した設計」にすることだ。
存在チェックの黄金律
RegReadは、存在しないキーにアクセスすると致命的なエラーを出す。そのため、以下のように `On Error Resume Next` を活用した「ラッパー関数」で操作をカプセル化するのが、プロダクション環境の鉄則だ。
‘ レジストリ値を取得する堅牢な関数
Function SafeRegRead(strKey)
Dim objShell: Set objShell = CreateObject(“WScript.Shell”)
On Error Resume Next
SafeRegRead = objShell.RegRead(strKey)
If Err.Number <> 0 Then
‘ エラー時は空文字を返して呼び出し元で制御する
SafeRegRead = “”
End If
On Error GoTo 0
End Function
—
2. 書き換えは「破壊」の裏返し：バックアップの義務
`RegWrite`を実行する際、現在の値を退避させていない者は、いつか必ず本番環境を破壊する。設定変更を行う前に、現在の値をローカルファイルに書き出す「バックアップルーチン」を組み込むべきだ。
実践的：安全なレジストリ書き換えコード
以下のコードは、値が存在すればバックアップを取り、新しい値を書き込むという一連の流れを構造化したものだ。
Sub SafeUpdateRegistry(strKey, strValue, strType)
Dim objShell: Set objShell = CreateObject(“WScript.Shell”)
Dim fso: Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim logFile: Set logFile = fso.CreateTextFile(“reg_backup.txt”, True)
‘ 1. 現在値のバックアップ（念のため）
On Error Resume Next
Dim currentValue: currentValue = objShell.RegRead(strKey)
If Err.Number = 0 Then
logFile.WriteLine strKey & ” = ” & currentValue
Else
logFile.WriteLine strKey & ” = [NEW_CREATE]”
End If
logFile.Close
On Error GoTo 0
‘ 2. 書き込み実行
‘ strType: “REG_SZ”, “REG_DWORD” など
objShell.RegWrite strKey, strValue, strType
If Err.Number <> 0 Then
WScript.Echo “致命的エラー: 書き込みに失敗しました。”
Else
WScript.Echo “成功: レジストリを更新しました。”
End If
End Sub
—
3. レジストリ操作における「3つの禁忌」
業務自動化ツールを開発する際、以下の3点は心に刻んでおいてほしい。
1. ルートキーの直接操作を避ける
`HKEY_LOCAL_MACHINE` (HKLM) への書き込みは管理者権限が必須だ。スクリプトが「一般ユーザー権限」で動く環境を想定し、書き込みが不要な読み取り専用設定は `HKEY_CURRENT_USER` (HKCU) 以下のハイブに限定せよ。
2. 型（Type）の不一致を許容しない
`RegWrite` の第3引数（型）を省略すると、意図せぬ型で保存されることがある。特に数値（DWORD）を扱う際は、必ず `”REG_DWORD”` を明示すること。型変換の曖昧さは、後続のアプリケーションのバグを誘発する。
3. RegDeleteの「空のキー」問題
`RegDelete` で値を消しても、親キーが空の状態として残ることがある。管理対象のキーを完全に消去したい場合は、キーそのものを削除するのか、値だけを消すのかを明確に定義せよ。
—
4. プロの視点：なぜVBScriptなのか
「今どきPowerShellがあるのに、なぜVBScriptなのか？」という声が聞こえてきそうだ。
理由は明快だ。「依存関係の少なさ」と「環境の普遍性」だ。実行ポリシーの変更を強いられるPowerShellとは異なり、VBScriptは古のWindowsから最新のOSまで、設定変更なしで実行できる。
安定した業務ツールを作るということは、「どんな環境でも動く最小構成」を追求することに他ならない。
最後に
レジストリ操作は、強力な武器であると同時に、扱いを誤れば「毒」にもなる。今日提示した手法は、単なるコードの断片ではない。君たちが現場で「トラブルを未然に防ぎ、周囲から信頼されるエンジニア」になるための作法だ。
まずは、自分の環境でキーの存在チェックとバックアップロジックを実装することから始めてほしい。コードが動くことの喜びを、信頼の裏付けとともに味わうがいい。
