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: [email protected] [mailto:[email protected]] On
Behalf Of Daniel Ratliff
Sent: Friday, 2 May 2014 11:23 PM
To: [email protected]
Subject: RE: [mssms] Remove Old Flash
In case that wont, here is Damon’s email.
Daniel Ratliff
From: [email protected]<mailto:[email protected]>
[mailto:[email protected]] On Behalf Of Zen Abra
Sent: Friday, May 02, 2014 9:20 AM
To: [email protected]<mailto:[email protected]>
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
<[email protected]<mailto:[email protected]>> 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)
