vbs 如何获取网络状态？ - 中国DOS联盟论坛

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楼　25869	发表于 2009-08-01 21:50
新手上路　发帖 10　积分 10
vbs 如何获取网络状态？批处理可以通过ping 得知网络连接是开启还是被禁用不知vbs 如何获取网络状态？

第2楼　slore	发表于 2009-08-02 03:25
铂金会员　发帖 2,478　积分 5,212
vbs 有 WMI 的 ping

第3楼　25869	发表于 2009-08-03 03:37
新手上路　发帖 10　积分 10
能不能给个示例，我在网上没查到，多谢！

第4楼　slore	发表于 2009-08-03 03:50
铂金会员　发帖 2,478　积分 5,212
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

第5楼　25869	发表于 2009-08-03 07:31
新手上路　发帖 10　积分 10
多谢，继续学习！