自己写的一个定时关机或重启的vbs脚本

1. dim ActionID  
2. ActionID = 1    '0注销，1关机，2重启,  
3. ActionTime = "2006-1-4 13:42:30"    '关机或重启时间  
4.  
5. function ShutDown()  
6.     dim objShell  
7.     Set objShell = WScript.CreateObject("Wscript.Shell")  
8.  
9.     dim Application  
10.     set Application = CreateObject("Shell.Application.1")  
11.     Application.ShutdownWindows()  
12.     dim upi  
13.     for upi = 0 to 4  
14.         WScript.Sleep(50)  
15.         objShell.sendKeys("{UP}")  
16.     next  
17.     For upi = 1 to ActionID  
18.         WScript.Sleep(50)  
19.         objShell.sendKeys("{DOWN}")  
20.     next  
21.     '使用时，请把下行的注释符去掉  
22.     'objShell.sendKeys("{ENTER}")  
23. end function  
24.  
25. While true  
26.     if DateDiff("s", Now, ActionTime) < 0 then  
27.         ShutDown()  
28.     end if  
29.     WScript.Sleep(5*1000)  
30. wend  
31.  
32.  
33. '将上面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右键选择以命令提示打开,  
34. '如果到了你设置重启的时候，系统会出现关机的对话框。  
35. '直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用时，请去掉注释符。