Vbs 实现自动关机

代码如下：

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

WScript.Sleep 2000
'will be shutdown after 120 seconds 
WshShell.Run "shutdown -r -t 120"  
WScript.sleep 6000
'cancle shutdown action
WshShell.Run "shutdown -a"