Dim mytime,myout1,myout2 mytime=null mytime=InputBox(请输入定时时间(格式20:10:05)&vblf&如果想倒计时关机,请输入倒计时时间&vblf&(单位/分钟)&vblf&输入‘xxx’可以马上关机&vblf&退出点‘取消’,定时关机,1) Set wshshell=wscript.createobject(wscript.shell) If IsNumeric(mytime)=False Then If IsDate(mytime)=True Then wshshell.run at &mytime& shutdown -s '定时关机在任务列表中 myout1=MsgBox(定时成功!电脑将在&mytime&关机!放弃关机请点‘取消’!,vbokcancel,定时关机) If myout1=vbcancel Then wshshell.run at /delete /y MsgBox 关机已取消!,64,定时关机 End If Else If mytime=xxx Then wshshell.run shutdown -s -t 0 End If MsgBox 输入错误!请重新输入!,64,定时关机 End If Else If mytime600 Or mytime=0 Then MsgBox 输入错误!倒计时不能多于10小时(600分钟)!,64,定时关机 wscript.quit End If wshshell.run shutdown -s -t &mytime*60 myout2=MsgBox(设置成功!电脑将在&mytime&分钟后关机!放弃关机请点‘取消’!,vbokcancel,定时关机) If myout2=vbcancel Then wshshell.run shutdown -a MsgBox 关机已取消!,64,定时关机 End If End If