VBS 断网后自动关机30秒后


复制代码 代码如下:

Dim Wsh,objWMIService,colMonitoredEvents
Set Wsh = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\. ootwmi")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect")
Do While True
Set strLatestEvent = colMonitoredEvents.NextEvent
Wsh.run "shutdown -s -t 30 -c "&chr(34)&"系统网络断开,机器即将关闭"&chr(34)
Loop



相关阅读:
VBS教程:属性-Item 属性
Asp.net实现IIS控制管理
自治事务和非自治事务的区别
影响SQLserver性能的关键三个方面
asp.net中一个linq分页实现代码
CSS网页布局问题:li上多出的margin问题
巧用FileSystem组件实现WEB应用中的本地特定打印的方法
Ubuntu Linux系统环境变量配置文件介绍
WordPress主题不显示中文标题的解决方法
JavaScript中的一些定位属性[图解]
非常漂亮的css星级效果总结
关於 FreeBSD
JS网络游戏-(模拟城市webgame)提供的一些例子下载
6 个漂亮的Ubuntu 8.10主题设计
快速导航

Copyright © 2016 phpStudy |