亲宝软件园·资讯

展开

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

人气:0
想了解VBS监视网络连接与断开的代码的相关内容吗,在本文为您仔细讲解VBS监视网络连接与断开的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:VBS,监视,网络连接,断开,下面大家一起来学习吧。

监视网络连接:

复制代码 代码如下:

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

监视网络断开:

复制代码 代码如下:

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

加载全部内容

相关教程
猜你喜欢
用户评论