vbs ping实现的两种方式
对于vbs中ping的实现可以通过两种方式：
- 1、调用系统ping命令；
- 2、使用wmi查询pingstate类处理。
1、调用系统ping命令
Setwshell=CreateObject("WScript.Shell")
wshell.run("ping182.183.101.1",0.true)
对于以上调用，如果想对其进行过滤，可以考虑将运行结果重定向到文件，在读到一个string中，查找其中是否有timeout或超时字符，判断是否超时。本打算直接拼接命令重定向到文件，但怎么都不成功，所以run调用一个bat，bat中写：ping192.168.101.1-n1-w1200
2、使用wmi查询pingstate类处理：
'url="www.baidu.com"
url="119.75.217.109"
strComputer="."
SetobjWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")
SetcolPings=objWMIService.ExecQuery("Select*FromWin32_PingStatuswhereAddress='"&url&"'")
ForEachobjPingincolPings
MsgBoxurl&"respondedtoping."&vbcrlf&_
"RespondingAddress:"&objPing.ProtocolAddress&vbcrlf&_
"RespondingName:"&objPing.ProtocolAddressResolved&vbcrlf&_
"BytesSent:"&objPing.BufferSize&vbcrlf&_
"Time:"&objPing.ResponseTime&"ms"
Next
到此这篇关于vbsping的实现示例的文章就介绍到这了,更多相关vbsping内容请搜索毛票票以前的文章或继续浏览下面的相关文章希望大家以后多多支持毛票票！