VBScript新手求助：获取CMD命令输出并在MsgBox中显示

嘿，作为VBScript新手，你已经搭好基础代码框架啦！不过你用的Run方法其实只能返回命令的退出状态码（比如0代表执行成功，非0代表出错），没法直接拿到命令的输出内容——这就是你看不到ping结果的原因。咱们换用Exec方法就能轻松解决这个问题，它专门用来捕获命令的标准输出。

完善后的完整代码 #

Dim cmd, execResult, outputContent
Set cmd = CreateObject("WScript.Shell")

' 注意把原来的/k换成/c：/c表示执行完命令后自动关闭CMD窗口，/k会保留窗口
Set execResult = cmd.Exec("cmd /c ping www.google.com")

' 一次性读取命令的所有输出内容
outputContent = execResult.StdOut.ReadAll()

' 把输出内容显示在MsgBox里
MsgBox outputContent, vbInformation, "Ping命令执行结果"

关键知识点解释 #

• Exec vs Run：Exec方法会返回一个WshExec对象，这个对象包含了命令的输出、错误信息等内容，而Run只能返回退出码。
• StdOut.ReadAll()：这个方法会读取命令的所有标准输出内容，如果你需要逐行处理输出，可以用StdOut.ReadLine()配合循环来实现。
• cmd /c vs cmd /k：/c参数让CMD执行完指定命令后自动关闭窗口，而/k会让窗口保持打开，这里我们不需要保留窗口，所以用/c更合适。

额外补充：捕获错误输出 #

如果命令执行出错（比如ping一个不存在的域名），你还可以通过StdErr属性获取错误信息，比如：

Dim errorMsg
errorMsg = execResult.StdErr.ReadAll()
If errorMsg <> "" Then
    MsgBox "命令执行出错：" & vbCrLf & errorMsg, vbExclamation, "错误提示"
End If

内容的提问来源于stack exchange，提问作者BigPapi