Question

vbs调用CMD问题

我想在VBS中调用一个CMD命令，然后把CMD的执行结果写到VBS里面供下面调用。

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里