想写一个批处理ping自己的拨号上网ip,如果出现断网就自动关机
如果出现断网就自动关机,可以这样:- Dim WSH, WMI, EVN
- Set WSH = CreateObject("Wscript.Shell")
- Set WMI = GetObject("winmgmts:\\.\root\wmi")
- Set EVN = WMI.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
- Do While True
- Set LatestEvent = EVN.NextEvent
- WSH.Run("shutdown -s -t 0")
- Loop
复制代码
|