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. JavaScript函数参数,传值还是传址?
  2. 用C语言屏蔽键盘和鼠标
  3. TL-WR703N进入OpenWrt的Failsafe安全模式
  4. C语言函数strcpy strncpy和strlcpy
  5. VBScript实现ZIP文件的压缩或解压(ZipCompressor)

留下回复