'run_ie_reinstall - Runs the Internet Explorer Setup
Message = "This script will Reinstall IE6." & vbCr & vbCr
Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo + vbInformation, "Paul's XP and Vista 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 download from www.paulsxp.com."
End If