Vbs实现监测断网就关机的实现代码

Dim objWMIService,objShell
Set objWMIService = Getobject("winmgmts:\\.\root\cimv2")
Set objShell = CreateObject("WScript.Shell")
'实现实时监测
do while true
Dim objNetworks,objNetwork
Set objNetworks = objWMIService.execQuery("Select * From Win32_NetworkAdapter where NetConnectionID='本地连接'")
For Each objNetwork In objNetworks
 if objNetwork.NetConnectionStatus<>2 then
  'objShell.run "shutdown -s -f -t 30 -c " & chr(34) & "由于计算机网络断开，机器即将关闭" & chr(34)
 msgbox "网络已断开"
 exit for
 end if

Next
set objNetworks=nothing
'延时10秒
WScript.sleep 1000*10
Loop

strIP="192.168.1.1"
'实时监测
do while true
Set objShell = CreateObject("WScript.Shell")
If Not IsOnline_1(strIP) Then
? objShell.run "shutdown -s -f -t 30 -c " & chr(34) & "机器即将关闭" & chr(34)?
wscript.quit
End If
wscript.sleep 1000*10
loop

Function IsOnline(strComputer)
??? IsOnline = false
??? strCommand = "%comspec% /c ping -n 2 -w 500 " & strComputer & ""
??? Set objExecObject = objShell.Exec(strCommand)
??? Do While Not objExecObject.StdOut.AtEndOfStream
???????? strText = objExecObject.StdOut.ReadAll()
???????? If Instr(strText, "Reply") > 0 Then
?????????????????? IsOnline = true
???????? End If
??? Loop
End Function

Function IsOnline_1(URLstr)
??? IsOnline_1 = false
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & URLstr & "'")
??? For Each objPing in colPings
????????? if instr(objPing.ProtocolAddress,URLstr)>0 then
?????????????????? ????? IsOnline_1=true
?????????????????? ????? exit for
???????? ? ????end if
??? Next
End Function