咔叽游戏

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 408|回复: 0

[vbs] vbs ping实现的两种方式

[复制链接]
  • TA的每日心情
    无聊
    2019-6-2 14:11
  • 签到天数: 4 天

    [LV.2]圆转纯熟

    发表于 2020-7-3 08:38:26 | 显示全部楼层 |阅读模式
    对于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内容请搜索咔叽论坛以前的文章或继续浏览下面的相关文章希望大家以后多多支持咔叽论坛!

    原文地址:https://www.jb51.net/article/183875.htm

    QQ|免责声明|小黑屋|手机版|Archiver|咔叽游戏

    GMT+8, 2024-3-19 16:54

    Powered by Discuz! X3.4

    © 2001-2023 Discuz! Team.

    快速回复 返回顶部 返回列表