リファレンス、WScript オブジェクト、Arguments プロパティ

For Each x in WScript.Arguments
  MsgBox x
Next

まんま

Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
  WScript.Echo objArgs(I)
Next