Option Explicit
Dim WshShell , objEnv , strCmdLine , strVersion , strLocale
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objEnv = WshShell.Environment("process")
strCmdLine = ObjEnv.Item("SystemRoot") & "\system32\ie4uinit.exe"
WScript.Echo strCmdLine
WshShell.Run strCmdline , 1, TRUE
strVersion = WshShell.RegRead ("HKLM\Software\Microsoft\Active Setup\Installed Components\{89820200-ECBD-11cf-8B85-00AA005B4383}\Version")
WshShell.RegWrite "HKCU\Software\Microsoft\Active Setup\Installed Components\{89820200-ECBD-11cf-8B85-00AA005B4383}\Version" , strVersion,"REG_SZ"
strLocale = WshShell.RegRead ("HKLM\Software\Microsoft\Active Setup\Installed Components\{89820200-ECBD-11cf-8B85-00AA005B4383}\Locale")
WshShell.RegWrite "HKCU\Software\Microsoft\Active Setup\Installed Components\{89820200-ECBD-11cf-8B85-00AA005B4383}\Locale" , strLocale,"REG_SZ"
strCmdLine = "rundll32 iedkcs32.dll,BrandExternal ;*0<" & _
objEnv.Item("APPDATA") & _
"\Microsoft\Internet Explorer\Custom Settings"
WScript.Echo strCmdLine
WshShell.Run strCmdline , 1, TRUE