'Power Off After Shutdown
'This script will cause your computer to power off after shutting down Windows.
'PowerOffShutdown.vbs
'© Robert Dunham - 3/28/2006
'Downloaded from http://www.nilpo.com
On Error Resume Next

message = "This script will cause your computer to power off after shutting down."

result = msgBox(message, _
	VBYesNo + vbQuestion + vbDefaultButton2 + vbSystemModal, _
	"Power Off After Shutting Down?")

If result = vbCancel Then
    WScript.Quit
End If

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\PowerdownAfterShutdown", 1, "REG_SZ"

message = "Script provided by Nilpo.com"

MsgBox message, vbOKOnly, "Finished"

Set WshShell = Nothing
Wscript.Quit