Question

VBS如何获得cmd命令的返回信息？

比如我要ping一个地址，如果获得它的返回信息？
把结果保存在文件里再读取文件太麻烦了，有更简单直接的办法吗？
还有用Exec方法倒是可以但不能设置cmd窗口状态它只有一个参数，也不好

Answer 1

Dim strText
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec("%COMSPEC% /C ""PING 127.0.0.1""")
Do While Not oExec.StdOut.AtEndOfStream
    strText = oExec.StdOut.ReadAll()
Loop

结果在strText里