Eh, uite un script simplu, dar care-si face treaba
instructiuni de folosire: salvati codul ca [nume_fisier].vbs
dublu-click ca sa rulati.
a = InputBox("Shutdown in (minutes):" & vbCrLf & vbCrLf & "(Press cancel to abort shutdown)", "Automatic Shutdown", 30)
a = a * 60
Set objShell=CreateObject("Wscript.Shell")
If a > 0 Then
objShell.Run("shutdown -s -f -t " & a)
Else
objShell.Run("shutdown -a")
End If
