'KB960859 fix Prevents Windows Update from prompting you to reinstall

On Error Resume Next

Dim WshShell, sMsg, sInput, sDone, sRead
Dim sRestore, sDesc, sOut, Srp, sNoChange 

Set WshShell = CreateObject("WScript.Shell")
sMsg = "This script will fix the registry so you will no longer be prompted to reinstall KB960859." & vbCr & vbCr _
 & "Before you run this script you will have the option to create a Restore Point before any" _ 
 & " changers are make." & vbCr & vbCr _
 & "Do you wish to continue?"

sInput = MsgBox(sMsg, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks")
If sInput = vbYes Then 

sRestore = "Would you like to create a Restore Point before any changers are made?" & vbCr & vbCr & _
"It will take about 10 to 15 seconds to create this Restore Point." & vbCr & vbCr & "A message box will popup when Restore Point is finished."
sRestore = MsgBox(sRestore, vbYesNo + vbQuestion , "Notice")
If (sRestore = vbYes) Then 

Set Srp = GetObject("winmgmts:\\.\root\default:Systemrestore")
sDesc = "KB960859 reinstalled Restore Point"
sOut = Srp.createrestorepoint ( sDesc ,0,100)

Created = WshShell.Popup("Restore Point for KB960859 reinstall"  & "  " &  Date & "  at  " & Time  ,3, "Created", 64)
If sOut <> 0 Then

MsgBox "Restore Point creation Failed!" , 16, "FAILED!"
Else
End If
Else
End If

sRead = WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB960859\Comments")

If sRead = "Security Update for Windows XP (KB960859)" Then
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\KB960859\","You will no longer be prompted for KB960859 update." , "REG_SZ"

sDone = "Windows Update should no longer prompt" & vbCr _
& "for Hotfix KB960859 to be installed." & vbCr & vbCr _
& "This script was downloaded from www.paulsxp.com." 
MsgBox sDone, 64, "Paul's XP and Vista Tweaks"

Else

sNoChange = "The Registry was checked and HotFix KB960859" & vbCr _
& "was never installed." & vbCr & vbCr _ 
& "No changes were made to your Registry." & vbCr & vbCr _
& "This script was downloaded from www.paulsxp.com." 
MsgBox sNoChange, 16, "Paul's XP and Vista Tweaks"

If MsgBox("If you find this script was helpful and you would like to make a Donation?" & vbCr & vbCr & "Click Yes to visit my Donation page at Paul's Web Site." & vbCr & vbCr & _
 "All donations are made through PayPalŪ.", vbInformation + vbYesNo + vbDefaultButton, "Make a Donation") = 6 Then
WshShell.Run "http://www.paulsxp.com/donation.html"
End If
End If
End If