[greg zakharov]

Код:

Dim objWShell : Set objWShell = CreateObject("WScript.Shell")
Dim objExec : Set objExec = objWShell.Exec("cmd /q /k echo off")
objExec.StdIn.WriteLine("1.cmd")
objExec.StdIn.WriteLine("2.cmd")
objExec.StdIn.WriteLine("exit")
WScript.Echo objExec.StdOut.ReadAll
Set objWShell = Nothing

С Вас сто рублей