VBScriptを掌握する極限の知見：CScript標準入力におけるオート・デフォルト＆インテリジェント・プロンプトの実装
レガシーシステムの深部、あるいは厳格なセキュリティポリシーに縛られたオフライン環境において、未だにVBScript（WSH）はインフラ自動化の急所を支える隠れた基幹エンジンであり続けている。
WScript.exeによるGUIポップアップの多用は、バッチ処理の完全自動化（Unattended Execution）において百害あって一利なしだ。我々は常にCScript.exeを前提とした、堅牢な標準入出力（StdIn / StdOut）ベースの対話型インターフェースを構築しなければならない。
今回は、実務の現場で即座に使える「デフォルト値自動適用とブラケット提示機能を備えた高度な入力ハンドラー」の設計思想と実装コードを、VBScriptのメモリ管理の真髄とともに公開する。
—
1. チーフアーキテクトが警鐘を鳴らす：WSHにおけるI/Oの罠
VBScriptでコンソール入力を扱う際、多くの初学者は無造作に `WScript.StdIn.ReadLine` を呼び出す。だが、これには深刻な罠がある。
1. バッファの残滓（ゴミ）問題: 前段の処理で発生した余剰な改行コードや制御文字が標準入力ストリームに残存している場合、プロンプトがスキップされる。
2. オブジェクトのライフサイクル管理の欠如: `WScript.StdIn` や `WScript.StdOut` は軽量に見えて、COMラッパーの背後でOSのリソースを占有している。特に大規模なバッチ処理でストリームを乱用すると、ハンドルリークの温床となる。
3. 文字コード（CP932 / UTF-8）の不整合: CScript実行時のコードページ問題により、日本語プロンプトが文字化けを起こす。
これらを完全に制御下置き、かつ「何も入力せずにEnterが押された場合は、あらかじめ用意されたデフォルト値を採用する」という極めてモダンなCLI体験をVBScriptで実装する。
—
2. 実装コード：`ReadInput` インテリジェント・ハンドラー
以下のコードは、単なる入力関数の域を超え、入力値のトリム、デフォルト値のフォールバック、そして厳格なオブジェクト解放のライフサイクルを内包したプロダクション品質のモジュールである。
‘ ==============================================================================
‘ Script Name: CScript Intelligent Input Handler
‘ Description: デフォルト値提示と空エンター時の自動補完を備えたCLI入力関数
‘ Architecture: VBScript / WSH (CScript Host Only)
‘ ==============================================================================
Option Explicit
‘ メイン処理の実行（CScriptでの実行を強制）
Call Main()
Sub Main()
Dim strServerName, strTimeout, intRetryCount
‘ 実行ホストの厳密な検証（WScript.exeでの誤実行を防止）
If InStr(LCase(WScript.FullName), “cscript.exe”) = 0 Then
WScript.Echo “【エラー】このスクリプトは CScript.exe で実行してください。” & vbCrLf & _
“例: cscript ” & WScript.ScriptName
WScript.Quit 1
End If
WScript.StdOut.WriteLine “=== システム接続パラメータ設定 ===”
‘ 1. 文字列入力のテスト（デフォルト値あり）
strServerName = PromptInput(“接続先サーバーIP/ホスト名”, “192.168.1.100”)
‘ 2. 数値入力のテスト（デフォルト値あり）
strTimeout = PromptInput(“接続タイムアウト(秒)”, “30”)
‘ 3. 必須入力のテスト（デフォルト値なし）
intRetryCount = PromptInput(“最大リトライ回数（必須）”, “”)
‘ 結果出力
WScript.StdOut.WriteLine vbCrLf & “— 設定値確認 —”
WScript.StdOut.WriteLine “サーバー: ” & strServerName
WScript.StdOut.WriteLine “タイムアウト: ” & strTimeout & “s”
WScript.StdOut.WriteLine “リトライ回数: ” & intRetryCount
End Sub
‘ ==============================================================================
‘ Function: PromptInput
‘ Args:
‘ ByVal promptMessage (String) – ユーザーへのプロンプト文言
‘ ByVal defaultValue (String) – デフォルト値（空文字列の場合は必須入力）
‘ Returns:
‘ String – 確定した入力値（またはデフォルト値）
‘ ==============================================================================
Function PromptInput(ByVal promptMessage, ByVal defaultValue)
Dim objStdIn, objStdOut
Dim rawInput, displayPrompt
‘ 標準入出力ストリームの参照を取得
Set objStdIn = WScript.StdIn
Set objStdOut = WScript.StdOut
‘ デフォルト値の有無に応じたプロンプトの動的構築
If Trim(defaultValue) <> “” > 0 Then
displayPrompt = promptMessage & ” [” & defaultValue & “]: ”
Else
displayPrompt = promptMessage & ” (必須): ”
End If
Do
‘ プロンプトの出力（改行なし）
objStdOut.Write displayPrompt
‘ 標準入力から1行読み込み
rawInput = objStdIn.ReadLine
‘ 前後の空白を除去 (VBScriptのTrim関数)
rawInput = Trim(rawInput)
‘ 入力が空の場合の処理
If rawInput = “” Then
If Trim(defaultValue) <> “” Then
‘ デフォルト値が設定されている場合はそれを採用
rawInput = defaultValue
Exit Do
Else
‘ 必須入力であるにもかかわらず空の場合は警告を出して再試行
objStdOut.WriteLine ” -> 【警告】この項目は必須です。値を入力してください。”
End If
Else
‘ 有効な入力が得られた場合はループを抜ける
Exit Do
End If
Loop
‘ 戻り値の設定
PromptInput = rawInput
‘ 【重要】COMオブジェクトおよびストリーム参照の明示的解放
‘ スクリプトの寿命が短い場合でも、リソースリークの習慣を断ち切る
Set objStdIn = Nothing
Set objStdOut = Nothing
End Function
—
3. チーフアーキテクトによる深層解説
① ストリームのライフサイクル管理とメモリ最適化
VBScriptのオブジェクトはスクリプト終了時にガベージコレクトされるが、長時間稼働するバッチや、ループ内で頻繁にI/Oを行うアーキテクチャにおいては、`Set objStdIn = Nothing` による明示的な参照切断（Dereferencing）が極めて重要だ。
特にWSHの内部COMオブジェクトは、参照カウントが残ったままになるとメモリ断片化を引き起こす原因となる。プロシージャスコープ内で取得したI/Oストリームは、必ず局所化し、処理の終端で解放するべきである。
② 入力値のサニタイジングとエッジケース耐性
ユーザーがコンソールで意図せずスペースキーのみを入力した場合、単純な `If rawInput = “”` ではすり抜けてしまう。
ここで実装している `rawInput = Trim(rawInput)` は、目に見えない制御文字や空白の混入を防ぐための防衛的プログラミングの基本だ。レガシー環境のオペレーターは時に予測不能な入力を行う。これを受け止めるだけの強度がスクリプト側には求められる。
③ ホスト環境の厳密なバリデーション
`WScript.FullName` を監視し、意図しない `WScript.exe`（GUIホスト）からの実行を弾くロジックを組み込んでいる。GUIホストから `StdIn` を呼び出すと、致命的なランタイムエラー（オブジェクトはサポートされていません）が発生するため、インフラ自動化スクリプトにおいては、この自己防衛コードがプロフェッショナルの証となる。
—
総括
VBScriptは過去の遺物ではない。Windows環境において「追加のランタイムインストールを一切必要とせず、OSの標準機能だけで完結する最強の軽量自動化レイヤー」である。
今回解説したCLI入力ハンドラーの設計パターンをあなたのライブラリに組み込むことで、レガシーバッチの信頼性は劇的に向上する。枯れた技術を極限まで研ぎ澄まし、堅牢なシステムを構築し続けることこそが、真のエンジニアリングである。
