关机VBS脚本
2013-06-15 07:03
218 查看
1.关机脚本(shutdown1.vbs):
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(8)
Next
2.延时60秒,在关机前提示,可以在延时到达前取消关机(shutdown2.vbs脚本):
set wshshell = CreateObject("WScript.Shell")
timeout = 60
'Time Out 可以自己定义
ask = "系统将在 " & timeout & " 秒钟后关机!"
title = "自动关机提示"
constants = vbExclamation + vbOkCancel
result = wshshell.Popup(ask, timeout, title, constants)
if result = vbCancel then
elseif result = true then
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(8)
Next
end if
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(8)
Next
2.延时60秒,在关机前提示,可以在延时到达前取消关机(shutdown2.vbs脚本):
set wshshell = CreateObject("WScript.Shell")
timeout = 60
'Time Out 可以自己定义
ask = "系统将在 " & timeout & " 秒钟后关机!"
title = "自动关机提示"
constants = vbExclamation + vbOkCancel
result = wshshell.Popup(ask, timeout, title, constants)
if result = vbCancel then
elseif result = true then
Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(8)
Next
end if
相关文章推荐
- VBS脚本——实现立即关机
- Crack8 VBS整人脚本 你不说你爱我 就关机
- XP、Windows7下自动关机vbs脚本,使用windows计划任务+vbs脚本在XP、Windows7下实现定时自动关机
- javascript中动态加载js、vbs脚本或者css样式表
- vbs脚本实现window环境下的mysql数据库的备份及删除早期备份
- 2.如何实现使用VBS脚本程序对直播间自动评论
- nginx 启动 关机 重启 脚本命令
- 文件 'xiao.vbs', Visual Basic 脚本-病毒
- 自动删除超过30天文件的vbs脚本【转发】
- 域普通用户环境下执行脚本Xcacls.vbs更改目录权限
- 自动下载并运行的VBS脚本代码
- 定时关机、重启的脚本
- 计划任务 自动 服务器检查 的vbs脚本
- Vbs脚本编程简明教程之十一 ——FSO中文件的基本操作
- 用vbs确定脚本正在哪一个帐户下运行
- Windows系统使用vbs脚本或bat脚本强制杀死指定所有进程 vbs实现循环持续写入内容到vbs打开开的记事本 使用vbs、bat添加windows计划任务 使用cmd schtasks命令添加windows计划任务
- 自动安装筛选器vbs脚本
- 系统关机时执行自己的脚本
- Iisweb.vbs:IIS 网站管理脚本