G
Guest
I am unable to retrieve software information on 64-bit XP via WMI.
For example, this code:
'---------------------------------
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colItems = objWMIService.ExecQuery("Select * from Win32_Product",,48)
For Each objSoftware in colItems
Wscript.Echo objSoftware.Description & ", " & objSoftware.Name & ",
" & objSoftware.Vendor & ", " & objSoftware.Version
Next
'---------------------------------
works perfectly on any Windows XP 32-bit system, but not on any Windows XP
64-bit system.
Has anyone else had this experience and if so, do you know how to solve it?
Thanks in advance for any help,
Ian
For example, this code:
'---------------------------------
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colItems = objWMIService.ExecQuery("Select * from Win32_Product",,48)
For Each objSoftware in colItems
Wscript.Echo objSoftware.Description & ", " & objSoftware.Name & ",
" & objSoftware.Vendor & ", " & objSoftware.Version
Next
'---------------------------------
works perfectly on any Windows XP 32-bit system, but not on any Windows XP
64-bit system.
Has anyone else had this experience and if so, do you know how to solve it?
Thanks in advance for any help,
Ian