主页 > 知识库 > vbs ping实现的两种方式

vbs ping实现的两种方式

热门标签:哪里有便宜的地图标注公司 如何用机器人进行电销 地图标注政府哪个部门管 神行者美术馆地图标注 百度地图标注点距离代码 佛山真人电销机器人厂家 除了地图标注还有这种生意吗 东营快递外呼系统 齐齐哈尔高德地图标注店

对于vbs中ping的实现可以通过两种方式 :

  • 1、调用系统ping命令;
  • 2、使用wmi查询pingstate类处理。

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内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家!

您可能感兴趣的文章:
  • VBS遍历Excel工作表的实现代码
  • VBS打开当前脚本所在文件夹
  • VBS怎么获取指定目录下的文件列表
  • 用vbs实现文本循环读取
  • VBS日期(时间)格式化函数代码
  • VBS递归创建多级目录文件夹的方法
  • Vbs备份指定文件到指定目录并且以日期重命名的实现代码

标签:湖州 鹤壁 四平 文山 铜川 邢台 西安 海口

巨人网络通讯声明:本文标题《vbs ping实现的两种方式》,本文关键词  vbs,ping,实现,的,两种,方式,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《vbs ping实现的两种方式》相关的同类信息!
  • 本页收集关于vbs ping实现的两种方式的相关信息资讯供网民参考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推荐文章