> WshShell = CreateObject("WScript.Shell") > &&WshShell.CurrentDirectory ='D:\' > oExec = WshShell.Exec("%comspec% /c dir") > > do while !m.oExec.StdOut.AtEndOfStream > x = oExec.StdOut.ReadLine() > ?'stdout ', x > enddo > > do while !m.oExec.StdErr.AtEndOfStream > x = oExec.StdErr.ReadLine() > ?'StdErr', x > enddo > > > && ?oExec.Terminate() > ?oExec.ExitCode > >&& http://msdn.microsoft.com/en-us/library/af9z0a1t(v=vs.84).aspx >