dim x
set w=createobject("wscript.shell")
x=inputbox("请输入倒计时关机时间如60表示一分钟后关机"&"VBS迷你关机小程序")
if vbok then
w.run "shutdown -s -t " + x
if x="" then
w.run "shutdown -a "
end if
end if
set w=createobject("wscript.shell")
x=inputbox("请输入倒计时关机时间如60表示一分钟后关机"&"VBS迷你关机小程序")
if vbok then
w.run "shutdown -s -t " + x
if x="" then
w.run "shutdown -a "
end if
end if