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
posted @ 2022-09-24 23:30  chenzechao  阅读(1145)  评论(0)    收藏  举报