Dim cmdtext
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec("%COMSPEC% /C cd e:\testecho success!")
Do While Not oExec.StdOut.AtEndOfStream
cmdtext = oExec.StdOut.ReadAll()
Loop
msgbox cmdtext
