VBS不使用ping命令的情况下ping主机

somebody

Dim WebAddress
WebAddress=InputBox("请输入你要ping的网络地址","ping a computer without using ping.exe","www.google.cn")
If WebAddress <> "" Then
Set OBJWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colPings = OBJWMIService.ExecQuery("Select * From Win32_PingStatus Where Address = '" &WebAddress& "'")
For Each OBJStatus in colPings
    If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then 
        WScript.Echo "Computer did not respond." 
    Else
        MsgBox "pinging [" &WebAddress& "] one time with "&OBJStatus.BufferSize& "bytes of data:" &chr(10)&chr(10)& "Reply from " &OBJStatus.ProtocolAddress& ": bytes=" &OBJStatus.BufferSize& " time="&OBJStatus.ResponseTime& "ms TTL="&OBJStatus.ResponseTimeToLive     
    End If
Next
End If
复制代码

youxi01

TO wudixin96：上面的代码是不是要.net支持？

novaa

该加就加
辛苦了

somebody

分数加着玩的........ 你说那里加分泛滥，你不是在说我那些被加分的是垃圾吖...... 让我告诉你为什么我最近总被加分.. 那里每天没什么好帖子，回复也少，基本是那些被人看过N次的，每天上线会员很少的........
我那么积极，加点分有什么过分.......
再说了，你这样想干脆把自个论坛积分制度废掉好了.............
不加分，人家当我话没有任何可信度.............有的可靠分数镇住，假假人家也相信几分

youxi01

你觉得 加分 那么泛滥的地方，那个分数对你还有意义吗？

somebody

加点分吖或者给点钱吖 老大..............
我在非常批处理经常被加分习惯了吖..........

[ 本帖最后由 Batcher 于 2009-5-1 21:59 编辑 ]

youxi01

期待somebody一些更高技术或应用型代码（WMI技术）的出现。