【環境別挙動切り替え】ハードコーディングを根絶せよ！WScript.Shellで実現するマルチ環境対応VBScriptアーキテクチャ
開発環境ではローカルのテスト用DBを叩き、検証環境（STG）ではモックサーバーへ接続し、本番環境（PROD）では絶対に落とせない本番DBへルーティングする――。
モダンなアプリケーション開発においては「当たり前」の環境分離だが、レガシーな業務自動化やインフラのキッティングで未だに現役稼働するVBScript（Visual Basic Scripting Edition）の領域になると、この基本が完全に抜け落ちている現場を数多く目撃する。
「本番用の接続文字列が書かれたスクリプトを、手作業で書き換えてテスト環境で実行し、戻し忘れて本番データを破壊した」
「開発者のローカルPCのハードコードされたパスが原因で、別の担当者のPCで実行した途端にエラーで落ちる」
こうした人災をゼロにするために、VBScriptの実行環境（WSH）とOSの環境変数を完全に掌握し、「1つのスクリプトファイルで、環境に応じて自律的に挙動を変える」ための堅牢な設計手法を伝授しよう。
—
1. なぜ「設定ファイルの読み込み」や「条件分岐のハードコーディング」ではダメなのか？
素朴なプログラマブルな発想として、以下のようなコードを書く者がいる。
‘ 【悪手】スクリプト内に環境ごとの設定をベタ書きする
Dim isProduction
isProduction = False ‘ ←ここを手動で書き換える恐怖
If isProduction Then
dbConnStr = “Provider=SQLOLEDB;Data Source=prod-server…”
Else
dbConnStr = “Provider=SQLOLEDB;Data Source=dev-server…”
End If
このアプローチは保守性のアンチパターンである。
1. 実行時のヒューマンエラー: 担当者がフラグを書き換えるのを忘れて本番環境でテスト実行してしまう。
2. トレーサビリティの欠如: スクリプト自体を変更するため、Git等のバージョン管理で「誰がどの環境用としてビルドしたか」のノイズが増える。
3. 権限とスコープのミスマッチ: スクリプトファイル自体に機微情報（パスワードや本番サーバーIP）が含まれるリスクが高まる。
業務自動化ツールを「プロダクション品質」に引き上げるためには、「スクリプトのコード（ロジック）は一切変更せず、環境（OS）側からコンテキストを注入させる」という外部化の原則を徹底しなければならない。
—
2. WScript.Shell と環境変数コレクションの深層
WSH（Windows Script Host）の `WScript.Shell` オブジェクトが提供する `.Environment` コレクションは、VBScriptからOSの環境変数を安全に取得するための強力なインターフェースだ。
Set objShell = CreateObject(“WScript.Shell”)
Set objEnv = objShell.Environment(“Process”) ‘ または “User”, “System”, “Machine”
ここでプロフェッショナルとして知っておくべき重要な仕様がある。引数に指定する環境変数ブロックの種類による挙動の違いだ。
| 引数 | スコープ | 特徴 |
| :— | :— | :— |
| `”Process”` | プロセス固有 | 現在のWScriptプロセスとその子孫のみ。最も安全だが、OS全体に永続化はされない。 |
| `”User”` | ユーザー環境変数 | ログオン中のユーザーのレジストリに保存される。 |
| `”System”` (または `”Machine”`) | システム環境変数 | OS全体に適用される。読み取りには管理者権限が必要な場合がある。 |
マルチ環境対応のアーキテクチャでは、OSのシステムまたはユーザー環境変数にあらかじめ `APP_ENV`（値は `DEV`, `STG`, `PROD` のいずれか）というカスタム環境変数を定義しておき、それをスクリプト側から読み取る設計が最も堅牢かつスマートである。
—
3. 【プロダクションコード】環境自動判別・動的設定ルーター
ここに示すのは、実際のエンタープライズ環境のバッチ処理やファイル連携ツールでそのまま使えるテンプレート構造だ。エラーハンドリング（On Error）とオブジェクトのクリーンアップ、そして環境変数のフォールバック（未設定時の安全装置）を完備している。
‘ ==============================================================================
‘ Script Name: EnterpriseAutomationTool.vbs
‘ Description: OS環境変数を検知し、動作環境に応じたパラメータを動的ロードする
‘ Architecture: Defensive & Environment-Aware Pattern
‘ ==============================================================================
Option Explicit
‘ メイン処理の実行
Main
Sub Main()
Dim objShell, objEnv, currentEnv
Dim configDbConn, configLogPath, configTimeout
‘ 1. オブジェクトの初期化
Set objShell = CreateObject(“WScript.Shell”)
Set objEnv = objShell.Environment(“Process”)
‘ 2. 環境変数の取得 (未設定の場合は安全のため “DEV” にフォールバック)
currentEnv = UCase(Trim(objEnv(“APP_ENV”)))
If currentEnv = “” Then
currentEnv = “DEV”
‘ 本番等のクリティカルな環境で変数が落ちている場合の警告ログ出力などをここに挟む
End If
‘ 3. 環境に応じた設定値の動的バインディング
Select Case currentEnv
Case “PROD”
configDbConn = “Provider=SQLOLEDB;Data Source=prod-db.internal;Initial Catalog=EnterpriseDB;UID=app_user;PWD=EncryptedPassword;”
configLogPath = “\\fs-prod-01\logs\AutomationTool\”
configTimeout = 60
Case “STG”
configDbConn = “Provider=SQLOLEDB;Data Source=stg-db.internal;Initial Catalog=EnterpriseDB_Stg;UID=stg_user;PWD=StgPassword;”
configLogPath = “\\fs-stg-01\logs\AutomationTool\”
configTimeout = 30
Case “DEV”, “LOCAL”
configDbConn = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DevWorkspace\Database\test.mdb;”
configLogPath = “C:\DevWorkspace\Logs\”
configTimeout = 10
Case Else
‘ 予期せぬ環境変数が設定されている場合は異常終了
WScript.Echo “[FATAL ERROR] 不明な実行環境が指定されています: ” & currentEnv
WScript.Quit 99
End Select
‘ 4. 実行コンテキストの確認ログ（デバッグ・監査用）
WScript.Echo “========================================”
WScript.Echo ” 実行環境検知: ” & currentEnv
WScript.Echo ” 接続先DB : ” & configDbConn
WScript.Echo ” ログ出力先: ” & configLogPath
WScript.Echo “========================================”
‘ 5. ビジネスロジック層への引き渡し（実処理関数を呼び出す）
ExecuteBusinessLogic configDbConn, configLogPath, configTimeout
‘ 6. オブジェクトの解放
Set objEnv = Nothing
Set objShell = Nothing
End Sub
‘ ==============================================================================
‘ ビジネスロジック実行関数
‘ ==============================================================================
Sub ExecuteBusinessLogic(dbConn, logPath, timeout)
On Error Resume Next
‘ ここに実際のファイル操作、DB接続、API通信などのメイン処理を記述する
WScript.Echo “[INFO] ビジネスロジックを実行中…”
‘ ダミーの処理遅延
WScript.Sleep 1000
If Err.Number <> 0 Then
WScript.Echo “[ERROR] 実行時エラー発生: ” & Err.Description
‘ 必要に応じてログファイルへの書き出しや管理者への通知処理を実装
Err.Clear
Else
WScript.Echo “[SUCCESS] 処理が正常に完了しました。”
End If
On Error GoTo 0
End Sub
—
4. チーフアーキテクトからの実践的アドバイス：ファイル・DB連携の罠
このスクリプトを運用するにあたり、現場で必ず直面するインフラ的・設計的注意点を補足しておく。
① 権限の分離とセキュアな接続文字列
本番環境（PROD）の接続文字列に平文のパスワードを埋め込むことは、セキュリティ監査において致命的な指摘を受ける。
もしVBScriptの限界（暗号化ライブラリの不足など）で平文を避けられない場合、環境変数そのものに接続文字列全体を格納するというアプローチをとるべきだ。
‘ 環境変数から直接、完全な接続文字列を取得する（よりセキュアな手法）
configDbConn = objEnv(“PROD_DB_CONNECTION”)
これにより、スクリプトのソースコード側には一切の機微情報を置かずに済む。
② ファイルパスのセパレータとネットワークパス（UNC）
特にSTGやPROD環境では、ログの出力先がローカルではなくファイルサーバー（UNCパス：`\\server\share\…`）になることが多い。
VBScript内でパスを結合する際は、文字列の連結ミス（バックスラッシュの二重化や欠落）を防ぐために、FileSystemObject（FSO）の `.BuildPath` メソッドを活用する癖をつけよ。
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim targetLogFile
targetLogFile = fso.BuildPath(configLogPath, “app_” & Year(Now) & Month(Now) & “.log”)
—
総括
VBScriptはレガシーな言語であるかもしれないが、そこに適用する設計思想までレガシーである必要はない。
OSの環境変数をハブとして利用し、実行コンテキストをスクリプト外部へ完全に切り離す。この原則を守るだけで、あなたの書く自動化スクリプトは、デプロイミスや環境依存の不具合から完全に解放され、プロフェッショナルなインフラストラクチャの一部として信頼を獲得するだろう。
「コードを変えずに、環境を変える」。このアーキテクチャを今日の現場から導入してほしい。
