code:

---

;===============================================================================================
;**** Created with KiXscripts Editor | http://KiXscripts.com ****
;**** Last Modified on 09-07-2003 at 10:40:36 ****
;===============================================================================================
;
;Uninstall Acrobat 5.x and install 6.x.
;
;Check acrobat reader version.
$acrobat=ReadValue('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AcroRd32.exe','')
$acrover=GetFileVersion($acrobat)
If Left($acrover,1) = '5'
	$UnInstKey=ReadValue('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Adobe Acrobat 5.0','UninstallString')
	Goto acr5uninstall
EndIf
If Left($acrover,1) = ''
	MessageBox('Acrobat is not installed.' + Chr(13) + Chr(10) + 'Acrobat 6 will be installed now.  ', 'Acrobat 6 or up installation', 64)
	Goto acr6install
EndIf
If Left($acrover,1) > '5'
	MessageBox('Acrobat 6 or up already installed.' + Chr(13) + Chr(10) + 'Installation wil not continue', 'Acrobat 6 or up installation', 64)
	Goto end
EndIf
;
;uninstall acrobat 5.x.
:acr5uninstall
	?"Uninstalling Acrobat 5.x, please wait....."
	$acr5uninst = MessageBox('Acrobat 5 will be uninstalled.' + Chr(13) + Chr(10) + 'Continue?', 'Acrobat 5 uninstallation', 68)
	If $acr5uninst = '6'
		Shell '$uninstkey -y'
		Goto acr6install
	Else
		Goto end
	EndIf	
;
:acr6install
;install acrobat 6.
	?"Installing Acrobat 6, please wait....."
	Shell 'msiexec.exe /q ALLUSERS=2 /m MSILA3H3 /i "\\server\share\Adobe Reader 6.0.msi"'
	;Remove unwanted features.
	Del 'C:\Documents and Settings\All Users\Start Menu\Programs\PrintMe Internet Printing\Download Driver.lnk'
	Del 'C:\Documents and Settings\All Users\Start Menu\Programs\PrintMe Internet Printing\Learn More.lnk'
	RD 'C:\Documents and Settings\All Users\Start Menu\Programs\PrintMe Internet Printing'
	;Add key to skip EULA notification.
	$ak = AddKey('HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Acrobat Reader\6.0\AdobeViewer')
	If $ak <> '0'
	MessageBox('Acrobat 6 addkey failed.', 'Acrobat 6 installation', 64)
	Else
	;Add vallue to EULA key added above.
	$wv = WriteValue('HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Acrobat Reader\6.0\AdobeViewer', 'EULA', '1', 'REG_DWORD')
	If $wv <> '0'
	MessageBox('Acrobat 6 writevalue failed.', 'Acrobat 6 installation', 16)
	EndIf
EndIf
:end

---