对于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" |
下载:http://www.dsploit.net/download/ 横竖,一会我就删去!!看完完事了, function() {1)assert是函数,eval不是函数,是言语结构器能够看...
“明星商务-【褚肇琪】” 掌握语言:普通话、阿拉伯语邮箱:f22**n*y@*.com掌握语言:普通话、台语生肖:兔学历:学士微信号:30**k**i为了真实、安全、靠谱,南通伴游看图预约,但联系...
当你可以或许通过文案把流传酿成传说,以故事这种智慧的包装、诚意的炒作,让用户等闲“忘不了”时,你就得到了进入用户心智的钥匙。 这两天,一条名叫《啥是佩奇》的短片红了,满伴侣圈都在传!乍一看,我还觉得是...
并不是告白变得完全无效,而是情况变了,用户的心智变了,出格是此刻的年青人,正如马化腾所言“天天早上醒来最大的担忧就是不知道今后的互联网主流用户的利用习惯是什么。 十多年前是“脑白金”的时代,做营销比的...
据安全厂商Imperva在2018年展开的调查显示,尽管WordPress是骇客最常锁定的内容管理平台,但全球的WordPress网站漏洞,却有高达98%是由于外挂程序所引发,只有2%涉及Word...
很多win10客户在初次应用电子计算机时设定了密码,以保证 账号安全性,可是在家里呆了很长期以后,发觉她们压根沒有应用密码。每一次开启它时,都是会尤其不便。我想问在线编辑器如何取消密码设定。 ,在...