Reinstall a vbs of IE

CopyCode The Code is as follows: 'run _ ie_reinstall.vbs-runs the Internet Explorer setup
'? Doug Knox-4/10/2002
'Downloaded from www.mongoknox.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 chose not to reinstall IE or OE. No changes were made." & vbcr & "Copyright 2003-Doug Knox", vbokonly, "user cancelled"
End if