'xp_KB890859 - Prevents Windows Update from prompting you to install

'Hotfix KB890859 , after you have already installed it.

'© Kelly Theriot - 4/18/2005



Set WshShell = CreateObject("WScript.Shell")

X = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix\KB890859\Fix Description")



If X = "Windows XP Hotfix - KB890859" Then

WshShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\KB890859\","Needed to prevent Win Update from prompting for this install"

Set WshShell = Nothing



Message = "Windows Update should no longer prompt" & vbCR

Message = Message & "for Hotfix KB890859 to be installed." & vbCR & vbCR

Message = Message & "© 2005 - Kelly Theriot "



MsgBox Message, vbOkOnly, "Finished!"



Else



Message = "The Registry was checked and it doesn't appear" & vbCR

Message = Message & "that Hotfix KB890859 was ever installed." & vbCR 

Message = Message & "no changes were made to your system." & vbCR & vbCR

Message = Message & "© 2005 - Kelly Theriot "



MsgBox Message, vbInformation, "No changes made!"



End If



Set WshShell = Nothing