当前位置：首页 > 资讯 > 技术文档

VBS监视网络连接与断开的代码

时间：2022-06-21 20:27 编辑：来源：阅读：
扫一扫，手机访问

摘要：VBS监视网络连接与断开的代码

[b]监视网络连接：[/b]

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
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

[b]监视网络断开：[/b]

[u]复制代码[/u] 代码如下:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\wmi")
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
Loop

全部评论(0)

上一篇：VBS教程：方法-GetSpecialFolder 方法
下一篇：高手必看的vbs的至尊境界

资讯排行榜
更多>>