code:

---

		; ****************************** MSOffice version *****************************************
		$MSOdir=readvalue("$HKLMSMWCV\App Paths\excel.exe","Path")
		if exist("$MSOdir\excel.exe")
			$excel=getfileversion("$MSOdir\excel.exe")
			select
				case $excel=8.0a	$esr="97 SR-1"
				case $excel=8.0e	$esr="97 SR-2"
				case $excel=9.0.2719	$esr="2000"
				case $excel=9.0.3822	$esr="2000 SR-1a"
				case $excel=9.0.4430	$esr="2000 SR-2"
				endselect
			? "	Installed "color c+/n"MS Office "color w/n"is version " color w+/n "$esr" color w/n
			endif
		if exist("$MSOdir\msaccess.exe")
			$access=getfileversion("$MSOdir\msaccess.exe")
			select
				case $access=8.0.3512	$asr="97 SR-0"
				case $access=8.0.4122	$asr="97 SR-1"
				case $access=8.0.5903	$asr="97 SR-2"
				case $access=9.0.	$asr="2000"
				case $access=9.0.3822	$asr="2000 SR-1a"
				case $access=9.0.4506	$asr="2000 SR-2"
				endselect
			? "	Installed "color c+/n"MS Access " color w/n"is version "color w+/n $asr color w/n
			endif
		if exist("$MSOdir\mspub.exe")
			$pub=getfileversion("$MSOdir\mspub.exe")
			select
				case $pub=4.0		$psr="97"
				case $pub=5.0		$psr="98"
				case $pub=6.0		$psr="2000"
				endselect
			? "	Installed "color c+/n"MS Publisher " color w/n"is version "color w+/n $psr color w/n
			endif

---