首页脚本VBS 断网后自动关机30秒后

VBS 断网后自动关机30秒后

时间2024-02-11 13:03:03发布访客分类脚本浏览694
导读:收集整理的这篇文章主要介绍了VBS 断网后自动关机30秒后,觉得挺不错的,现在分享给大家,也给大家做个参考。 复制代码 代码如下:Dim Wsh,objWMIService,colMon...
收集整理的这篇文章主要介绍了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脚本
  • 自己写的一个定时关机或重启的vbs脚本
  • vbs实现的定时关机、重启的脚本和程序
  • vbs实现的eMule电驴自动关机脚本代码
  • Crack8 VBS整人脚本 你不说你爱我 就关机
  • VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼容版)
  • vb下的恶搞关机程序
  • VB关机恶搞小程序

声明:本文内容由网友自发贡献,本站不承担相应法律责任。对本内容有异议或投诉,请联系2913721942#qq.com核实处理,我们将尽快回复您,谢谢合作!


若转载请注明出处: VBS 断网后自动关机30秒后
本文地址: https://pptw.com/jishu/609834.html
VBS 偏移量解密工具[算法解密] 自动复制U盘文件的VBS脚本

游客 回复需填写必要信息