Const WshFinished = 1
Const WshFailed = 2
strCommand = "ping.exe 127.0.0.1 -n 1"

Set WshShell = CreateObject("WScript.Shell")
Set WshShellExec = WshShell.Exec(strCommand)
Wscript.Sleep 1000

Select Case WshShellExec.Status
   Case WshFinished
       strOutput = WshShellExec.StdOut.ReadAll
   Case WshFailed
       strOutput = WshShellExec.StdErr.ReadAll
End Select

MsgBox strOutput