如何从cmd获取变量并在vbscript - Vbscript中显示

Question

我是vbscript的初学者，我需要你的帮助，我的问题是如何从cmd中获取变量并在vbscript中显示例如从www.google.com中获取ping并将其显示在vbscript的msgbox中帮助我编写代码：

dim cmd,x set cmd = createobject("wscript.shell") x= cmd.run("cmd /k ping www.google.com ",1,true)

获取输出并稍后将其显示在msgbox中，帮助我

Answer 1

这里有一个如何做到这一点的例子。所检查的ping的响应是荷兰语，但这对您的情况无关紧要。

Set objExec = CreateObject("WScript.Shell").exec("ping www.google.com")

With objExec 
  Do While .Status = 0 
    WScript.Sleep 10 
    Do While Not .StdOut.AtEndOfStream 
      WScript.Echo .StdOut.ReadLine
      'Check the .StdErr to see if it is at the end of its
      'stream. If not, call ReadLine on it
      If Not .StdErr.AtEndOfStream Then
         .StdErr.ReadLine
      End If
    Loop
  Loop 
End With

但是建议，不要在vbscript中开始编写脚本，这是一条死路。选择一些现代的脚本语言，比如Python，或者更适合初学者: Ruby。

确保使用cscript作为引擎，而不是wscript，执行以下命令将其设置为默认值。

wscript //H:Cscript

这样，您的vbscript就是一行

puts `ping www.google.com`