I wound up doing this:

 Code:
? @time

$objWMI = GetObject("winmgmts:\\.\root\CIMV2")
$colItems = $objWMI.ExecQuery("SELECT * FROM Win32_Product WHERE Name='Microsoft Office Enterprise 2007' or Name='Microsoft Office Professional Plus 2007'")
        
For Each $objItem In $colItems
        ? '1 '+ $objItem.Name
        ? '2 '+ $objItem.InstallLocation
        ? '3 '+ $objItem.Version
        ? '4 '+ $objItem.IdentifyingNumber
	?
    Next

? @time

	$MSOKey  = iif(keyexist("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{90120000-0030-0000-0000-0000000FF1CE}"),'{90120000-0030-0000-0000-0000000FF1CE}','{90120000-0011-0000-0000-0000000FF1CE}') 
	$MSOType = readvalue("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"+$MSOKey,"DisplayName")
	$MSOdir	 = readvalue("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"+$MSOKey,"InstallLocation")
	$MSOVer  = readvalue("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"+$MSOKey,"DisplayVersion")
	$MSOMajor= Split($MSOVer,'.')[0]
	$MSOMinor= Split($MSOVer,'.')[2]
?
? $MSOType 
? $MSOdir	 
? $MSOver
? $MSOMajor
? $MSOMinor
?
? @time
?
? 'press enter to end'
gets $k
_________________________
How to ask questions the smart way <-----------> Before you ask