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. VBS获取GZIP压缩的HTTP内容
  2. VBS中的SetLocale函数到底有什么用?
  3. Chrome用 –proxy-server 设置代理服务器
  4. OpenWrt配置he.net的6in4隧道访问IPv6
  5. 用JavaScript实现PHP的basename函数

留下回复