quote:

---

Perhaps this will work even better...



--------------------------------------------------------------------------------

$officeindex = 0
$officekey = ENUMKEY("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\", $officeindex)
While @Error=0 and $office=0
$product = ReadValue ("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\$officekey","DisplayName")
If InStr ($product, "Microsoft Office")
$uninstallguid = "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\$officekey"
$office = $product
Endif
$officeindex = $officeindex + 1
$officekey = ENUMKEY("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\", $officeindex)
Loop

$productsindex = 0
$productskey = ENUMKEY("HKLM\Software\Classes\Installer\Products\", $productsindex)
While @Error=0 and $MSOProducts=0
$product = ReadValue ("HKLM\Software\Classes\Installer\Products\$productskey","ProductName")
If InStr ($product, "Microsoft Office")
$MSOProducts = "HKLM\Software\Classes\Installer\Products\$productskey"
Endif
$productsindex = $productsindex + 1
$productskey = ENUMKEY("HKLM\Software\Classes\Installer\Products\", $productsindex)
Loop

? $office
? $uninstallguid
? $MSOProducts
get $Perhaps this will work even better...



--------------------------------------------------------------------------------

$officeindex = 0
$officekey = ENUMKEY("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\", $officeindex)
While @Error=0 and $office=0
$product = ReadValue ("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\$officekey","DisplayName")
If InStr ($product, "Microsoft Office")
$uninstallguid = "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\$officekey"
$office = $product
Endif
$officeindex = $officeindex + 1
$officekey = ENUMKEY("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\", $officeindex)
Loop

$productsindex = 0
$productskey = ENUMKEY("HKLM\Software\Classes\Installer\Products\", $productsindex)
While @Error=0 and $MSOProducts=0
$product = ReadValue ("HKLM\Software\Classes\Installer\Products\$productskey","ProductName")
If InStr ($product, "Microsoft Office")
$MSOProducts = "HKLM\Software\Classes\Installer\Products\$productskey"
Endif
$productsindex = $productsindex + 1
$productskey = ENUMKEY("HKLM\Software\Classes\Installer\Products\", $productsindex)
Loop

? $office
? $uninstallguid
? $MSOProducts
get $

---