FlashBang - Kills Flash Dead!

[SYNACK]

If only, some code that cleans out failed/old installs from the registry (only particular versions but more can be easily added) to get the MSI installers going again:

 

  function KillFromRegistry (strRegistryKey, strDefault, DecVersion ) 
   Dim WSHShell, value 

   On Error Resume Next 
   Set WSHShell = CreateObject("WScript.Shell") 
   value = WSHShell.RegRead( strRegistryKey & "\Version" ) 

   if err.number <> 0 then 
       KillFromRegistry = strDefault 
'wscript.echo "X Not Found: Targeted Version: " & DecVersion & " at " & strRegistryKey
   else 
       KillFromRegistry  = value
if value = DecVersion then
 'wscript.echo "> Found: Targeted Version: " & DecVersion & " at " & strRegistryKey
 KillCMD = "REG DELETE " & strRegistryKey  & " /f"
  WshShell.Run KillCMD , 0, true
 KillCMD2 = "REG DELETE HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\FlashPlayer\SafeVersions /v 11.0 /f"
  WshShell.Run KillCMD2 , 0, true
 KillCMD3 = "REG DELETE HKEY_LOCAL_MACHINE\SOFTWARE\Macromedia\FlashPlayerPlugin /v Version /f"
  WshShell.Run KillCMD3 , 0, true
 'wscript.echo "- Deleted: Targeted Version: " & DecVersion & " at " & strRegistryKey
end if
   end if 

   set WSHShell = nothing 
end function 
str = KillFromRegistry("HKEY_CLASSES_ROOT\Installer\Products\6B6791246CED5AC449F10F66B3A3B247", "Fail", 184615014 ) 
str = KillFromRegistry("HKEY_CLASSES_ROOT\Installer\Products\698B6CF868F67594CAA170A757C5F480", "Fail", 167968951 ) 
str = KillFromRegistry("HKEY_CLASSES_ROOT\Installer\Products\087B87245BC6A734ABA6137C9FAF9B08", "Fail", 184615014 ) 
'sch2 vars
str = KillFromRegistry("HKEY_CLASSES_ROOT\Installer\Products\B90F3429913355A41818B9EC7C930197", "Fail Adobe Flash Player 11 Plugin (x64)", 184615014 ) 
str = KillFromRegistry("HKEY_CLASSES_ROOT\Installer\Products\0BB211F0D2097CA34FA05D411719C51E2, "Fail "Adobe Flash Player 11 ActiveX, 1184615014) 
str = KillFromRegistry("HKEY_CLASSES_ROOT\Installer\Products\FB1B1E535E8DF7B4F96D782D5E960451", "Fail Adobe Flash Player 11 Plugin", 184615014 )

 

There was a longer description but the forum ate it

Edited June 27, 2012 by SYNACK