'关机代码
dim ntime
ntime = inputbox ("关机时间min",,30)
msgbox ntime & " min"
ntime=ntime*60
set a = CreateObject("wscript.Shell")
a.Run "Shutdown /f /s /t " & ntime & " /c " & "关机定时" & ntime/60 & "min",0
'取消关机代码
set a = CreateObject("wscript.Shell")
a.Run "Shutdown /a",0 '取消关机
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024