【POSIX風コマンドライン引数パーサー】VBScriptの限界を超え、堅牢なCLIツールを構築する極限の知見
レガシーなシステム運用や、Windows環境におけるキッティングの自動化において、未だにVBScript（WSH）はその手軽さから現役で使われている。
しかし、標準の `WScript.Arguments` が提供するインターフェースは、あまりにもプリミティブだ。順序依存の位置引数しか解釈できず、`–config=path/to/ini` のようなモダンなPOSIX風ロングオプションや、`-v` といったショートオプションを処理しようとすれば、途端にコードはスパゲッティと化す。
今回は、業務自動化ツールの信頼性を一段上のステージへ引き上げるための「POSIX風コマンドライン引数パーサー」の実装パターンを伝授する。
場当たり的な `If文` の嵐を脱却し、拡張性と堅牢性を兼ね備えたプロダクションコードの全貌を公開しよう。
—
なぜ素の `WScript.Arguments` では実務に耐えないのか
VBScriptでCLIツールを作る際、多くのプログラマブルな初心者が陥る罠がこれだ。
‘ 【アンチパターン】インデックス直叩きの悲劇
If WScript.Arguments.Count > 0 Then
Dim configPath
configPath = WScript.Arguments(0) ‘ 順番が変わったら即死する
End If
このアプローチには、実務において致命的な欠陥がある。
1. 順序の縛り: 引数が増えた途端にインデックスの管理が破綻する。
2. フラグの欠如: 「オプションの有無」や「値を持つオプション（キーバリュー）」の判定を手動で行うと、無限のネストが生まれる。
3. 保守性の崩壊: 開発者が替わった瞬間、誰も手を加えられないブラックボックスと化す。
プロのアーキテクトが目指すべきは、「宣言的なデフォルト値の定義」と「動的なパース処理の分離」である。
—
設計思想：Dictionaryオブジェクトによる状態管理
今回構築するパーサーのコアアーキテクチャは以下の通りだ。
1. デフォルト設定の保持: スクリプトが許容するオプションとその初期値を `Scripting.Dictionary` に事前登録する。
2. 2段階のパース処理:
- `–key=value` 形式のイコール区切り
- `–key value` 形式のスペース区切り
- `-v` のような単独フラグ（True/False）
3. 無名引数（Positional Arguments）の安全な回収: オプションとして消費されなかった残りの引数を配列として担保する。
これにより、呼び出し側は `Options(“config”)` のように安全かつ直感的にパラメータへアクセスできるようになる。
—
プロダクションコード：POSIX風引数パーサー実装
以下のコードは、エラーハンドリングと型安全性を意識した、そのまま現場で使える完全版の実装だ。文字コード `Shift-JIS (CP932)` または `UTF-8（BOM付き）` で保存して `cscript` で実行してほしい。
‘ ==============================================================================
‘ Script Name: RobustCliParser.vbs
‘ Description: POSIX風コマンドライン引数パーサー（ロング/ショート対応）
‘ Author: Enterprise Automation Architect
‘ ==============================================================================
Option Explicit
‘ メイン処理の実行
Main
Sub Main()
‘ 1. パーサーの初期化とデフォルト値の設定
Dim options
Set options = CreateObject(“Scripting.Dictionary”)
‘ デフォルト値の定義 (Key: オプション名, Value: デフォルト値)
options.Add “config”, “C:\settings.ini”
options.Add “verbose”, False ‘ フラグ系はBoolean
options.Add “timeout”, 30 ‘ 数値系
options.Add “mode”, “run”
‘ 未定義の無名引数を格納する動的配列の代わりとなるコンテナ
Dim positionalArgs
Set positionalArgs = CreateObject(“Scripting.Dictionary”)
‘ 2. コマンドライン引数の解析実行
If Not ParseArguments(options, positionalArgs) Then
ShowUsage
WScript.Quit(1)
End If
‘ 3. パース結果を用いた実務処理のシミュレーション
WScript.Echo “=== 実行パラメータ確認 ===”
WScript.Echo “Config Path : ” & options(“config”)
WScript.Echo “Verbose Mode: ” & options(“verbose”)
WScript.Echo “Timeout : ” & options(“timeout”)
WScript.Echo “Mode : ” & options(“mode”)
WScript.Echo vbCrLf & “=== 無名引数 (Positional) ===”
Dim i
For i = 0 To positionalArgs.Count – 1
WScript.Echo “[” & i & “] ” & positionalArgs(i)
Next
End Sub
‘ ——————————————————————————
‘ 引数解析エンジン
‘ ——————————————————————————
Function ParseArguments(ByRef optDict, ByRef posDict)
On Error Resume Next
Dim args, count, i, arg, nextArg
Set args = WScript.Arguments
count = args.Count
i = 0
Do While i < count
arg = args(i)
' プレフィックスの判定
If Left(arg, 2) = "--" Then
' ロングオプション (--key=value or --key)
i = HandleLongOption(arg, i, args, optDict)
ElseIf Left(arg, 1) = "-" And Len(arg) > 1 Then
‘ ショートオプション (-v または複合型 -abc)
i = HandleShortOption(arg, i, args, optDict)
Else
‘ 無名引数
posDict.Add posDict.Count, arg
i = i + 1
End If
If Err.Number <> 0 Then
WScript.Echo “[ERROR] 引数パース中に予期せぬエラーが発生しました: ” & Err.Description
ParseArguments = False
Exit Function
End If
Loop
ParseArguments = True
On Error GoTo 0
End Function
‘ ——————————————————————————
‘ ロングオプションのハンドリング
‘ ——————————————————————————
Function HandleLongOption(ByVal arg, ByVal currentIndex, ByRef args, ByRef optDict)
Dim eqPos, key, val
‘ “–” (先頭2文字) を除外
arg = Mid(arg, 3)
eqPos = InStr(arg, “=”)
If eqPos > 0 Then
‘ “–key=value” のケース
key = Left(arg, eqPos – 1)
val = Mid(arg, eqPos + 1)
If optDict.Exists(key) Then
optDict(key) = val
Else
WScript.Echo “[WARNING] 未定義のロングオプションが指定されました: –” & key
optDict.Add key, val ‘ 動的追加を許可する場合
End If
HandleLongOption = currentIndex + 1
Else
‘ “–key value” または フラグ単体のケース
key = arg
If currentIndex + 1 < args.Count Then
nextArg = args(currentIndex + 1)
' 次の引数が別のオプション（"-"で始まる）でなければ値とみなす
If Left(nextArg, 1) <> “-” Then
If optDict.Exists(key) Then
optDict(key) = nextArg
Else
optDict.Add key, nextArg
End If
HandleLongOption = currentIndex + 2
Exit Function
End If
End If
‘ 値がない場合はフラグ（True）とみなす
If optDict.Exists(key) Then
optDict(key) = True
Else
optDict.Add key, True
End If
HandleLongOption = currentIndex + 1
End If
End Function
‘ ——————————————————————————
‘ ショートオプションのハンドリング
‘ ——————————————————————————
Function HandleShortOption(ByVal arg, ByVal currentIndex, ByRef args, ByRef optDict)
‘ “-” (先頭1文字) を除外
arg = Mid(arg, 2)
‘ ここでは簡略化のため、1文字のショートオプションを想定
‘ 例: -v -> verbose = True
Dim key
key = arg ‘ 実際にはマッピングテーブルを持つと堅牢になる
If optDict.Exists(key) Then
optDict(key) = True
Else
optDict.Add key, True
End If
HandleShortOption = currentIndex + 1
End Function
‘ ——————————————————————————
‘ ヘルプメッセージの表示
‘ ——————————————————————————
Sub ShowUsage()
WScript.Echo “使用方法:”
WScript.Echo ” cscript //nologo RobustCliParser.vbs [options] [arguments]”
WScript.Echo “”
WScript.Echo “オプション:”
WScript.Echo ” –config=
WScript.Echo ” –verbose 詳細ログ出力を有効にします。”
WScript.Echo ” –timeout=
WScript.Echo ” –mode=
End Sub
—
運用・保守の観点：ファイル・データベース連携における注意点
このパーサーを実務の自動化スクリプト（タスクスケジューラからの実行や、RDBへのバッチ登録など）に組み込む際、以下のアーキテクチャ上の知見を押さえておく必要がある。
1. 文字コードとロケールの罠
WScript環境（特に `cscript.exe`）は、OSのロケール（日本語環境であれば CP932 / Shift-JIS）に強く依存する。外部のINIファイルパスやデータベース接続文字列をコマンドライン引数経由で渡す際、日本語混じりのパスが文字化けを起こす原因になる。
- 対策: 引数パース後は直ちに内部表現（VBScriptの文字列型はUTF-16）として扱い、ADO等でデータベースに接続する際はパラメータライズド・クエリ（Commandオブジェクト）を徹底し、SQLインジェクションや文字化けを根絶すること。
2. エラーハンドリングとロギングの分離
プロダクション環境では、パースエラーや不正な引数を受け取った際に単に `WScript.Echo` で画面に出力するだけでは不十分だ。
- 対策: 戻り値や終了コード（Exit Code）を厳密に制御し、タスクスケジューラがエラーを検知できるようにする。また、エラー時はWindowsのイベントログ（Applicationログ）や共通のファイルサーバー上のログへ出力するラッパー関数を前段に噛ませるべきだ。
—
チーフアーキテクトからの総括
VBScriptは「古い言語」と揶揄されることが多い。しかし、Windows環境の標準機能だけで動作し、インストーラーを必要としないという圧倒的なポータビリティは、今なおインフラ自動化や小規模バッチの現場において強力な武器だ。
今回紹介したPOSIX風引数パーサーの設計パターンを導入すれば、レガシーなスクリプトを「保守しやすく、拡張性の高いプロフェッショナルなツール」へと劇的に生まれ変わらせることができる。
散らかったコードに別れを告げ、美しく堅牢な自動化基盤を構築してほしい。
