[vbscript]定时关机或重启的脚本，在windows 2000下通过

'定时关机或重启的脚本，在windows 2000下通过
'将本代码拷贝到文本文档,把txt改为vbs,直接运行
dim ActionID
ActionID = 1 '0注销，1关机，2重启,
ActionTime = "2007-1-12 16:19:30" '关机或重启时间

function ShutDown()
dim objShell
Set objShell = WScript.CreateObject("Wscript.Shell")

dim Application
set Application = CreateObject("Shell.Application.1")
Application.ShutdownWindows()
dim upi
for upi = 0 to 4
    WScript.Sleep(50)
    objShell.sendKeys("{UP}")
next
For upi = 1 to ActionID
    WScript.Sleep(50)
    objShell.sendKeys("{DOWN}")
next
'使用时，请把下行的注释符去掉
objShell.sendKeys("{ENTER}")
end function

While true
if DateDiff("s", Now, ActionTime) < 0 then
    ShutDown()
end if
WScript.Sleep(5*1000)
wend