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. 批处理技术内幕:ECHO命令
  2. 用VBS发送邮件
  3. 用VBS实现凯撒密码算法
  4. VBS模拟POST上传文件
  5. VBS图片处理之用VBS缩放图片大小

留下回复