Question

vbs如何获取cmd的反馈数据？ 例如: set objshell = createobject(

vbs如何获取cmd的反馈数据？
例如:
set objshell = createobject("wscript.shell")
objshell.run "cmd /c mjamd" rem 乱打的字符
我要的答案是如何在运行后得到这个cmd的反馈值:
即
"mjamd"不是内部或外部命令，也不是可运行的程序或批处理文件
这句话，请问代码怎么改？
忘了补充，需要输出到msgbox函数的，也就是弹出个窗口的。

Answer 1

获取cmd的错误信息：

set objshell = createobject("wscript.shell")
msgbox objshell.exec("cmd /c mjamd").stderr.readall

获取cmd的输出信息和错误信息：

set objshell = createobject("wscript.shell")
msgbox objshell.exec("cmd /c mjamd 2>&1").stdout.readall

追问

请问输入结果为何有时会出现无字白框？该如何去掉白框？

追答

Set ws = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
ws.Run "cmd /c mjamd >""%tmp%\a.tmp"" 2>&1", 0, True
tmp = ws.ExpandEnvironmentStrings("%tmp%")
Set f = FSO.OpenTextFile(tmp & "\a.tmp")
If Not f.AtEndOfStream Then MsgBox f.ReadAll