'Disable AU Reminder
'This script will prevent Windows XP from reminding you to restart after
'installing Automatic Updates.
'DisableAUReminder.vbs
'© Robert Dunham - 1/19/2006
'Downloaded from http://www.nilpo.com
On Error Resume Next

message = "This script will prevent Windows XP from reminding you to restart after installing Automatic Updates." + vbcr
message = message + "Changes will not take effect until after your next reboot." + vbcr + vbcr
message = message + "It is not recommended to continue using Windows for extended periods of time after installing updates." + vbcr
message = message + "This can cause system instability." + vbcr + vbcr
message = message + "Would you like to continue applying this tweak?"

result = msgBox(message, _
	VBYesNo + vbQuestion + vbDefaultButton2 + vbSystemModal, _
	"Disable AU Reminder")

If result = vbCancel Then
    WScript.Quit
End If

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoRebootWithLoggedOnUsers", 1, "REG_DWORD"

message = "Script provided by Nilpo.com" + vbcr + vbcr
message = message + "Please reboot your computer for changes to take effect."

MsgBox message, vbOKOnly, "Finished"

Set WshShell = Nothing
Wscript.Quit