Hello.
I tried to Deploy IE11 using a VB Script from ITninja.com which was written for IE10 . I had modified the same script for IE11 as below.
Option Explicit
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objShell : Set objShell = CreateObject("WScript.Shell")
Dim objEnv : Set objEnv = objShell.Environment("Process")
objEnv("SEE_MASK_NOZONECHECKS") = 1
Dim strScriptPath : strScriptPath = objFSO.GetParentFolderName(Wscript.ScriptFullName)
Dim LogFile : Set LogFile = objFSO.OpenTextFile("C:\Windows\Logs\Microsoft_Internet_Explorer_11_VBscript.log", 8, True)
Dim Return, KBname
'Determine OS Bit Level
Dim OSBitLevel
If GetObject("winmgmts:root\cimv2:Win32_Processor='cpu0'").AddressWidth = 32 Then
OSBitLevel = 32
ElseIf GetObject("winmgmts:root\cimv2:Win32_Processor='cpu0'").AddressWidth = 64 Then
OSBitLevel = 64
End If
LogFile.WriteLine(vbCrLf & "---------------------------------------------------------------------------------------------------------------------" & vbCrLf)
'64-bit installs
If OSBitLevel = 64 Then
'install 64-bit patch for KB2670838 (graphics and imaging issues fix)
LogFile.WriteLine(Now & " - Installing update KB2670838_x64 for graphics and imaging issues fix...")
Return = objShell.Run("wusa.exe Windows6.1-KB2670838-x64.msu /quiet /norestart /log",0,True)
Results("KB2670838_x64")
'install 64-bit patch for KB2729094 (Segoe font fix)
LogFile.WriteLine(Now & " - Installing update KB2729094_x64 for Segoe font fix...")
Return = objShell.Run("wusa.exe Windows6.1-KB2729094-v2-x64.msu /quiet /norestart /log",0,True)
Results("KB2729094_x64")
'install 64-bit patch for KB2731771 (local/UTC time conversion)
LogFile.WriteLine(Now & " - Installing update KB2731771_x64 for local/UTC time conversion fix...")
Return = objShell.Run("wusa.exe Windows6.1-KB2731771-x64.msu /quiet /norestart /log",0,True)
Results("KB2731771_x64")
'install 64-bit patch for KB2533623 (Insecure library fix)
LogFile.WriteLine(Now & " - Installing update KB2533623_x64 for Insecure library fix...")
Return = objShell.Run("wusa.exe Windows6.1-KB2533623-x64.msu /quiet /norestart /log",0,True)
Results("KB2533623_x64")
'install 64-bit patch for KB2786081 (IE credentials retention fix)
LogFile.WriteLine(Now & " - Installing update KB2786081_x64 for IE credentials retention fix...")
Return = objShell.Run("wusa.exe Windows6.1-KB2786081-x64.msu /quiet /norestart /log",0,True)
Results("KB2786081_x64")
'install 64-bit patch for KB2834140
LogFile.WriteLine(Now & " - Installing update KB2834140 for IE Installation Patch fix...")
Return = objShell.Run("wusa.exe Windows6.1-KB2834140-v2-x64.msu /quiet /norestart /log",0,True)
Results("KB2834140_x64")
'install Internet Explorer 11 for 64-bit (includes 32-bit)
LogFile.WriteLine(Now & " - Installing Internet Explorer 11 for 64-bit...")
LogFile.WriteLine(Now & " - Install log: C:\Windows\Logs\Microsoft_IE_11.log")
'Factory installer: Return = objShell.Run(strScriptPath & "\IE11-Windows6.1-x64-en-us.exe /quiet /update-no /closeprograms /norestart /log:C:\Windows\Logs\",0,True)
If objFSO.FolderExists("C:\Windows\SysNative") Then
'run non-redirect to 64-bit DISM
Return = objShell.Run("C:\Windows\SysNative\dism.exe /online /add-package /packagepath:IE11-neutral.Downloaded.cab /quiet /norestart /logpath:C:\Windows\Logs\Microsoft_IE_11.log",0,True)
Else
Return = objShell.Run("dism.exe /online /add-package /packagepath:IE11-neutral.Downloaded.cab /quiet /norestart /logpath:C:\Windows\Logs\Microsoft_IE_11.log",0,True)
End If
If Return = 3010 Then
LogFile.WriteLine(Now & " - WARNING: Installation of Internet Explorer 11 has completed successfully, however, required reboot was suppressed!")
WScript.Quit(0)
ElseIf Return <> 0 Then
LogFile.WriteLine(Now & " - ERROR: Installation of Internet Explorer 11 has failed with error: " & RETURN)
Else
LogFile.WriteLine(Now & " - Installation of Internet Explorer 11 has completed successfully.")
End If
'32-bit installs
ElseIf OSBitLevel = 32 Then
'install 32-bit patch for KB2670838 (graphics and imaging issues fix)
LogFile.WriteLine(Now & " - Installing update KB2670838_x86 for graphics and imaging issues fix...")
Return = objShell.Run("wusa.exe Windows6.1-KB2670838-x86.msu /quiet /norestart /log",0,True)
Results("KB2670838_x86")
'install 32-bit patch for KB2729094 (Segoe font fix)
LogFile.WriteLine(Now & " - Installing update KB2729094_x86 for Segoe font fix...")
Return = objShell.Run("wusa.exe Windows6.1-KB2729094-v2-x86.msu /quiet /norestart /log",0,True)
Results("KB2729094_x86")
'install 32-bit patch for KB2731771 (local/UTC time conversion)
LogFile.WriteLine(Now & " - Installing update KB2731771_x86 for local/UTC time conversion fix...")
Return = objShell.Run("wusa.exe Windows6.1-KB2731771-x86.msu /quiet /norestart /log",0,True)
Results("KB2731771_x86")
'install 32-bit patch for KB2533623 (Insecure library fix)
LogFile.WriteLine(Now & " - Installing update KB2533623_x86 for Insecure library fix...")
Return = objShell.Run("wusa.exe Windows6.1-KB2533623-x86.msu /quiet /norestart /log",0,True)
Results("KB2533623_x86")
'install 32-bit patch for KB2786081 (IE credentials retention fix)
LogFile.WriteLine(Now & " - Installing update KB2786081_x86 for IE credentials retention fix...")
Return = objShell.Run("wusa.exe Windows6.1-KB2786081-x86.msu /quiet /norestart /log",0,True)
Results("KB2786081_x86")
'install 32-bit patch for KB2834140
LogFile.WriteLine(Now & " - Installing update KB2834140_x86 for IE ")
Return = objShell.Run("wusa.exe Windows6.1-KB2834140-v2-x86.msu /quiet /norestart /log",0,True)
Results("KB2834140_x86")
'install Internet Explorer 11 for 32-bit
LogFile.WriteLine(Now & " - Installing Internet Explorer 11...")
LogFile.WriteLine(Now & " - Install log: C:\Windows\Logs\Microsoft_IE_11.log")
'Factory installer: Return = objShell.Run(strScriptPath & "\IE10-Windows6.1-x86-en-us.exe /quiet /update-no /closeprograms /norestart /log:C:\Windows\Logs\",0,True)
Return = objShell.Run("dism.exe /online /add-package /packagepath:\32 Bit\IE11-neutral.Downloaded.cab /quiet /norestart /logpath:C:\Windows\Logs\Microsoft_IE_11.log",0,True)
If Return = 3010 Then
LogFile.WriteLine(Now & " - WARNING: Installation of Internet Explorer 11 has completed successfully, however, required reboot was suppressed!")
WScript.Quit(0)
ElseIf Return <> 0 Then
LogFile.WriteLine(Now & " - ERROR: Installation of Internet Explorer 11 has failed with error: " & RETURN)
Else
LogFile.WriteLine(Now & " - Installation of Internet Explorer 11 has completed successfully.")
End If
End If
LogFile.Close
'Functions
'---------------------------------------------------------------------------------------------------------------------
Function Results(KBname)
Select Case Return
Case 9009
LogFile.WriteLine(Now & " - WARNING: " & KBname & " is already installed; skipping installation.")
Case 2359302
LogFile.WriteLine(Now & " - WARNING: " & KBname & " is already installed; skipping installation.")
Case -2145124329
LogFile.WriteLine(Now & " - WARNING: " & KBname & " is not required for this system; skipping installation.")
Case Else
LogFile.WriteLine(Now & " - Install of " & KBname & " has completed with return code: " & RETURN)
End Select
End Function
----------------------------------------------------------------------------------------------------------------------------------------------
The above Script works fine when I run it from the command prompt. However when I run it from SCCM 2012 R2 I get error 87 and the deployment fails. Can anyone suggest as to what is wrong in the way its executed from SCCM 2012 R2?