批处理可以通过ping 得知网络连接是开启还是被禁用
不知vbs 如何获取网络状态？
不知vbs 如何获取网络状态？
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » vbs 如何获取网络状态？
查看 841 回复 4
楼 主
vbs 如何获取网络状态？
发表于 2009-08-01 21:50 · 中国 北京 联通
第 2 楼
发表于 2009-08-02 03:25 · 中国 陕西 西安 电信
vbs 有 WMI 的 ping
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
第 3 楼
发表于 2009-08-03 03:37 · 中国 北京 联通
能不能给个示例，我在网上没查到，多谢！
第 4 楼
发表于 2009-08-03 03:50 · 中国 陕西 西安 电信
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
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 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| 25869 | +1 | 2009-08-03 07:30 |
S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
第 5 楼
发表于 2009-08-03 07:31 · 中国 北京 联通
多谢，继续学习！
论坛跳转: