Reinstall an vbs_vbs for IE

Copy Code code as follows:

' Run_ie_reinstall.vbs-runs the Internet Explorer Setup
'? Doug knox-4/10/2002
' Downloaded from www.dougknox.com

X = MsgBox ("Do you want to reinstall Internet Explorer?", vbYesNo, "prompt!")

Y = MsgBox ("Do you want to reinstall Outlook Express?", vbYesNo, "prompt!")

Set WshShell = WScript.CreateObject ("Wscript.Shell")

If X = 6 Then
WshShell.RegWrite "Hklm\software\microsoft\active setup\installed components\{89820200- Ecbd-11cf-8b85-00aa005b4383}\isinstalled ", 0," REG_DWORD "
End If

If Y = 6 Then
WshShell.RegWrite "Hklm\software\microsoft\active setup\installed components\{ 44bba840-cc51-11cf-aafa-00aa00b6015c}\isinstalled ", 0," REG_DWORD "
End If

If X = 6 OR Y = 6 Then
Wshshell.run ("rundll32.exe setupapi,installhinfsection DefaultInstall 132%windir%\inf\ie.inf")
Else
MsgBox "You are chose to reinstall IE or OE. No changes were made. "& vbcr & vbcr &" Copyright 2003-doug Knox ", vbOKOnly," User cancelled "
End If