话不多说,上代码
on error resume next
dim a,WSHshell
a = msgbox ("是否在一分钟内关机?",1,"关机界面")
set WSHshell = wscript.createobject("wscript.shell")
if (a =1) then
WSHshell.run "cmd.exe /c shutdown -s -t 60 -c ""一分钟内关机...""",0,true
else
WSHshell.run "cmd.exe /c shutdown -a",0,true
end if