'Runs the Internet Explorer Setup

Message = "This script will Reinstall IE6." & vbCr & vbCr
Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo + vbInformation, "Paul's XP, Vista and Windows 7 Tweaks")
If X = 6 Then 

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 %windir%\Inf\ie.inf")
WScript.Echo "Internet Explorer IE6 reinstalled." & vbCr & "This scrip was downloaded from www.paulsxp.com."
End If