对于vbs中ping的实现可以通过两种方式 ：
1、调用系统ping命令
我要评论
set wshell = createobject("wscript.shell")
wshell.run("ping 182.183.101.1",0.true)
对于以上调用，如果想对其进行过滤，可以考虑将运行结果重定向到文件，在读到一个string中，查找其中是否有timeout或超时字符，判断是否超时。本打算直接拼接命令重定向到文件，但怎么都不成功，所以run调用一个bat，bat中写：ping 192.168.101.1 -n 1 -w 1200
2、使用wmi查询pingstate类处理：
'url = "www.baidu.com"
url = "119.75.217.109"
strcomputer = "."
set objwmiservice = getobject("winmgmts:{impersonationlevel=impersonate}!\\" & strcomputer & "\root\cimv2")
set colpings = objwmiservice.execquery ("select * from win32_pingstatus where address = '" & url & "'")
for each objping in colpings
msgbox url & " responded to ping." & vbcrlf &_
"responding address: " & objping.protocoladdress & vbcrlf &_
"responding name: " & objping.protocoladdressresolved & vbcrlf &_
"bytes sent: " & objping.buffersize & vbcrlf &_
"time: " & objping.responsetime & " ms"
next
到此这篇关于vbs ping的实现示例的文章就介绍到这了,更多相关vbs ping内容请搜索移动技术网以前的文章或继续浏览下面的相关文章希望大家以后多多支持移动技术网！
如对本文有疑问， 点击进行留言回复！！
网友评论