code:

---

break on
;Search for "Acrobat Uninstall"
$Index = 0
:Loop1
$KeyName = ENUMKEY("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\", $Index)
If @ERROR = 0
  If InStr("$KeyName","Acrobat")
    "Name found: $KeyName" ?
    Select
      Case $KeyName = "Adobe Acrobat Reader 3.0"
        "Uninstall Acrobat 3.0" ?
        $UninstallStr = READVALUE("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Adobe Acrobat Reader 3.0","UninstallString")
        ;SHELL $UninstallStr + " -A"
        "Complete." ?

      Case $KeyName = "Adobe Acrobat Reader 3.01"
        "Uninstall Acrobat 3.01" ?
        $UninstallStr = READVALUE("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Adobe Acrobat Reader 3.01","UninstallString")
        ;SHELL $UninstallStr + " -A"
        "Complete." ?

      Case $KeyName = "Adobe Acrobat 4.0"
        "Uninstall Acrobat 4.0" ?
        $UninstallStr = READVALUE("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Adobe Acrobat 4.0","UninstallString")
        ;SHELL $UninstallStr + " -A"
        "Complete." ?

      Case $KeyName = "Adobe Acrobat 5.0"
        "Leave alone" ?
        Goto Done

      Case 1
        "OH OH, Not sure what to do!" ?

    EndSelect
  EndIf
  $Index = $Index + 1
  goto Loop1
EndIf

"Install Acrobat 5.05" ?
;shell 'path\setup.exe /s'

:Done

get $_ 

---