Option Explicit
Dim ws, Title, ErrMsg
Set ws = CreateObject("Wscript.Shell")
Title = "Windows Ruhezustand Timer"

On Error Resume Next

WScript.Sleep SetTimer()

Ruhezustand

Function SetTimer()
  Dim MinSpec
  MinSpec = InputBox(ErrMsg & vbcrlf & "Geben Sie die Anzahl der Minuten ein " & _
                     "bis zum Ruhezustand.  1 Minute vor dem Ruhezustand haben " & _
                     "Sie noch die Möglichkeit den Vorgang abzubrechen.",Title)
  If MinSpec = "" Then
    Cleanup
  ElseIf Not IsNumeric(MinSpec) Then
    ErrMsg = "Ungültige Auswahl!" & vbcrlf & vbcrlf
    SetTimer()
  ElseIf MinSpec < 1 Then
    ErrMsg = "Ungültige Auswahl!" & vbcrlf & vbcrlf
    SetTimer()
  Else
    If MinSpec > 1 Then
      SetTimer = (MinSpec - 1) * 1000 * 60
    Else
      SetTimer = MinSpec * 1000 * 60
    End If
  End If
End Function

Sub Ruhezustand()

  If ws.Popup("Ruhezustand in 1 minute (" & TimeValue(DateAdd("n", 1, Now())) & ")." & _
              vbcrlf & "Klicken Sie auf Abbrechen damit sich der Computer" & _
              vbcrlf & "nicht in den Ruhezustand versetzen soll," & _
              vbcrlf & "oder auf OK um in den Ruhezustand zu wechseln.",_
              60, Title, 1 + 256 + 48 + 4096) = 2 Then
    Call Cleanup
  Else
    ws.run"rundll32.exe powrprof.dll,SetSuspendState"
  End If
End Sub

Sub Cleanup
  Set ws = Nothing
  WScript.Quit
End Sub