0x80041021 error and I can't see why

[elmurado]

Hi guys,
I have this piece of code:

For Each strComputer in PCList
Set oWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\CIMV2")
Set oShell = CreateObject("WScript.Shell")
If oFSO.FolderExists("\\" & strComputer & "\c$\Program Files\PDFCreator\") Then 
WScript.Quit

and I keep getting an error 0x80041021 even though the script finishes properly and the software I need is installed-so I'm guessing that WMI is connected to correctly.
It references this line:

Set oWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\CIMV2")

Can anyone see what is wrong? I think it is a syntax thing but it looks fine.

 

[dm4ever]

Could WMI be corrupter on one or more of the machines you are connecting to?

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[elmurado]

Thanks dm-I can't imagine it being corrupt on more than one. My PClist array contained 10 machines.

Is there a way of checking?