VBS监视网络连接与断开的实例代码
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
vbs监视网络断开的代码:
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
这个年代了,vbs还是很好用的,回想当年搞asp时,经常用到这些,用vbs监视网络的连接与断开状态,个人感觉还是不错的,经济实用啊。
您可能感兴趣的文章:
VBS监视网络连接与断开的实例代码
电脑突然无法连网怎么办?电脑突然无法上网解决办法
VBS脚本运行库手册(11)-追加文本
cmd命令行与vbs修改IP地址及DNS等的代码
访问外部文本文件的vbs方法及例子
优酷视频无法播放或打不开问题解决办法
Go 编程:tcpserver & graceful shutdown
php如何实现websocket
php检测是否安装应用
mac连接wifi经常断线什么原因 mac连接wifi网络不流畅解决方法