强制自动关机

dim obj
set Obj = createobject("WScript.Shell")
//下面这句是倒计时168秒后，执行强制自动关机
Obj.Run "shutdown /f /s /t 168"
Obj.popup "下面有请【强制关机】先生 闪亮登场！"& a+ b+ c+ d,5,"强制关机",64+4096
//弹出后，5秒后自动消失，脚本继续
//下面这句是播放路径("C:\WINDOWS\Media\Windows XP 启动.wav")音乐文件进行提醒
Call Plugin.Media.Play("C:\WINDOWS\Media\Windows XP 启动.wav")
Obj.popup "如果发现关错了，不要慌，【开始】--【运行】--输入cmd--输入shutdown -a 然后回车，可以取消关机。（按键精灵论坛乐逍遥168搜集整理）"& a+ b+ c+ d,60,"强制关机",64+4096