Error 0x80041010 in WMI query

[Salyn]

I run the following script to collect list of applications installed on computer. It runs very well on desktop but when it is run on laptop (Dell Latitude D600), it failed with an error code of 0x80041010 as Sourcenull) on objItem. Any advise or helps please...

Dim wshProEnv, objWMIService
Dim CurrentPC, colItems, objItem
Dim sInstallApp, sInstallVer, sResult

Set wshShell = WScript.CreateObject("WScript.Shell")
Set wshProEnv = wshShell.Environment ("Process")
CurrentPC = wshProEnv("Computername")

Set objWMIService = GetObject("winmgmts:\\" & CurrentPC & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32Reg_AddRemovePrograms",,48)

For Each objItem in colItems
sInstallApp = objItem.Displayname
sInstallVer = objItem.Version

sResult = sResult & vbcrlf & "DisplayName:" & sInstallApp & " - " & "Version:" & sInstallVer & vbcrlf

Wscript.Echo sResult
Next


Thanks in advance,
Salyn

 

[tsuji]

The laptop probably you can't find sms_def.mof there neither.

 

[Salyn]

tsuji,

Thanks for your reply . I have checked that none of my computers- desktops and laptops have the sms_def.mof file. They all run on Windows XP SP1 or SP2. I have no problem to run the script on any desktops except the laptops. What could it be...?

Reagrds,
Salyn