Changes
no edit summary
There is a list of locale IDs at http://www.microsoft.com/globaldev/reference/lcid-all.mspx.
Alternate version:
<pre>
<package
id="acrobat"
name="Adobe Reader"
revision="8000"
priority="3"
reboot="false">
<download lang="ENU" url='http://ardownload.adobe.com/pub/adobe/reader/win/8.x/8.0/enu/AdbeRdr80_en_US.exe' saveto="%SOFTWARE%\Acrobat\8.0.0\AdbeRdr80_en_US.exe" />
<check type="uninstall" condition="exists" path="Adobe Reader 8" />
<install cmd='cscript.exe %SOFTWARE%\Acrobat\removeOldVersions.vbs' />
<install cmd='%SOFTWARE%\Acrobat\8.0.0\AdbeRdr80_en_US.exe /sPB /rs /l /msi"/qb-! /norestart /log c:\acrobat8.log ALLUSERS=2 EULA_ACCEPT=YES SUPPRESS_APP_LAUNCH=YES"' />
<install cmd='cmd /d /c del /q /f "%ALLUSERSPROFILE%\Start Menu\Programs\Startup"\*.lnk' />
<install cmd='regedit /s "%SOFTWARE%\Acrobat\8.0.0\registryMods.reg"' />
<remove cmd="MsiExec.exe /q /x{AC76BA86-7AD7-1036-7B44-A70500000002}" />
<upgrade cmd='%SOFTWARE%\Acrobat\8.0.0\AdbeRdr80_en_US.exe /sPB /rs /l /msi"/qb-! /norestart /log c:\acrobat8.log ALLUSERS=2 EULA_ACCEPT=YES SUPPRESS_APP_LAUNCH=YES"' />
<depends package-id="firefox" />
</package>
</pre>
Registy settings to disable annoyances (called registryMods.reg):
</pre>
removeOldVersions.vbs (remove acrobat versions 4,5 and 6. These aren't removed by Acrobat 8)
<pre>
Set objShell = CreateObject("Wscript.Shell")
WinDir = objShell.ExpandEnvironmentStrings("%WinDir%")
sCmd1 = "C:\" & WinDir & "\ISUNINST.EXE -y -a" _
& " -f""C:\Program Files\Common Files\Adobe\Acrobat 5.0\NT\Uninst.isu"""
sCmd2 = "C:\" & WinDir & "\ISUNINST.EXE -y -a" _
& " -f""C:\Program Files\Common Files\Adobe\Acrobat 4.0\NT\Uninst.isu"""
sCmd3 = "C:\" & WinDir & "\UNINST.EXE -y -a" _
& " -f""C:\Acrobat3\Reader\DeIsL1.isu"""
If RegKeyExists("HKLM\Software\Adobe\Acrobat Reader\5.0\") Then
objShell.Run sCmd1
End If
If RegKeyExists("HKLM\Software\Adobe\Adobe Reader\4.0\") Then
objShell.Run sCmd2
End if
If RegKeyExists("HKLM\Software\Adobe\Adobe Reader 3.1\") Then
objShell.Run sCmd3
End If
Function RegValueExists(sRegValue)
' Returns True or False based of the existence of a registry value.
Dim oShell, RegReadReturn
Set oShell = CreateObject("WScript.Shell")
RegValueExists = True ' init value
On Error Resume Next
RegReadReturn = oShell.RegRead(sRegValue)
If Err.Number <> 0 Then
RegValueExists = False
End if
On Error Goto 0
End Function
Function RegKeyExists(ByVal sRegKey)
' Returns True or False based on the existence of a registry key.
Dim sDescription, oShell
Set oShell = CreateObject("WScript.Shell")
RegKeyExists = True
sRegKey = Trim (sRegKey)
If Not Right(sRegKey, 1) = "\" Then
sRegKey = sRegKey & "\"
End If
On Error Resume Next
oShell.RegRead "HKEYNotAKey\"
sDescription = Replace(Err.Description, "HKEYNotAKey\", "")
Err.Clear
oShell.RegRead sRegKey
RegKeyExists = sDescription <> Replace(Err.Description, sRegKey, "")
On Error Goto 0
End Function
</pre>
See also [[Adobe_Reader]]
[[Category:Silent Installers]]