首页 / 编程脚本 / 网络连接状态建立于断开的VBS脚本

断开连接提示
复制代码 代码如下:
strComputer = "."

Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootwmi"）
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 & " ootwmi"）
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