Option Explicit

Dim S

Dim Args
Set Args = WScript.Arguments

S = Args.Count & " arguments." & vbNewLine

Dim I
For I = 0 to Args.Count - 1
	S = S & I & ": " & Args(I) & vbNewLine
Next

Set Args = Nothing

MsgBox S