'run_ie_reinstall.vbs - Runs the Internet Explorer Setup
'© Doug Knox - 4/10/2002
'Downloaded from www.dougknox.com

X = MsgBox("Internet Explorer újratelepítése?", vbYesNo, "Megerősítés")

Y = MsgBox("Outlook Express újratelepítése?", vbYesNo, "Megerősítés")

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 "Nem történt változtatás." & vbCR & vbCR ,vbOkOnly, "Kilépés"
End If