[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

TO wudixin96:上面的代码是不是要.net支持?

TOP

该加就加
辛苦了
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

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

TOP

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

TOP

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

[ 本帖最后由 Batcher 于 2009-5-1 21:59 编辑 ]
Software is like sex: it's better when it's free..!

TOP

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

TOP

返回列表