- 帖子
- 44
- 积分
- 220
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2009-10-31
|
VBS监测网络
请教一个代码,编写一个VBS能够监测网络就是说运行这个脚本之前网络连接是断开(或者正常连接)的,运行后插入网线(拔掉网线或者禁用网络连接)自动关机。希望各位老大指教,批处理我能写。。。问题是那个黑窗口一闪而过。。。所以想用VBS来实现下,请各位指教了
下面是我搜索来的代码只能实现连接状态转变为断开或者禁用的话自动关机,不能实现从断开到连接的监测
Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\wmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -r -f -t 30 -c "&chr(34)&"系统网络断开,机器即将重启,开机前确认网线已插好"&chr(34)
Loop
[ 本帖最后由 q1x2x3 于 2010-7-6 00:47 编辑 ] |
|