网络连接状态建立于断开的VBS脚本
更新时间：2011年02月22日 20:41:08 作者：
断开连接提示与建立连接提示实现代码。
断开连接提示
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
Wscript.Echo
Loop
建立连接提示
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
Wscript.Echo
Loop
建立连接提示
复制代码 代码如下:
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
相关文章
rem 请多多指导，如：增加功能；减少内存；加快速度；加密变形；语法格式；书写错误；精简语法2008-05-05
这篇文章主要为大家分享了通过vbs调用Photoshop批量生成缩略图，需要的朋友可以参考下2013-12-12
VBS教程：正则表达式简介 -字符匹配...2006-11-11
在windows 64位操作系统上运行32位的vbscript的方法
这篇文章主要介绍了在windows 64位操作系统上运行32位的vbscript的方法,需要的朋友可以参考下2016-11-11
cmdhere安装，使你在任何目录下直接进入改目录的CMD状态,需要的朋友可以参考下2008-05-05
这篇文章主要介绍了使用 Iisftp.vbs 启动FTP站点的方法,需要的朋友可以参考下2014-07-07
天天坐在电脑前的朋友要每隔一段时间活动一下，不然身体会变得越来越差。下成的vbs脚本可以每隔一段时间来提醒你。2008-06-06
自动写入文件上传到指定服务器SoftwareMeteringCLS.vbs源码
本次文章其中所用脚本代码为ghiconan版主提供的由Branimir petrovic编写的代码，我在后面根据我公司现有的网络情况做了一些文件管理的添加与删除，最后有用ＦＴＰ批处理的方法上传到服务器内！2008-12-12
Ｎ年前，那时估计知道%5c暴库的人还很少。这个vbs脚本应当是Lilo写的,应当深深表达一下敬意……2008-02-02
这篇文章主要介绍了VBS文本文件操作实现代码,需要的朋友可以参考下2014-04-04
最新评论