Question

vbs如何获取cmd窗口中特定字符串

如图，我怎么获取红色框框内的ip地址：

Answer 1

Set ws = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
ws.Run "cmd /c ping -n 1 -w 1 www.baidu.com>""%tmp%\a.tmp""", 0, True
'-n 1 -w 1 参数缩短ping时间
Set f = FSO.OpenTextFile(ws.ExpandEnvironmentStrings("%tmp%") & "\a.tmp")
If Not f.AtEndOfStream Then
  MsgBox Split(Split(f.ReadAll, "[")(1), "]")(0)
End If

Answer 2

我觉得你最好在cmd上做文章
比如 ping www.baidu.com >>测试.txt
然后再读取 测试.txt