windows自动关机脚本.vbs

Dim mytime,myout1,myout2
mytime = 2
' 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 10"
        End If
        MsgBox "输入错误！请重新输入！",64,"定时关机"
    End If
Else
    If mytime > 600 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