网络连接监测的VBS怎样写？

Dim wmi
Set wmi=GetObject("winmgmts://./root/cimv2")
For Each i in wmi.Execquery("Select * from Win32_PingStatus Where Address='www.sohu.com'")
    If i.StatusCode = 0 Then
    WScript.Echo "正常"
    Else
   WScript.Echo "异常"
    End If
Next
复制代码

Dim Counter
Counter=0
Do While Abs(Counter) < 50000
WScript.Sleep 5000
Counter=Counter+Ping("www.sohu.com")
Loop

Function Ping(s)
Dim wmi
Set wmi=GetObject("winmgmts://./root/cimv2")
For Each i in wmi.ExecQuery("Select * From Win32_PingStatus Where Address='" & s & "'")
    If i.StatusCode=0 Then
       x=1
    Else
       x=-1
       Msgbox "网络连接被断开!"
    End If
Next
Ping=x
End Function
复制代码