定时关机、重启的脚本

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