dim WshShell
dim cancel
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.run "Shutdown /s /t 10 /c 开始自动关机了，请注意将资料存盘 /d p:1:1"
if msgbox("确定关机吗？",vbyesno) = vbno then
?? WshShell.run "Shutdown /a"
end if
可以将该脚本添加到计划任务中，以确保每天下班后计算机自动关机，避免切电源带来的风险如果执行此关机脚本时您正在工作，脚本提供给您取消关机操作的机会：
?
对弹出的对话框，不理睬或单击Yes都会继续关机，可以选择No来取消关机过程
注意：文件后缀保存为vbs