VBScriptを掌握する極限の知見：POSIX風コマンドライン引数パーサーの極意
レガシーシステムの底流を支えるWSH（Windows Script Host）とVBScript。現代のモダンな開発言語の影に隠れがちだが、OSの根幹にダイレクトにアクセスし、追加のランタイムを一切必要としないこの超軽量環境は、インフラの自動化やエンタープライズのバッチ処理において今なお唯一無二の存在感を放っている。
だが、WScript.Argumentsが標準で提供する引数解析能力は、あまりにも原始的だ。順序依存の引数か、せいぜい名前なしのコレクションを順次舐めることしかできない。Linuxのシェルスクリプトのように、`–config=settings.ini` や `-v` といったPOSIXスタイルのロングオプション／ショートオプション、さらにはフラグの結合（`-abc`）やデフォルト値との統合をVBScriptで実現するには、WSHの限界を見据えた緻密なメモリ管理と文字列操作のアルゴリズムが不可欠となる。
今回は、数々の現場で枯渇したレガシー環境を救ってきた伝説のチーフアーキテクトが、VBScriptによる「極限のPOSIX風コマンドライン引数パーサー」の実装パターンを魂を込めて解説する。
—
1. WSHの仕様の罠と設計思想
VBScriptで高度な引数解析を行うにあたり、直面する壁は主に2つある。
1. `WScript.Arguments.Named` の不完全さ
WSH標準の名前付き引数機能（`/config:settings.ini` など）は、Windowsのレガシーなコマンドプロンプトの作法に縛られており、POSIX標準のダブルハイフン（`–`）や単一ハイフン（`-`）の挙動に対応していない。
2. オブジェクトのライフサイクルとメモリの非対称性
VBScriptのバリアント型管理は洗練されているが、大規模な文字列操作や動的配列の拡張（`ReDim Preserve`）を安易に繰り返すと、断片化とパフォーマンスの劣化を引き起こす。特にCOMオブジェクト（`Scripting.Dictionary` など）の適切な生成と破棄のライフサイクルを意識せねばならない。
今回のパーサーは、`WScript.Arguments.Unnamed`（またはすべての引数）を一度走査し、正規表現と文字列スライスを駆使して `Scripting.Dictionary` へマッピングする。これにより、スクリプト側からは `Config(“config”)` や `Config.Exists(“verbose”)` として安全かつ高速にアクセスできるインターフェースを提供する。
—
2. 実装コード：POSIX風フラグパーサー
以下のコードは、エラーハンドリング、デフォルト値の統合、ロング・ショートオプションの双方に対応した、現場でそのまま使える実用的なパーサーの完全版である。
‘ Option Explicitを強制し、暗黙の変数宣言を排除（バグの温床を断つ）
Option Explicit
‘ ==============================================================================
‘ スクリプト名: PosixArgParser.vbs
‘ 概要: POSIX風コマンドライン引数パーサー（ロング/ショートオプション対応）
‘ ==============================================================================
‘ メイン処理の実行
Main
Sub Main()
Dim argsParser, config
‘ 1. パーサーオブジェクトの初期化
Set argsParser = New PosixArgParser
‘ 2. アプリケーションに必要なデフォルト値を定義
argsParser.AddDefault “config”, “settings.ini”
argsParser.AddDefault “verbose”, False
argsParser.AddDefault “timeout”, 30
argsParser.AddDefault “output”, “C:\Logs\output.log”
‘ 3. 引数の解析を実行
On Error Resume Next
argsParser.Parse
If Err.Number <> 0 Then
WScript.Echo “[ERROR] 引数解析エラー: ” & Err.Description
argsParser.ShowUsage
WScript.Quit 1
End If
On Error GoTo 0
‘ 4. パース結果の取得とビジネスロジックへの適用
Set config = argsParser.Options
WScript.Echo “=== 実行パラメータ ===”
WScript.Echo “Config : ” & config(“config”)
WScript.Echo “Verbose: ” & config(“verbose”)
WScript.Echo “Timeout: ” & config(“timeout”)
WScript.Echo “Output : ” & config(“output”)
‘ オブジェクトの明示的解放（VBScriptのベストプラクティス）
Set config = Nothing
Set argsParser = Nothing
End Sub
‘ ==============================================================================
‘ クラス名: PosixArgParser
‘ 責務: WScript.Argumentsの解析およびデフォルト値の管理
‘ ==============================================================================
Class PosixArgParser
Private m_Defaults
Private m_Options
Private m_Arguments
‘ コンストラクタ
Private Sub Class_Initialize()
Set m_Defaults = CreateObject(“Scripting.Dictionary”)
Set m_Options = CreateObject(“Scripting.Dictionary”)
Set m_Arguments = CreateObject(“Scripting.Dictionary”)
‘ 比較の大文字小文字を区別しない設定（Windows環境への配慮）
m_Defaults.CompareMode = vbTextCompare
m_Options.CompareMode = vbTextCompare
End Sub
‘ デストラクタ
Private Sub Class_Terminate()
‘ メモリリークを防ぐため、参照を明示的に破棄
Set m_Defaults = Nothing
Set m_Options = Nothing
Set m_Arguments = Nothing
End Sub
‘ デフォルト値の登録
Public Sub AddDefault(ByVal key, ByVal value)
If m_Defaults.Exists(key) Then
m_Defaults(key) = value
Else
m_Defaults.Add key, value
End If
End Sub
‘ 解析済みオプションへのアクセサ（ReadOnly）
Public Property Get Options()
Set Options = m_Options
End Property
‘ ヘルプメッセージの表示
Public Sub ShowUsage()
WScript.Echo “使用方法: cscript.exe ” & WScript.ScriptName & ” [オプション]”
WScript.Echo “オプション:”
WScript.Echo ” –config=
WScript.Echo ” -v, –verbose 詳細出力モードを有効にします”
WScript.Echo ” -t, –timeout=
WScript.Echo ” -o, –output=
End Sub
‘ コアパーロジック
Public Sub Parse()
Dim i, arg, eqPos, key, val, nextArg
Dim rawArgs
‘ デフォルト値をオプションにコピー（初期化）
Dim k
For Each k in m_Defaults.Keys
m_Options.Add k, m_Defaults(k)
Next
‘ WScript.Argumentsを走査
i = 0
Do While i < WScript.Arguments.Count
arg = WScript.Arguments(i)
If Left(arg, 2) = "--" Then
' --------------------------------------------------
' ロングオプションの処理 (--key または --key=value)
' --------------------------------------------------
arg = Mid(arg, 3)
eqPos = InStr(arg, "=")
If eqPos > 0 Then
key = Left(arg, eqPos – 1)
val = Mid(arg, eqPos + 1)
Call SetOptionValue(key, val)
Else
key = arg
‘ 次の引数が値であるか判定（ハイフンで始まっていなければ値とみなす）
If (i + 1 < WScript.Arguments.Count) And (Left(WScript.Arguments(i + 1), 1) <> “-“) Then
i = i + 1
val = WScript.Arguments(i)
Call SetOptionValue(key, val)
Else
‘ 値がない場合はフラグ（True）とみなす
Call SetOptionValue(key, True)
End If
End If
ElseIf Left(arg, 1) = “-” And Len(arg) > 1 Then
‘ ————————————————–
‘ ショートオプションの処理 (-v または -abc などの結合対応)
‘ ————————————————–
Dim j, char
For j = 2 To Len(arg)
char = Mid(arg, j, 1)
‘ ショートオプションのエイリアス解決（必要に応じて拡張）
key = ResolveShortAlias(char)
‘ もし値を取るオプション（例: -t 30）の場合の処理
‘ ここでは単純化のため、フラグまたは次引数との結合を想定
If IsValueOption(key) And (j = Len(arg)) And (i + 1 < WScript.Arguments.Count) Then
If Left(WScript.Arguments(i + 1), 1) <> “-” Then
i = i + 1
val = WScript.Arguments(i)
Call SetOptionValue(key, val)
Exit For
End If
End If
Call SetOptionValue(key, True)
Next
Else
‘ ————————————————–
‘ 無名引数の処理
‘ ————————————————–
‘ 必要に応じて位置引数として配列や別Dictionaryに格納
End If
i = i + 1
Loop
End Sub
‘ オプション値の設定（型推論と安全な上書き）
Private Sub SetOptionValue(ByVal key, ByVal val)
‘ 登録されていない未知のオプションを弾く厳密な設計も可能だが、
‘ ここでは動的な追加を許容する
If m_Options.Exists(key) Then
m_Options(key) = val
Else
m_Options.Add key, val
End If
End Sub
‘ ショートオプションをロングオプション名へマッピング
Private Function ResolveShortAlias(ByVal char)
Select Case LCase(char)
Case “v”: ResolveShortAlias = “verbose”
Case “t”: ResolveShortAlias = “timeout”
Case “o”: ResolveShortAlias = “output”
Case “c”: ResolveShortAlias = “config”
Case Else
‘ 未知のショートオプションはそのままキーとする
ResolveShortAlias = char
End Select
End Function
‘ 値を伴うべきオプションの判定
Private Function IsValueOption(ByVal key)
Select Case LCase(key)
Case “timeout”, “t”, “config”, “c”, “output”, “o”
IsValueOption = True
Case Else
IsValueOption = False
End Function
End Function
End Class
—
3. チーフアーキテクトが解説するコードの急所
この実装には、レガシー環境でシステムを破綻させないための設計思想が随所に組み込まれている。
① COMオブジェクトのライフサイクル管理とメモリ最適化
VBScriptの `Scripting.Dictionary` は非常に強力だが、インスタンスを生成したままスコープを抜けたり、適切に `Nothing` を代入してメモリを解放しないと、IISのプロセス内や長期間稼働するバッチサーバーにおいて微小なメモリリークを引き起こす。
クラスの `Class_Terminate` イベント内で、内部保持しているすべてのDictionaryオブジェクトを明示的に破棄（`Set … = Nothing`）する構造にすることで、ガベージコレクタに依存しない確実なメモリ管理を実現している。
② 大文字小文字の揺らぎを許容する `CompareMode`
Windows環境（CMDやPowerShell）からスクリプトを実行する場合、ユーザーは `–Config` と入力したり `–config` と入力したり気まぐれである。
`m_Options.CompareMode = vbTextCompare` を明示的に指定することで、キーの大文字小文字を完全に無視させ、開発者およびオペレーターのヒューマンエラーをシステム側で吸収する堅牢性を確保している。
③ ショートオプションの結合（`-abc`）への対応
Linuxの標準的な挙動である、複数フラグの結合指定（例: `-v` と `-t` を `-vt` のように繋げる）を考慮し、ループ処理によって1文字ずつ分解して評価している。これにより、VBScriptでありながらモダンなCLIツールに匹敵する使い勝手を達成している。
—
4. 現場での運用・デプロイの知見
実務においてこのスクリプトを運用する際は、以下の実行コマンドの作法に注意してほしい。
:: 実行例（コマンドプロンプトから）
cscript.exe //NoLogo PosixArgParser.vbs –config=production.ini –verbose -t 60
- `//NoLogo` スイッチの徹底
`cscript.exe` の起動時に出力される著作権バナー（Microsof Corp. …）を抑止するため、必ず `//NoLogo` を付与して実行すること。これを怠ると、標準出力をパイプで別プログラムに渡す際、バナー文字列が混入してデータ破損の原因となる。
—
総括
VBScriptは「古い言語」ではない。それは、OSの深部にダイレクトにタッチでき、余計な依存関係を排除してシステムを自動化するための「完成されたミニマルなツール」である。
今回紹介したPOSIX風コマンドライン引数パーサーを組み込むことで、レガシーなWSHスクリプトは劇的にモダン化され、保守性と拡張性が飛躍的に向上する。枯れた技術の底力を引き出し、インフラの自動化を極限まで最適化せよ。
