Skip to content

Instantly share code, notes, and snippets.

@MarcusRiemer
Last active Aug 26, 2015
Embed
What would you like to do?
Wrapper around shutdown.exe that asks the user for time in minutes
' Vom Benutzer erfragen in wievielen Minuten er den Rechner
' herunterfahren möchte
Dim minutes
minutes = inputbox ("In wievielen Minuten soll der Rechner heruntergefahren werden?",_
"Rechner herunterfahren", 180)
' Sicherstellen, dass der Benutzer eine Zahl eingegeben hat
If minutes <> "" And IsNumeric(minutes) Then
' Zeit von Minuten in Sekunden umrechnen
Dim timeInSeconds
timeInSeconds = CInt(minutes) * 60
' Ein Shell Objekt erstellen um das Shutdown Kommando
' absetzen zu können
Set shell = createobject("wscript.shell")
shell.run "shutdown /s /t " & timeInSeconds, 0, True
End If
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment