text = "Arguments" & vbCrLf & vbCrLf 
Set objArgs = WScript.Arguments ' Создать объект. 
For i = 0 to objArgs.Count - 1 ' Цикл для обработки аргументов. 
     text = text & objArgs(i) & vbCrLf ' Получить аргумент. 
Next 
WScript.Echo text ' Показать аргумент с помощью метода Echo.

text = "Arguments" & vbCrLf & vbCrLf 
Set objArgs = WScript.Arguments ' Создать объект. 
For i = 0 to objArgs.Count - 1 ' Цикл для обработки аргументов. 
    if instr(objArgs(i), " ") > 0 then
       text = text & """" + objArgs(i) & """ " 
    else
       text = text & objArgs(i) & " " ' 
    end if
Next 
WScript.Echo text