中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbs 如何获取网络状态？

25869
新手上路

积分 10
发帖 10
注册 2009-8-1
状态离线

『楼主』: vbs 如何获取网络状态？

批处理可以通过ping 得知网络连接是开启还是被禁用
不知vbs 如何获取网络状态？

2009-8-1 21:50

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 2 楼』:

vbs 有 WMI 的 ping

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2009-8-2 03:25

25869
新手上路

积分 10
发帖 10
注册 2009-8-1
状态离线

『第 3 楼』:

能不能给个示例，我在网上没查到，多谢！

2009-8-3 03:37

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 4 楼』:

HOST = "."
TARGET = "www.google.com"

Set PingResults = GetObject("winmgmts:{impersonationLevel=impersonate}//" & _
      HOST & "/root/cimv2"). ExecQuery("SELECT * FROM Win32_PingStatus " & _
      "WHERE Address = '" + TARGET + "'")

For Each PingResult In PingResults
If PingResult.StatusCode = 0 Then
      If LCase(TARGET) = PingResult.ProtocolAddress Then
         OUTPUT = "Pinging " & TARGET & vbCrLf
      Else
         OUTPUT = "Pinging " & TARGET & " (" & PingResult.ProtocolAddress & ")" & vbCrLf
      End If
      OUTPUT = OUTPUT & "字节: " & PingResult.BufferSize & vbCrLf
      OUTPUT = OUTPUT & "延时(毫秒): " & PingResult.ResponseTime & vbCrLf
      OUTPUT = OUTPUT & "TTL(秒): " & PingResult.ResponseTimeToLive & vbCrLf
Else
      OUTPUT = OUTPUT & TARGET & " 没有回复" & vbCrLf
      OUTPUT = OUTPUT & "状态码: " & PingResult.StatusCode & vbCrLf
End If
Next

WScript.Echo OUTPUT

此帖被 +1 点积分点击查看详情

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2009-8-3 03:50

25869
新手上路

积分 10
发帖 10
注册 2009-8-1
状态离线

『第 5 楼』:

多谢，继续学习！

2009-8-3 07:31

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: