VBScriptの亡霊を飼い慣らせ：32bit/64bitの境界線を越えるアーキテクチャの真実
かつてVBScriptは「スクリプト言語の王」だった。しかし、現代の64bit Windowsにおいて、それは「時折牙を剥く不安定なレガシー」に変貌した。
現場で最も多くのエンジニアが膝を折るのが、`cscript.exe` の実行ビット数に起因する「レジストリ・リダイレクト」と「COMコンポーネントの不在」だ。今日は、このアーキテクチャの深淵を解説し、環境を自己修復する防衛的プログラミングの極意を授ける。
—
1. なぜ「System32」が罠になるのか
Windows 64bit環境には、二つの `cscript.exe` が存在する。
- `C:\Windows\System32\cscript.exe`: 64bitプロセスとして動作。
- `C:\Windows\SysWOW64\cscript.exe`: 32bitプロセスとして動作。
ここで発生する最悪の罠は、レジストリの自動リダイレクトだ。32bitプロセスが `HKEY_LOCAL_MACHINE\Software` にアクセスしようとすると、OSは透過的に `HKEY_LOCAL_MACHINE\Software\WOW6432Node` へと転送する。
「あるはずのCOMが見当たらない」「設定したはずのレジストリ値が読み込めない」。これらはバグではなく、OSが親切心で用意した「隔離壁」の仕業である。
2. 実行環境の自動判別と自己修復（セルフ・リアーキテクチャ）
スクリプトが「どのビット数で動いているか」を判定し、意図しない環境であれば正しいバイナリで再起動する。これが、堅牢なシステム管理スクリプトの必須要件だ。
以下は、この課題を解決するための「自己再起動」ロジックである。
‘ アーキテクチャ自動判別＆再起動スクリプト
Option Explicit
Const TARGET_BIT = 32 ‘ 32bitで動かしたいと仮定
If IsTargetArchitecture(TARGET_BIT) = False Then
Call RelaunchWithCorrectArch(TARGET_BIT)
WScript.Quit
End If
‘ メイン処理
WScript.Echo “現在のプロセスは正しく動作しています: ” & WScript.FullName
Function IsTargetArchitecture(bit)
Dim shell, arch
Set shell = CreateObject(“WScript.Shell”)
‘ プロセッサアーキテクチャ判定（環境変数を利用）
‘ ※単純化のため、SysWOW64フォルダの存在確認でも代用可能
If bit = 32 Then
IsTargetArchitecture = Not (InStr(LCase(WScript.FullName), “syswow64”) = 0)
Else
IsTargetArchitecture = (InStr(LCase(WScript.FullName), “system32”) > 0)
End If
End Function
Sub RelaunchWithCorrectArch(bit)
Dim shell, path, cmd
Set shell = CreateObject(“WScript.Shell”)
‘ 適切なcscript.exeのパスを構築
If bit = 32 Then
path = shell.ExpandEnvironmentStrings(“%SystemRoot%\SysWOW64\cscript.exe”)
Else
path = shell.ExpandEnvironmentStrings(“%SystemRoot%\System32\cscript.exe”)
End If
cmd = “””” & path & “”” “”” & WScript.ScriptFullName & “”””
shell.Run cmd, 1, False
End Sub
3. メモリ管理とCOMのライフサイクル
VBScriptはガベージコレクションを備えているが、COMオブジェクトに関しては「解放のタイミング」を自ら制御すべきだ。特に、大量のファイル処理やAPI連携を行う場合、`Set obj = Nothing` を怠ると、バックグラウンドでプロセスがゾンビ化し、メモリリークの温床となる。
鉄則：スコープの最小化と明示的解放
「関数内で生成したオブジェクトは、その関数内で殺す」。これが鉄則だ。
Sub ProcessComObject()
Dim objFileSys
Set objFileSys = CreateObject(“Scripting.FileSystemObject”)
‘ …処理…
‘ プロセス終了時に確実にメモリを解放
Set objFileSys = Nothing
End Sub
4. シニアエンジニアへの提言：VBScriptの未来
VBScriptは、もはや新規開発に選ぶ言語ではない。しかし、既に稼働している数千の自動化タスクを保守する我々にとって、これは「動く魔法の杖」だ。
- 環境の分離: COMコンポーネントのビット数が不明な場合は、必ず `SysWOW64` での実行を強制し、レジストリの整合性を確保せよ。
- 例外処理の構築: `On Error Resume Next` は諸刃の剣だ。必ず `Err.Number` をチェックし、ログに詳細を残す「ロギング・ラッパー」を実装せよ。
アーキテクチャの境界線を理解した者だけが、レガシーを「負債」ではなく「資産」として運用できる。コードは嘘をつかない。OSの深層を理解し、その挙動を先回りする設計こそが、我々エンジニアの矜持である。
—
「技術は古びるが、設計思想は永遠だ。境界を制するものが、インフラを制する。」
