This script will Enable Windows XP AutoUpdate. (VBScript)
| 'Enable Windows Auto Update On Error Resume Next Dim WSHShell, MyBox, Title Err.Clear Message = "This script will Enable Automatic Updates." & vbCr & vbCr Message = Message & "Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Paul's XP and Vista Tweaks") If X = 6 Then Set WSHShell = WScript.CreateObject("WScript.Shell") WshShell.RegDelete"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\WindowsUpdate\DisableWindowsUpdateAccess" If Err.Number <> 0 then MsgBox "The the registry entry does not exist." & vbCr & "It means Auto Update was never Disable.", 64,"No Problem!" WScript.Quit Else MsgBox "The registry entry has been removed.", 48,"Done!" End If WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWindowsUpdate", 0, "REG_DWORD" Title = "Windows Automatic Updates are now Enabled!" &vbCr &vbCr Title = Title & "This script was download from www.paulsxp.com" MyBox = MsgBox(Title,48,"Finished") End If |