Skip to content

Instantly share code, notes, and snippets.

@minitech

minitech/gist:3980564

Created October 30, 2012 14:37
Download ZIP

Revisions

  1. minitech created this gist Oct 30, 2012.
    4 changes: 4 additions & 0 deletions gistfile1.vb
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,4 @@
    If MsgBox("Are you sure you want to shut down?", vbExclamation Or vbYesNo Or vbDefaultButton2, "Shut down") = vbYes Then
    Dim wsh : Set wsh = CreateObject("WScript.Shell")
    wsh.Run "shutdown /s /t 0"
    End If