对于vbs中ping的实现可以通过两种方式 :
1、调用系统ping命令;
2、使用wmi查询pingstate类处理。
1、调用系统ping命令
12 | Setwshell = 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类处理:
123456789101112 | 'url = "www.baidu.com"url = "119.75.217.109"strComputer = "."SetobjWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer & "\root\cimv2")SetcolPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '"& url & "'")ForEachobjPing in colPingsMsgBox url & " responded to ping."& vbcrlf &_"Responding Address: "& objPing.ProtocolAddress & vbcrlf &_"Responding Name: "& objPing.ProtocolAddressResolved & vbcrlf &_"Bytes Sent: "& objPing.BufferSize & vbcrlf &_"Time: "& objPing.ResponseTime & " ms" |
找黑客弄到学校月考试卷相关问题 黑客军团第四季 网盘相关问题 怎么成为合格的黑客知乎 下一期双色球号码推荐(双色球机选号码)...
第中学不爱情是很大的遗憾,中学早恋他。当孩子杜绝碰着任何困难的时候。处理惩罚保持间隔,孩子早恋这样的恋爱能98乐成的。中学生早恋彼此欣防备赏的人发生的,也没本领保障互相拥有的幸福一直拥有下去。进修早恋...
怎么设置电脑上的无线网桥接? 桥,能使两个地方相接互通。那麼,在无线网络网络中,2个单独的无线网络网络怎样保证联接相通呢?这就必须大家如今要详细介绍的无线网桥了。想来,根据这一姓名,大家都能了解它的...
7月15日信息,据海外新闻媒体,做为在微软公司全球合作方交流会(Wordwide Partner Conference,WPC)上的中心思想性讲话,微软公司的顶尖运营官凯文-特纳(Kevin Tu...
网络赚钱,所谓流量为王,只要有了流量,变现就会非常简单。 很多人做项目,往往就死在了流量上。随着互联网规则的日益完善,流量越来越难以获取。论坛发帖顶贴,流量就来的时代已经过去,现在获取流量的成本已经...
海洋生物有哪些(有哪些常见的海洋哺乳动物?)海米们,海洋哺乳动物是哺乳类中适于海栖环境的特殊类群,通常被人们称为“海兽”。今天,让我们换个角度认识几位“老朋友”吧! 兽中之“王”——蓝鲸 蓝...