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

代码出处:How Can I Be Notified Any Time a Network Cable Gets Unplugged?

赞赏

微信赞赏支付宝赞赏

随机文章:

  1. 115网盘真实下载地址解析工具及其原理(VBS版)
  2. C语言中NULL和NUL的区别
  3. VBS实现UTF-8转Unicode(UTF-16)
  4. 用VBS判断操作系统是32位(x86)还是64位(x64)
  5. VC6中使用高版本API的方法

留下回复