引数を受け取る方法

'1 個目の引数はインデックス 0 に格納される。
変数 = Wscript.Arguments(0)
 
'2 個目の引数
変数 = Wscript.Arguments(1) 

Option Explicit
 
Dim intArgsCount
 
intArgsCount = Wscript.Arguments.Count
 
'引数の数を取得し数が合わなければ処理を中止する。
If intArgsCount <> 2 Then
  WScript.Echo "引数が" & intArgsCount & "個渡されました。" & vbCrLf _
             & "指定可能な引数の数は 2 個なので処理を中止します。"
  
  '処理を中断
  WScript.Quit
End If
 
WScript.Echo "処理開始"
WScript.Echo "1 個目の引数の値：" & Wscript.Arguments(0)
WScript.Echo "2 個目の引数の値：" & Wscript.Arguments(1) 

Option Explicit
 
Dim intArgsCount
Dim strArg1
Dim strArg2
Dim strArg3
Dim strArg4
 
intArgsCount = Wscript.Arguments.Count
 
'必須の引数が指定されているかを確認し、足りなければ処理を中断。
If intArgsCount <= 1 Then
  WScript.Echo "引数が" & intArgsCount & "個渡されました。" & vbCrLf _
             & "最低 2 個の引数が必要なので処理を中止します。"
  
  '処理を中断
  WScript.Quit
End If
 
'引数の数が多すぎないかを確認し、多すぎれば処理を中断。
If intArgsCount >= 5 Then
  WScript.Echo "引数が" & intArgsCount & "個渡されました。" & vbCrLf _
             & "引数は最大 4 個までなので処理を中止します。"
  
  '処理を中断
  WScript.Quit
End If
 
strArg1 =  Wscript.Arguments(0)
strArg2 =  Wscript.Arguments(1)
 
'任意の引数はセットされている場合のみ取得する
If intArgsCount >= 3 Then
  strArg3 =  Wscript.Arguments(2)
End If
 
If intArgsCount >= 4 Then
  strArg4 =  Wscript.Arguments(3)
End If
 
WScript.Echo "処理開始"
 
WScript.Echo "1 個目の引数：" & strArg1
WScript.Echo "2 個目の引数：" & strArg2
WScript.Echo "3 個目の引数：" & strArg3
WScript.Echo "4 個目の引数：" & strArg4