标题: VBS监测网络 [打印本页]

---

作者: q1x2x3    时间: 2010-7-6 00:45     标题: 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 编辑 ]

---

作者: canyuexiaolang    时间: 2010-7-6 06:49

如果楼主愿意以藏运行批处理的话，那么也是可以的。
利用VBS隐藏运行批处理。
===============================
不知是否如愿？

---

作者: q1x2x3    时间: 2010-7-6 11:19

恩，这个我明白，可是批处理的话毕竟不是很完善，再怎么隐藏好像都会跳出黑窗口的吧，还有就是如果我用批处理的话，别人同样能够使用批处理来禁止我的东西运行的


呵呵谢谢你的回答


我正在努力的学习当中

---

作者: q1x2x3    时间: 2010-7-6 16:53

。。。。。一天不看沉下去了，大家帮帮忙啊

---

作者: canyuexiaolang    时间: 2010-7-6 17:20

额？用VBS隐藏不会跳出来啊、

---

欢迎光临 批处理之家 (http://bathome.net./)

Powered by Discuz! 7.2