关机脚本(转载)
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下的关机脚本,直接执行即可。
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下的关机脚本,直接执行即可。