Querying SCCM Server to get ADD/Remove Programs list of a specific computer

Hello everybody.

First of all, i'm sorry for my english.

I'm new in vbs scripting and wmi queries and I need your help.

My goal is to get the Add/Remove Programs list of a specific computer.

I saw many scripts which query the Uninstall registry key on the target computer but I want to do it even if the computer is offline. That's why i'm querying the SCCM Server.

My query seems to be good because when i put it in Report Builder, it returns a good result.

Here is the query :

Select sys.Name0,adv.DisplayName0 FROM v_R_System sys , v_Add_Remove_Programs adv where sys.ResourceID=adv.ResourceID and sys.Name0 like '%XXXXXXXX%'

My problem is to get the result of the query using vbscript. I'm getting an error on the line of the "For Each"

Here is my script :

'Central SCCM Site Server name
strComputer = "SCCM_SERVER"

'Central SCCM Site Code
strSiteCode = "DC1"

'Set up the connection String
Set objWMIService = GetObject("winmgmts://" & strComputer & "\root\sms\site_" & strSiteCode)




'Get the info with a query
Set colGroups = objWMIService.ExecQuery("Select sys.Name0,adv.DisplayName0 FROM v_R_System sys , v_Add_Remove_Programs adv where sys.ResourceID=adv.ResourceID and sys.Name0 like 'XXXXXXXXXXX'")


'output the info
For Each objGroup in colGroups
    Wscript.echo objGroup.DisplayName0 & " - "
Next 

Could you please provide me somme help ?