Coutdown til shutdown

Hej eksperter

Jeg skal igang med at lave et script der efter 30 min skal slukke computeren. Jeg kunne derfor godt tænke mig at der var en nedtællingsfunktion i nedenstående box, så man ved hvor længe der er til at computeren slukker. Når tide er udløbet, og man IKKE har trykket OK, skal den køre en shutdown kommando.

Håber det kan løses :)


ShutDownBox = MsgBox("Your computer will shutdown in 30 minutes!" & vbCrLf & "Do you want to continue this session?", vbCritical, "Automatic shutdown")

If ShutDownBox = 1 Then
  StatusBox = MsgBox("The shutdown has been canceled!", vbInformation, "Automatic shutdown")
End If


/From