【VBScriptを掌握する極限の知見】WScript.Argumentsの闇を断つ：安全な型キャスト・共通パーサーの設計
こんにちは。現場のシステムを裏で支え続けるエンジニアであれば、誰もが一度はVBScriptの「型システムの曖昧さ」に泣かされた経験があるはずだ。
WScript.Argumentsから取得する入力値は、すべてが無慈悲な「文字列（String）」として渡される。これをそのままデータベースのクエリに組み込んだり、日付計算に放り込んだりした結果、本番環境で突然の型ミスマッチエラー（Type mismatch）を引き起こす……。そんな悪夢のようなインシデントを、私たちはもう終わらせなければならない。
今回は、VBScriptのプリミティブな挙動をねじ伏せ、コマンドライン入力を安全にDate、Long、Booleanへ変換するプロダクション品質の共通パーサーの設計思想と実装を伝授する。
—
なぜ「生の引数処理」は破滅を招くのか
多くの初心者がやりがちなコードを見てみよう。
‘ 【アンチパターン】型安全性を完全に無視した危険なコード
Dim inputVal, result
inputVal = WScript.Arguments(0)
‘ 文字列のまま足し算すると、VBScriptのバリアント型が勝手に連結（文字列結合）してしまう！
result = inputVal + 1
VBScriptの基盤であるVariant型は、極めてお節介な自動型変換（Coercion）を行う。しかし、この自動変換は開発者の意図通りに動かないことが多い。特に、空文字（`””`）や想定外の文字列、さらにはNULLに近い値が混入した瞬間、スクリプトは容赦なくクラッシュする。
業務自動化ツールにおいて、入力値のバリデーションとキャスト（型変換）は、単なる「お作法」ではなく防衛的プログラミングの核心である。
—
堅牢な型キャスト・共通パーサーの設計要件
プロダクション環境に耐えうるパーサーを作るためには、以下の3原則を死守する必要がある。
1. 厳密な型判定（Type Guard）: 変換関数（`CDate`やクループ関数）を単体で呼び出すな。必ず事前に `IsNumeric` や `IsDate` で防壁を作れ。
2. フォールバック値（Default Value）の担保: 不正値や引数欠損の場合にスクリプトを即死させるのではなく、安全なデフォルト値を返却せよ。
3. エラーハンドリングの局所化: `On Error Resume Next` を全体にばら撒く愚を犯さず、検証関数内だけに閉じ込めよ。
—
コピペで使えるプロダクションコード：`SafeParser.vbs`
以下のコードは、実務の現場で即座に組み込める堅牢な型キャスト・共通パーサーの完全版だ。WSH環境（`cscript.exe`）での実行を前提としている。
Option Explicit
‘ ==============================================================================
‘ モジュール名: SafeParser.vbs
‘ 概要: WScript.Arguments の入力を安全に型キャストする共通パーサーライブラリ
‘ ==============================================================================
‘ — 使用例の実行ブロック —
Call Main()
Sub Main()
Dim argDate, argLong, argBool
‘ 例: cscript.exe SafeParser.vbs “2023-10-01” “12345” “True”
WScript.Echo “— 入力値の安全キャスト検証 —”
‘ Date型への変換 (失敗時は本日の日付をデフォルトに)
argDate = ParseDate(GetArg(0), Date())
WScript.Echo “Date : ” & TypeName(argDate) & ” -> ” & argDate
‘ Long型への変換 (失敗時は 0 をデフォルトに)
argLong = ParseLong(GetArg(1), 0)
WScript.Echo “Long : ” & TypeName(argLong) & ” -> ” & argLong
‘ Boolean型への変換 (失敗時は False をデフォルトに)
argBool = ParseBoolean(GetArg(2), False)
WScript.Echo “Bool : ” & TypeName(argBool) & ” -> ” & CStr(argBool)
End Sub
‘ ==============================================================================
‘ 補助関数: 安全な引数取得
‘ ==============================================================================
Function GetArg(index)
If WScript.Arguments.Count > index Then
GetArg = WScript.Arguments(index)
Else
GetArg = “”
End If
End Function
‘ ==============================================================================
‘ 1. Date型 安全パーサー
‘ ==============================================================================
Function ParseDate(ByVal rawValue, ByVal defaultValue)
If IsNull(rawValue) Or Trim(CStr(rawValue)) = “” Then
ParseDate = defaultValue
Exit Function
End If
‘ VBScriptの IsDate は優秀だが、稀に独自の文字列で誤判定するためガードする
On Error Resume Next
If IsDate(rawValue) Then
ParseDate = CDate(rawValue)
Else
ParseDate = defaultValue
End If
On Error GoTo 0
End Function
‘ ==============================================================================
‘ 2. Long型 安全パーサー (整数値)
‘ ==============================================================================
Function ParseLong(ByVal rawValue, ByVal defaultValue)
If IsNull(rawValue) Or Trim(CStr(rawValue)) = “” Then
ParseLong = defaultValue
Exit Function
End If
‘ IsNumericは “123.45” や指数表記も True にするため、整数（CLng範囲）への安全性を担保する
On Error Resume Next
If IsNumeric(rawValue) Then
‘ 小数点以下を含む数値が渡された場合の切り捨て、またはオーバーフロー対策
Dim dblVal: dblVal = CDbl(rawValue)
If dblVal >= -2147483648 And dblVal <= 2147483647 Then
ParseLong = CLng(dblVal)
Else
ParseLong = defaultValue ' 範囲外はデフォルト値
End If
Else
ParseLong = defaultValue
End If
On Error GoTo 0
End Function
' ==============================================================================
' 3. Boolean型 安全パーサー
' ==============================================================================
Function ParseBoolean(ByVal rawValue, ByVal defaultValue)
If IsNull(rawValue) Or Trim(CStr(rawValue)) = "" Then
ParseBoolean = defaultValue
Exit Function
End If
Dim strVal
strVal = LCase(Trim(CStr(rawValue)))
Select Case strVal
Case "true", "1", "yes", "on"
ParseBoolean = True
Case "false", "0", "no", "off"
ParseBoolean = False
Case Else
ParseBoolean = defaultValue
End Select
End Function
---
アーキテクトが解説するコードの急所
1. `Option Explicit` の絶対的義務
プログラミングの基本中の基本だが、VBScriptにおいてこれを怠る者はプロを名乗る資格がない。変数の宣言漏れによる暗黙のバリアント生成を防ぎ、タイポによるバグをコンパイル時（実行開始時）に弾く。
2. `IsNumeric` の罠と防衛策
`IsNumeric(“123.45”)` は `True` を返す。これをそのまま `CLng` にブチ込むと、VBScriptは四捨五入して整数化する。また、巨大な数値が渡されるとオーバーフローエラーを引き起こす。
上記の `ParseLong` では、一度 `CDbl` で受けてから32bit整数（Long）の物理的限界値（`-2147483648` ～ `2147483647`）の範囲内にあるか厳密にバウンダリチェックを行っている。この一手間が、ファイル出力やDB登録時のサイレントキラーを防ぐのだ。
3. Boolean判定の文字列正規化
VBScriptの `CBool(“False”)` は、実は不条理にも `True` を返す（空文字以外の大半の文字列をTrueと評価する仕様のため）。
そのため、`ParseBoolean` では `LCase` と `Trim` で文字列を完全に正規化し、明示的に `”true”`, `”1″`, `”yes”` などの特定キーワードのみを真と評価するロジックに落とし込んでいる。
—
ファイル・データベース連携における注意点
このパーサーを実務のファイル操作（FSO）やSQL Server / Accessなどのデータベース連携の前段に挟むことで、極めて高い信頼性を確保できる。
- データベース連携: パラメータクエリ（ADODB.Command）に値を渡す際、VBScript側で適切な型（LongやDate）にキャストされていないと、RDB側で暗黙の型変換が発生し、インデックスがスキャンされなくなったり（パフォーマンス劣化）、型不一致エラーでバッチが夜間停止する原因になる。
- CSV/ログ出力: 空の引数がそのまま `NULL` や空文字としてログを汚染するのを防ぎ、安全なデフォルト値（`”-“` や `0`）に置換してから出力することが可能になる。
—
結びに代えて
VBScriptはレガシーな言語と揶揄されることもあるが、Windows環境においてミドルウェアのインストール不要で動作する最強の軽量自動化ツールであることに変わりはない。
「動けばいいや」の精神で作られたコードは、環境が変わった瞬間に牙をむく。しかし、今回紹介したような堅牢な境界防衛（Boundary Defense）を設計に組み込んでおけば、VBScriptはあなたの右腕となり、長期間にわたってノーメンテナンスで業務を支え続けるだろう。
プロフェッショナルとして、コードの「境界線」を支配せよ。
