网络连接状态建立于断开的VBS脚本

2010年11月30日

断开连接提示

 
strComputer = "." 

Set objWMIService = GetObject("winmgmts:" & strComputer & "rootwmi") 
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ 
("Select * from MSNdis_StatusMediaDisconnect") 

Do While True 
Set strLatestEvent = colMonitoredEvents.NextEvent 
Wscript.Echo "A network connection has been lost:" 
WScript.Echo strLatestEvent.InstanceName, Now 
Wscript.Echo 
Loop

建立连接提示

 
strComputer = "." 

Set objWMIService = GetObject("winmgmts:" & strComputer & "rootwmi") 
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ 
("Select * from MSNdis_StatusMediaConnect") 

Do While True 
Set strLatestEvent = colMonitoredEvents.NextEvent 
Wscript.Echo "A network connection has been made:" 
WScript.Echo strLatestEvent.InstanceName, Now 
Wscript.Echo 
Loop