dim WshShell
dim cancel
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.run "Shutdown /s /t 30 /c 开始自动关机了，请注意将资料存盘 /d p:1:1"
if msgbox("确定关机吗？",vbyesno) = vbno then
   WshShell.run "Shutdown /a"
end if
Windows下的关机脚本，直接执行即可。