[WMI实例]在网络连接断开时通知用户

最新推荐文章于 2021-01-14 21:40:45 发布

weixin_30387423

最新推荐文章于 2021-01-14 21:40:45 发布

阅读量122

点赞数

原文链接：http://www.cnblogs.com/cnsealine/p/3343725.html

版权

strComputer := "."

objWMIService := ComObjGet("winmgmts:\\" strComputer "\root\wmi")
colMonitoredEvents := objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect") 

Loop
{
        strLatestEvent := colMonitoredEvents.NextEvent 
    MsgBox, % "有一个网络连接断开了: " strLatestEvent.InstanceName
}
return

strComputer := "."

objWMIService := ComObjGet("winmgmts:\\" strComputer "\root\wmi")
colMonitoredEvents := objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaConnect") 

Loop
{
        strLatestEvent := colMonitoredEvents.NextEvent 
    MsgBox, % "有一个网络连接建立了: " strLatestEvent.InstanceName
}
return

转载于:https://www.cnblogs.com/cnsealine/p/3343725.html