NameSpace: root\CIMV2

Query: SELECT ProdID FROM Win32Reg_AddRemovePrograms where ProdID LIKE '{%12%-0011-%-%-0000000FF1CE}'

This should tell me that I have Office 2007 plus on my workstation. I know I do be cause the following code sample says I do.

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("C02511")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT ProdID FROM Win32Reg_AddRemovePrograms where ProdID LIKE '{%12%-0011-%-%-0000000FF1CE}' ", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems
WScript.Echo "DisplayName: " & objItem.DisplayName
WScript.Echo "InstallDate: " & objItem.InstallDate
WScript.Echo "ProdID: " & objItem.ProdID
WScript.Echo "Publisher: " & objItem.Publisher
WScript.Echo "Version: " & objItem.Version
WScript.Echo
Next
Next

So what is my issue?