VBScriptを掌握する：堅牢なコマンドライン引数バリデーションの極致
諸君。VBScriptという言語は、一見すると「枯れた遺物」に見えるかもしれない。しかし、Windowsの心臓部（WSH）に直結し、OSの挙動を直接制御できるこの軽量インターフェースを極めることは、システム管理者にとっての「最後の砦」だ。
今日は、多くのエンジニアが軽視しがちな「入口の防波堤」、すなわち`WScript.Arguments`の型チェックとバリデーションについて、プロフェッショナルの実装論を語る。
なぜ、安易な `IsNumeric` では不十分なのか
初心者は、`If IsNumeric(val) Then …` と記述して安心する。だが、それで十分だと思っているのなら、君のシステムは脆弱だ。`IsNumeric`は、科学的表記（例: “1E+02″）や通貨記号、あるいは極端に大きな数値に対して、予期せぬ挙動を示すことがある。
真のアーキテクトは、「入力は常に汚染されている」という前提に立ち、型変換の結果までを見極める。
実装：堅牢性とデフォルト値の調和
以下のコードは、単なる判定ではなく、「型の一貫性」と「メモリ効率」を意識した実装例だ。
‘ — 堅牢な引数取得・バリデーションパターン —
Option Explicit
‘ メイン処理の開始
Main
Sub Main()
Dim valRaw, valValidated
‘ 引数1: 数値（デフォルト: 100）
valValidated = GetValidatedArg(0, 100, “NUMERIC”)
WScript.Echo “数値引数: ” & valValidated
‘ 引数2: 日付（デフォルト: 本日）
valValidated = GetValidatedArg(1, Date, “DATE”)
WScript.Echo “日付引数: ” & valValidated
End Sub
‘ 汎用バリデーション関数
Function GetValidatedArg(idx, defaultVal, vType)
Dim args
Set args = WScript.Arguments
‘ 範囲外アクセスを防ぐ
If idx >= args.Count Then
GetValidatedArg = defaultVal
Exit Function
End If
Dim rawValue : rawValue = args(idx)
Select Case UCase(vType)
Case “NUMERIC”
‘ IsNumericだけでは不十分。CDblで変換を試し、失敗を拾うのが確実
If IsNumeric(rawValue) Then
GetValidatedArg = CDbl(rawValue)
Else
GetValidatedArg = defaultVal
End If
Case “DATE”
If IsDate(rawValue) Then
GetValidatedArg = CDate(rawValue)
Else
GetValidatedArg = defaultVal
End If
Case Else
GetValidatedArg = rawValue
End Select
‘ 明示的なオブジェクト解放（WScript.Argumentsは参照カウントを意識せよ）
Set args = Nothing
End Function
シニアエンジニアが意識すべき「裏側の挙動」
1. メモリとオブジェクトのライフサイクル
VBScriptの弱点は、ガベージコレクションのタイミングが不透明なことだ。特にWSH環境下で大量のファイルを処理する場合、`Set`で作成したオブジェクトやコレクションは、スコープを抜ける前に明示的に `Nothing` を代入する習慣を徹底せよ。これは「まじない」ではなく、メモリリークを未然に防ぐための防御的設計だ。
2. Variant型の呪縛
VBScriptの変数は全て `Variant` だ。これは柔軟だが、パフォーマンスには悪影響を及ぼす。`CDbl()` や `CDate()` による明示的な型変換（Coercion）は、単なるバリデーションではなく、後続の計算処理において「Variantの型判定コスト」を削減するための最適化であると理解せよ。
3. レガシー環境でのAPI呼び出し
必要であれば `CreateObject(“WScript.Shell”)` や `GetObject(“winmgmts:”)` を駆使することになるだろう。その際、入力値のバリデーションを怠ると、最悪の場合、OSコマンドのインジェクションを招くか、WMIクエリが不正な引数でクラッシュする。入力値のクリーニングは、単なるバグ防止ではなく、セキュリティ・アーキテクチャそのものである。
結びに代えて
「スクリプトが動けばいい」という段階を卒業せよ。
コマンドライン引数は、外部世界と君のプログラムを繋ぐ唯一の接点だ。ここを厳格に管理する姿勢こそが、10年後も修正なしで動き続ける、真にメンテナンス性の高いコードを生む。
VBScriptは死んでいない。君のコードの中で、その知見が生き続けている限りは。
