I also found that 12 didn’t always uninstall cleanly when upgrading from 12 to 13, I’ve included a specific msiexec /x uninstall argument in that script now. Seems that at some point, the automatic removal part of the adobe flash active x install started to become unreliable. Note that the script removes the previous version of 13 and not 12 but you just need to change the script re: MSI codes from the registry.
Cheers Damon From: listsad...@lists.myitforum.com [mailto:listsad...@lists.myitforum.com] On Behalf Of Daniel Ratliff Sent: Friday, 2 May 2014 11:23 PM To: mssms@lists.myitforum.com Subject: RE: [mssms] Remove Old Flash In case that wont, here is Damon’s email. Daniel Ratliff From: listsad...@lists.myitforum.com<mailto:listsad...@lists.myitforum.com> [mailto:listsad...@lists.myitforum.com] On Behalf Of Zen Abra Sent: Friday, May 02, 2014 9:20 AM To: mssms@lists.myitforum.com<mailto:mssms@lists.myitforum.com> Subject: Re: [mssms] Remove Old Flash Adobe has a Flash uninstaller that you can get from their site, uninstall_flash_player.exe that is supposed to uninstall older versions. I beleive the silent switch is -uninstall. On Fri, May 2, 2014 at 9:14 AM, Marcum, John <jmar...@babc.com<mailto:jmar...@babc.com>> wrote: I think someone may have recently posted a script that will uninstall old Flash versions and install 13. Can you please repost that? When I install 13 it is leaving 12 behind. Is that normal? ________________________________ John Marcum MCITP, MCTS, MCSA Sr. Desktop Architect Bradley Arant Boult Cummings LLP ________________________________ [H_Logo] ________________________________ Confidentiality Notice: This e-mail is from a law firm and may be protected by the attorney-client or work product privileges. If you have received this message in error, please notify the sender by replying to this e-mail and then delete it from your computer. The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information. ________________________________ CONFIDENTIALITY NOTICE AND DISCLAIMER The information in this transmission may be confidential and/or protected by legal professional privilege, and is intended only for the person or persons to whom it is addressed. If you are not such a person, you are warned that any disclosure, copying or dissemination of the information is unauthorised. If you have received the transmission in error, please immediately contact this office by telephone, fax or email, to inform us of the error and to enable arrangements to be made for the destruction of the transmission, or its return at our cost. No liability is accepted for any unauthorised use of the information contained in this transmission.
' 'Script Details: ' -------------- ' This script determines processor architecture and installs Flash 13.0.0.182 ' ''==================================================================================================================== Option Explicit 'Declare Variables and constants Dim objShell, intErrorCode, varProcessor, objFSO, strUninstallString 'Create objects Set objShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("scripting.filesystemobject") varProcessor = objShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE") On Error Resume Next If varProcessor = "x86" Then 'Uninstall previous version of Adobe Flash Player Plugin 13.0.0.182 strUninstallString = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{28ADCCAD-3C23-44A1-A93F-47AA176F7AD7}\DisplayName") If Len(strUninstallString) > 0 Then objShell.Run "MsiExec.exe /x {28ADCCAD-3C23-44A1-A93F-47AA176F7AD7} /q /norestart",0,True End If 'Uninstall previous version of Adobe Flash Player Active X Control Plugin 13.0.0.182 strUninstallString = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{8F9B1C8E-F50E-4139-8701-45016021E102}\DisplayName") If Len(strUninstallString) > 0 Then objShell.Run "MsiExec.exe /x {8F9B1C8E-F50E-4139-8701-45016021E102} /q /norestart",0,True End If 'Install Flash and copy cfg file intErrorCode = intErrorCode + objShell.Run("msiexec /i """ & objShell.CurrentDirectory & "\install_flash_player_13_active_x.msi"" /qn /norestart REBOOT=ReallySuppress EULA_ACCEPT=YES SUPPRESS_APP_LAUNCH=YES",0,True) intErrorCode = objshell.Run("msiexec /i """ & objShell.CurrentDirectory & "\install_flash_player_13_plugin.msi"" /qn /norestart REBOOT=ReallySuppress EULA_ACCEPT=YES SUPPRESS_APP_LAUNCH=YES",0,True) objFSO.CopyFile objshell.CurrentDirectory & "\mms.cfg", "C:\windows\system32\Macromed\Flash\mms.cfg", true Else 'Uninstall previous version of Adobe Flash Player Plugin 13.0.0.182 strUninstallString = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{28ADCCAD-3C23-44A1-A93F-47AA176F7AD7}\DisplayName") If Len(strUninstallString) > 0 Then objShell.Run "MsiExec.exe /x {28ADCCAD-3C23-44A1-A93F-47AA176F7AD7} /q /norestart",0,True End If 'Uninstall previous version of Adobe Flash Player Active X Control Plugin 13.0.0.182 strUninstallString = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{8F9B1C8E-F50E-4139-8701-45016021E102}\DisplayName") If Len(strUninstallString) > 0 Then objShell.Run "MsiExec.exe /x {8F9B1C8E-F50E-4139-8701-45016021E102} /q /norestart",0,True End If intErrorCode = intErrorCode + objShell.Run("msiexec /i """ & objShell.CurrentDirectory & "\install_flash_player_13_active_x.msi"" /qn /norestart REBOOT=ReallySuppress EULA_ACCEPT=YES SUPPRESS_APP_LAUNCH=YES",0,True) intErrorCode = objshell.Run("msiexec /i """ & objShell.CurrentDirectory & "\install_flash_player_13_plugin.msi"" /qn /norestart REBOOT=ReallySuppress EULA_ACCEPT=YES SUPPRESS_APP_LAUNCH=YES",0,True) objFSO.CopyFile objshell.CurrentDirectory & "\mms.cfg", "C:\windows\syswow64\Macromed\Flash\mms.cfg", true objFSO.CopyFile objshell.CurrentDirectory & "\mms.cfg", "C:\windows\system32\Macromed\Flash\mms.cfg", true End If 'Cleanup Set objShell = Nothing Set objFSO = Nothing 'Return errorcode for install to Configuration Manager WScript.Quit(intErrorCode)