[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