code:

---

 
break on

? OfficeProduct()
? OfficeProduct('holly')
? OfficeProduct('term-server')

Function OfficeProduct(optional $computer)
	DIM $index, $err, $office, $product, $officekey, $UninstallKey
	$UninstallKey = "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\"
	if $Computer	$UninstallKey = "\\"+$computer+"\"+$UninstallKey	EndIf

	Do
		$product   = ReadValue($UninstallKey+$officekey,"DisplayName")
		If InStr($product, "Microsoft Office")
			$OfficeProduct = $product
			Endif
		$officekey = ENUMKEY($UninstallKey, $index)
		$index = $index + 1
		Until @error or $OfficeProduct
	exit @error
	EndFunction

;$MSOguid= $UninstallKey+$officekey
;$Version= ReadValue ($UninstallKey+$officekey,"DisplayVersion")
 

---

quote:

---

Microsoft Office Professional Edition 2003
Microsoft Office XP Professional with FrontPage
Microsoft Office Personal Portfolio

---