Search for files

[Rully]

Why do I get Remote Procedure Call failed on this one?

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where FileName Like '%~%'")

For Each objFile in colFiles
Wscript.Echo objFile.Name
Next

Thank you.

 

[Peter Falz]

Hi Rully,

Why do I get Remote Procedure Call failed on this one?

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where FileName Like '%~%'")

For Each objFile in colFiles
Wscript.Echo objFile.Name
Next

where do you get the "Remote Procedure Call failed"-error?

Take a look at:
http://groups.google.de/groups?q="[email protected]&rnum=3

HTH

Bye
Peter

 

[Rully]

Line: 8
Char: 1
Error: The remote procedure call failed.
Code: 800706BE
Source: (null)

Hope this helps, thank you.

 

[Peter Falz]

Hi Rully,

Line: 8
Char: 1
Error: The remote procedure call failed.
Code: 800706BE
Source: (null)

Hope this helps, thank you.

not really.

mmh, if i habe googled, i fount this:
http://support.microsoft.com/kb/811113/EN

Search for: 800706BE
and click on the link:
http://support.microsoft.com/?scid=kb;en-us;329080&x=18&y=6

It suggests you to update to XP SP2. But if do that, you have a lot of other
problems. Maybe you have XP SP2.

Bye
Peter