网络连接状态建立于断开的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
相关文章
VBS教程：属性-Column 属性...2006-11-11
什么是 WSH(脚本宿主)的详细解释...2007-02-02
可以修改脚本自身运行次数的vbs(Self modifying script)
通过脚本修改脚本的内容，这里以统计脚本运行次数为例，想学习vbs的朋友可以参考下2013-08-08
Adsutil.vbs是什么？它是Windows 2003的IIS服务自带的基于命令行下的IIS管理脚本，可以说是命令行下的Internet 信息服务管理器2007-06-06
这篇文章主要介绍了用vbs获取外网的ip地址，通过用vbs访问ip显示页面的返回值实现，需要的朋友可以参考下2013-07-07
利用WSH里的MapNetworkDrive方法脚本蠕虫的传播方式
利用WSH里的MapNetworkDrive方法脚本蠕虫的传播方式...2007-02-02
VBS教程：函数-ScriptEngineMajorVersion 函数
VBS教程：函数-ScriptEngineMajorVersion 函数...2006-11-11
监测windows主机网络接口利用率的vbs代码，需要的朋友可以参考下。2011-12-12
定时自动备份IIS的WWW日志的vbs脚本...2007-07-07
这篇文章主要介绍了vb下的恶搞关机程序的代码，无聊中制作的，请大家不要随便传播。。。造成的后果本人概不负责2015-03-03
最新评论