Dim response, objShell, strShutdown, strAbort

response = MsgBox("Hi There, Time To Get Off For The Night Don't You Think?", vbYesNo + vbSystemModal, "Time To Sleep")

If response = vbYes Then
    ' Execute shutdown command
    strShutdown = "shutdown.exe -s -t 120 -f"
    set objShell = CreateObject("WScript.Shell")
    objShell.Run strShutdown, 0, false

    WScript.Sleep 100

    intShutdown = MsgBox("Computer Will Shutdown In 2 Minutes. Would You Like To Cancel The Shutdown?", vbYesNo + vbExclamation + vbApplicationModal, "Cancel Shutdown")

    If intShutdown = vbYes Then
        strAbort = "shutdown.exe -a"
        objShell.Run strAbort, 0, false
    End If
End If