'VBScript参数处理
Info="参数个数:" & Wscript.Arguments.Count
For i=0 To WScript.Arguments.Count-1
Info=Info & Chr(13) & Chr(10) & WScript.Arguments(i)
Next
MsgBox Info
Info="参数个数:" & Wscript.Arguments.Count
For i=0 To WScript.Arguments.Count-1
Info=Info & Chr(13) & Chr(10) & WScript.Arguments(i)
Next
MsgBox Info