VBScriptを掌握する極限の知見：ダイアログの罠と防衛的入力検証のアーキテクチャ
レガシーシステムの深部、あるいはドメインの境界領域において、VBScript（Visual Basic Scripting Edition）とWSH（Windows Script Host）はいまだにインフラストラクチャの隠れた歯車として稼働し続けている。現代のモダンな言語から見れば、型システムは脆弱であり、例外処理機構はプリミティブそのものだ。
しかし、だからこそ問われる。
「動くだけのコード」と「数千台の端末で予期せぬ入力を完璧に弾き返す要塞のようなコード」の境界線はどこにあるのか？
今回は、業務自動化の最前線で避けて通れない【ユーザー対話】――`MsgBox` と `InputBox` の戻り値判定による安全な条件分岐設計の極限を解説する。甘い入力値検証が招くスクリプトのクラッシュや、オペレーターの誤操作による不可逆なデータ破損を防ぐための防衛的プログラミングの真髄を紐解く。
—
1. MsgBoxの戻り値：ビット演算的思考と定数管理
`MsgBox` 関数は単にメッセージを表示するだけのプリミティブではない。ボタンの組み合わせ（`vbYesNoCancel`, `vbCritical` など）に応じたビットフラグの合成であり、その戻り値はユーザーの「選択」という不可逆なイベントのコード表現にほかならない。
シニアエンジニアが陥る最初の罠は、マジックナンバーの直書きや、暗黙の型変換に依存した条件分岐だ。
堅牢なMsgBox制御の要件
- マジックナンバーの排除: `vbYes`（6）, `vbNo`（7）, `vbCancel`（2）などの組み込み定数を明示的に使用する。
- 三値論理の完全網羅: 「はい」「いいえ」だけでなく、必ず「キャンセル（×ボタンの押下含む）」の経路をハンドリングする。
Option Explicit
‘ —————————————————————–
‘ 定数定義（型安全性を担保するための明示的スコープ）
‘ —————————————————————–
Const vbButtonSetYN = 4 ‘ はい / いいえ
Const vbButtonSetYNC = 3 ‘ はい / いいえ / キャンセル
Const vbIconQuestion = 32 ‘ 疑問符アイコン
Const vbIconCritical = 16 ‘ 警告アイコン
Const vbIDYes = 6
Const vbIDNo = 7
Const vbIDCancel = 2
Sub ExecuteCriticalOperation()
Dim intResult
‘ ユーザーに重大なアクションの確認を促す
intResult = MsgBox(“データベースの全レコードを初期化します。” & vbCrLf & _
“この操作は取り消せません。続行しますか？”, _
vbButtonSetYNC + vbIconCritical, _
“【警告】破壊的プロセスの実行”)
Select Case intResult
Case vbIDYes
‘ 厳格な二重確認（必要に応じて）
Call RunCoreProcess()
Case vbIDNo
WScript.Echo “ユーザーによって処理が中断されました（No選択）。”
WScript.Quit(0)
Case vbIDCancel, 0
‘ 0は万が一の予期せぬダイアログ強制終了に対するフォールバック
WScript.Echo “処理がキャンセルされました。”
WScript.Quit(0)
Case Else
‘ 想定外の戻り値に対する防衛コード
Err.Raise 9999, “MsgBoxHandler”, “予期せぬダイアログ応答コードです: ” & intResult
End Select
End Sub
Sub RunCoreProcess()
WScript.Echo “コアプロセスを実行中…”
End Sub
‘ エントリポイントの呼び出し
ExecuteCriticalOperation()
—
2. InputBoxの闇：空文字列(“”)と「キャンセル」の不可分な混沌
VBScriptにおける最大のバグの温床、それが `InputBox` だ。
オペレーターが入力ボックスに何も書き込まずに「OK」を押した場合と、「キャンセル」を押した場合、どちらも戻り値は長さ0の文字列 `””` を返す。
この言語仕様上の欠陥（あるいは仕様）を理解していない素朴なコードは、ユーザーがキャンセルしたにもかかわらず、未入力の空データを有効な入力値として処理し、後続のAPI呼び出しやDBクエリで致命的な例外を引き起こす。
これを完璧に突破するためには、「未入力（Empty/Null/空文字）」と「キャンセル」の文脈を論理的に分離するラッパー関数を設計しなければならない。
入力値検証の厳格なレイヤー構造
1. キャンセル検知: `VarType` やオブジェクト参照、あるいは二段階ダイアログによる補完。
2. 型・境界値検証 (Type & Range Check): 数値としての妥当性、桁数、特殊文字（SQLインジェクションやパストラバーサルを誘発する文字）の排除。
3. トリム処理 (Whitespace Normalization): 前後の全角・半角スペースの除去。
Option Explicit
‘ 安全なInputBoxラッパー関数の実装
‘ 戻り値: 配列またはカスタム構造体のシミュレーション (Array(IsCancelled, Value))
Function SafeInputBox(ByVal strPrompt, ByVal strTitle, ByVal strDefault)
Dim varResult
Dim arrReturn(1)
‘ InputBoxの実行
varResult = InputBox(strPrompt, strTitle, strDefault)
‘ 【極限の知見】
‘ VBScriptのInputBoxは「キャンセル」と「空文字入力（OK）」を同一の “” で返す。
‘ これを区別するため、厳密な判定と追加の確認ロジックを挟むか、
‘ あるいはキャンセル時は厳密にエラー/フラグ制御を行う必要がある。
‘ ここでは、単純な “” の場合、ユーザーに意図を確認する防衛策を講じる。
If StrPtr(varResult) = 0 Then
‘ StrPtr関数はVBScriptの undocumented な内部関数だが、ポインタアドレス（非ゼロ）を返す。
‘ キャンセルされた場合、StrPtrは0を返す（※厳密にはVBAの機能であり、WSH/VBScript単体では制約があるため、
‘ 実務では「空文字が入力された場合にもう一度意図を確認する」か、専用のIE/HTMLフォームをポップアップさせるのが至高）。
End If
‘ WSH/VBScript環境における現実的な判定ロジック:
If varResult = “” Then
Dim confirmCancel
confirmCancel = MsgBox(“入力値が空です。処理をキャンセルしますか？”, vbYesNo + vbQuestion, “確認”)
If confirmCancel = vbYes Then
arrReturn(0) = True ‘Cancelled
arrReturn(1) = “”
SafeInputBox = arrReturn
Exit Function
End If
End If
arrReturn(0) = False ‘Not Cancelled
arrReturn(1) = Trim(varResult)
SafeInputBox = arrReturn
End Function
—
3. 実践：要塞化された入力・分岐システムの実装
上記の知見を統合し、実務の現場――例えば「リモートサーバーへのデプロイメント指示スクリプト」や「バッチ処理のパラメータ指定」においてそのまま投入できるプロダクション品質のコードを提示する。
このコードは、不正な文字列（制御文字、SQLiやコマンドインジェクションの兆候となるメタ文字）を正規表現（`VBScript.RegExp`）を用いてミリ秒単位で検知・排除する。
‘ =================================================================
‘ Production-Grade WSH Input & Dialog Validation Framework
‘ Architecture: Defensive Programming & Strict Type Guarding
‘ =================================================================
Option Explicit
Main()
Sub Main()
Dim resultData
WScript.Echo “=== メンテナンススクリプト起動 ===”
‘ 1. 破壊的操作の事前確認
If Not RequestUserConsent() Then
WScript.Echo “オペレーターの判断により処理を中止しました。”
WScript.Quit(0)
End If
‘ 2. パラメータの安全な取得
resultData = AcquireValidatedInput()
If IsEmpty(resultData) Then
WScript.Echo “入力プロセスが中断されました。”
WScript.Quit(1)
End If
‘ 3. メイン処理の実行
WScript.Echo “検証済みパラメータ [” & resultData & “] を用いて処理を続行します…”
‘ TODO: 実業務ロジックの呼び出し
WScript.Echo “=== 正常終了 ===”
End Sub
Function RequestUserConsent()
Dim lngAns
lngAns = MsgBox(“対象サーバー群に対して構成変更スクリプトを適用します。” & vbCrLf & _
“本当に実行しますか？”, vbYesNo + vbExclamation, “実行確認”)
If lngAns = vbYes Then
RequestUserConsent = True
Else
RequestUserConsent = False
End If
End Function
Function AcquireValidatedInput()
Dim strInput
Dim objRegEx
Dim maxRetries, currentRetry
maxRetries = 3
currentRetry = 0
‘ 正規表現エンジンのインスタンス化（COMオブジェクトのライフサイクル管理）
Set objRegEx = CreateObject(“VBScript.RegExp”)
‘ 許可する文字パターン: 半英数字とハイフン、アンダースコアのみ（例: サーバー名やタスクID）
objRegEx.Pattern = “^[a-zA-Z0-9\-_]{4,16}$”
objRegEx.IgnoreCase = False
objRegEx.Global = False
Do While currentRetry < maxRetries strInput = InputBox("ターゲットIDを入力してください (4〜16文字の半角英数字):" & vbCrLf & _ "(試行回数: " & (currentRetry + 1) & "/" & maxRetries & ")", _ "パラメータ入力", "") ' キャンセル（または空文字で終了を選択）の判定 If strInput = "" Then If MsgBox("入力が空です。入力をやり直しますか？" & vbCrLf & "(「いいえ」を選ぶと処理を中断します)", _ vbYesNo + vbQuestion, "確認") = vbNo Then Set objRegEx = Nothing AcquireValidatedInput = Empty Exit Function End If Else ' トリムとパターンマッチングによるバリデーション strInput = Trim(strInput) If objRegEx.Test(strInput) Then ' 検証成功：リソース解放して値を返却 Set objRegEx = Nothing AcquireValidatedInput = strInput Exit Function Else MsgBox "入力フォーマットが不正です。" & vbCrLf & _ "4〜16文字の半角英数字、ハイフン(-)、アンダースコア(_)のみが許可されています。", _ vbCritical, "入力エラー" End If End If currentRetry = currentRetry + 1 Loop ' 最大試行回数オーバー Set objRegEx = Nothing MsgBox "許容される入力試行回数を超過しました。セキュリティ保護のため強制終了します。", vbCritical, "致命的エラー" WScript.Quit(99) End Function ---
4. チーフアーキテクトからの提言：レガシーとモダンをつなぐ心構え
VBScriptは「古い言語」として片付けられがちだが、OSの標準機能だけで動作し、追加のランタイムインストールを必要としないという圧倒的なポータビリティ（機動性）を持っている。インフラストラクチャの自動化や緊急時のフェイルセーフスクリプトにおいて、その価値は色褪せない。
ダイアログとユーザー入力を扱う際、最も恐れるべきは「ユーザーが正しい操作をするだろう」という性善説に基づいた設計だ。
オペレーターは疲弊し、時には誤ってEnterキーを連打し、予期せぬ文字列をペーストする。その狂気を受け止める防壁となるのが、我々エンジニアが記述する厳格な型判定、明示的なオブジェクト解放、そして多重の分岐ガードである。
コードの隅々にまで「疑うこと」を組み込み、鉄壁の自動化基盤を構築してほしい。
