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

somebody

1. 
   
2. Dim WebAddress
   
3. WebAddress=InputBox("请输入你要ping的网络地址","ping a computer without using ping.exe","www.google.cn")
   
4. If WebAddress <> "" Then
   
5. Set OBJWMIService = GetObject("winmgmts:\\.\root\cimv2")
   
6. Set colPings = OBJWMIService.ExecQuery("Select * From Win32_PingStatus Where Address = '" &WebAddress& "'")
   
7. For Each OBJStatus in colPings
   
8.     If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then
   
9.         WScript.Echo "Computer did not respond."
   
10.     Else
    
11.         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     
    
12.     End If
    
13. Next
    
14. End If
    

复制代码

youxi01

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

somebody

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

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

youxi01

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

somebody

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

novaa

该加就加
辛苦了

youxi01

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