将下面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右

键选择以命令提示打开,如果到了你设置重启的时候，系统会出现关机的对话

框。

直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用

时，请去掉注释符。

以下代码在window2000下通过。

复制代码 代码如下:

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

'codebyhaiwa2005-11-7

dimActionID

ActionID=1'0注销，1关机，2重启,

ActionTime="2005-11-713:42:30"'关机或重启时间

functionShutDown()

dimobjShell

SetobjShell=WScript.CreateObject("Wscript.Shell")

dimApplication

setApplication=CreateObject("Shell.Application.1")

Application.ShutdownWindows()

dimupi

forupi=0to4

WScript.Sleep(50)

objShell.sendKeys("{UP}")

next

Forupi=1toActionID

WScript.Sleep(50)

objShell.sendKeys("{DOWN}")

next

'使用时，请把下行的注释符去掉

'objShell.sendKeys("{ENTER}")

endfunction

Whiletrue

ifDateDiff("s",Now,ActionTime)<0then

ShutDown()

endif

WScript.Sleep(5*1000)

wend