VBScriptを「使い捨ての玩具」から「堅牢なエンジン」へ昇華させる
多くのVBScript初心者は、パスをハードコーディングするという致命的なミスを犯す。`”C:\Windows\System32…”` と書いた瞬間、そのスクリプトは「たまたまCドライブにOSがある環境」でしか動かない、使い捨てのガラクタに成り下がる。
業務自動化の現場で最も恐れるべきは、環境依存による「謎のエラー」だ。VBScriptはレガシーだが、OSの深層に触れることができる強力な武器である。今回は、OSがどのドライブにインストールされていようとも決して動揺しない、プロの「システムパス解決術」を伝授する。
—
なぜハードコーディングが「悪」なのか
Windows環境において、OSのインストール先がCドライブであるという保証はどこにもない。サーバー環境や特殊な仮想環境では、DドライブやEドライブがブートドライブであることは珍しくない。
ハードコーディングされたパスを持つスクリプトを保守することは、時限爆弾を抱えて運用するのと同義だ。環境変数やWMIを駆使し、「その瞬間のOSの定義」を動的に取得することこそが、エンジニアとしての最低限の流儀である。
—
確実なパス解決のロジック：環境変数とWMIの使い分け
VBScriptでシステムパスを解決する際、以下の2つのアプローチを理解しておく必要がある。
1. 環境変数 (`SystemRoot`): 非常に高速で軽量。OSのインストールディレクトリ（例: `C:\Windows`）を取得するのに最適。
2. WMI (`Win32_OperatingSystem`): OSの詳細なメタデータを取得する。ドライブレターのみならず、OSの名称やビルド番号まで検証したい場合の「確定申告」的なアプローチ。
基本的には環境変数 `SystemRoot` を優先し、必要に応じてWMIで補完するのが、パフォーマンスと堅牢性を両立させる黄金比だ。
—
【実用コード】環境依存を排除する堅牢なパス解決モジュール
以下のコードは、単なるスニペットではない。そのままプロダクション環境のライブラリとして組み込めるよう設計した。
‘ ==============================================================================
‘ システムドライブを動的に解決する関数
‘ 戻り値: システムドライブのルート（例: “C:\”）
‘ ==============================================================================
Function GetSystemDrive()
Dim objShell, strSystemRoot, strDrive
Set objShell = CreateObject(“WScript.Shell”)
‘ 1. 最速の手段：環境変数 SystemRoot を利用する
strSystemRoot = objShell.ExpandEnvironmentStrings(“%SystemRoot%”)
‘ 2. 左から2文字を切り出してルートドライブとする (例: C:\Windows -> C:)
strDrive = Left(strSystemRoot, 2)
‘ 念のため、WMIで確認が必要な場合（高度な検証用）のロジック例
‘ Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
‘ Set colOS = objWMIService.ExecQuery(“Select SystemDrive From Win32_OperatingSystem”)
‘ For Each objOS in colOS
‘ strDrive = objOS.SystemDrive
‘ Next
GetSystemDrive = strDrive & “\”
Set objShell = Nothing
End Function
‘ — 使用例 —
Dim sysDrive
sysDrive = GetSystemDrive()
‘ ログ出力やファイル操作の起点として利用する
WScript.Echo “OSブートドライブは ” & sysDrive & ” です。”
‘ これにより、”C:\Temp” ではなく sysDrive & “Temp” と記述できる
—
開発現場で生き残るための「3つの鉄則」
1. オブジェクトの解放を怠るな
VBScriptはガベージコレクションが強力ではない。`Set obj = Nothing` を忘れると、特に長時間稼働する監視スクリプトにおいてメモリリークを引き起こす。必ずスコープの最後で明示的に解放せよ。
2. ファイルシステムとの連携は「絶対パス」を生成してから
ファイルを作成する際は、必ず `GetSystemDrive` のような関数を呼び出し、パスを連結すること。
‘ 悪い例: 決め打ち
Set fso = CreateObject(“Scripting.FileSystemObject”)
fso.CreateTextFile “C:\log.txt”
‘ 良い例: 動的解決
fso.CreateTextFile GetSystemDrive() & “log.txt”
3. WMIの濫用に注意せよ
WMIは強力だが、クエリを発行するたびにOS内部でプロセスが走り、わずかながら負荷がかかる。頻繁にループ内で呼び出すような設計は避け、スクリプトの冒頭で一度だけ取得し、変数にキャッシュすることを徹底せよ。
—
最後に：なぜ今、VBScriptなのか
モダンな言語がある中で、なぜVBScriptを論じるのか。それは、「OSのどこでも、インストール不要で即座に動く」という究極のポータビリティが、緊急時の自動化やレガシーシステム保守において最強の武器になるからだ。
このコードをコピー＆ペーストするだけでなく、なぜこの設計が「壊れないのか」を理解してほしい。コードの美学は、細部の堅牢性に宿る。あなたの書くスクリプトが、環境の変化に動じない「静かなる傑作」になることを期待している。
