This script will UnBlock SP1 Update. (VBScript)
| 'UnBlock SP1 Update On Error Resume Next Set PmShell = WScript.CreateObject("WScript.Shell") Message = "This script will Unblock the SP1 Update." & vbCr Message = Message & "This action will DELETE a Registry Key." & vbCr & vbCr Message = Message & "Continue?" X = MsgBox(Message, vbYesNo + vbQuestion, "Paul's XP and Vista Tweaks") If X = 6 Then PmShell.RegDelete "HKLM\Software\Policies\Microsoft\Windows\WindowsUpdate\DoNotAllowSP" MsgBox "Done!" & vbCrLf & "You can now Update to SP1." & vbcr & vbcr &_ "This script was downloaded from www.paulsxp.com.", 48, "Registry Key Deleted!" End If |