如何用vbs返回cmd命令行内容?
发布网友
发布时间：2023-04-28 07:26
共1个回答
热心网友
时间：2023-10-27 00:40
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
热心网友
时间：2023-10-27 00:40
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
