PS：最近测试了这个脚本，修改了一下，可以同样在2000/xp/2003下操作，改改时间就可以了。

-------------------------------------------------------------------------------------------------------------------------------

dim ActionID
ActionID = 2      '0注销，1关机，2重启,
ActionTime = "你要运行此命令的时间，例如：2007-12-11 14:02:59"      '关机或重启时间

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

------------------------------------------------------以下原是代码-----------------------------------------------------------

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

dim ActionID
ActionID = 1      '0注销，1关机，2重启,
ActionTime = "2005-11-7 13:42: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

您对本文章有什么意见或着疑问吗？请到论坛讨论您的关注和建议是我们前行的参考和动力