+ Post New Thread
Results 1 to 1 of 1
Scripts Thread, FlashBang - Kills Flash Dead! in Coding and Web Development; If only, some code that cleans out failed/old installs from the registry (only particular versions but more can be easily ...
  1. #1

    SYNACK's Avatar
    Join Date
    Oct 2007
    Posts
    11,095
    Thank Post
    857
    Thanked 2,680 Times in 2,273 Posts
    Blog Entries
    9
    Rep Power
    769

    Lightbulb FlashBang - Kills Flash Dead!

    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:

    Code:
       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
    Last edited by SYNACK; 27th June 2012 at 05:57 AM.

SHARE:
+ Post New Thread

Similar Threads

  1. Action Scripting in Flash
    By StewartKnight in forum Web Development
    Replies: 11
    Last Post: 4th June 2006, 11:23 AM
  2. Replies: 5
    Last Post: 13th November 2005, 12:27 AM
  3. Replies: 22
    Last Post: 6th November 2005, 04:03 PM
  4. Detection of flash within browser regardless of ..
    By mac_shinobi in forum Web Development
    Replies: 3
    Last Post: 31st August 2005, 03:32 PM
  5. cool flash
    By browolf in forum Jokes/Interweb Things
    Replies: 5
    Last Post: 5th July 2005, 08:47 PM

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •