Object doesn't support this property or method

[jouell]

Microsoft VBScript runtime error '800a01b6' Object
doesn't support this property or method

when running :

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2&quot
Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer&quot

For Each objPrinter in colInstalledPrinters
objPrinter.Delete
'msgbox (objPrinter.name)
Next


got from here:

http://www.microsoft.com/technet/tr...l=/technet/scriptcenter/printing/ScrPrn07.asp

to Delete All Printers on a Print Server


Any ideas?

tks!

 

[FengShui1998]

jouell,

At what line did you get the error?

fengshui_1998

 

[jouell]

Sorry!

line 6
char 1

tks,
-john

 

[FengShui1998]

jouell,
This code works as is on my machine, Windows 2000. What are you running for OS? Do you have WMI installed?

fengshui_1998

 

[jouell]

2000 server sp2

"Currently, WMI is included when you install Microsoft Windows 2000" - so i must.

tks!
-john

 

[dilettante]

Is the WMI Service started? I think it needs to be running to create the "winmgmts:" namespace in the file system.

 

[jouell]

it was not
but starting did not help
i know we're close!

tks!
-john

 

[dilettante]

This error is caused by a typo:

objPrinter.Delete_ must be used. Note the trailing "_" character.

The script probably also needs to run as an admin or backup operator to avoid an 80041024 error (Provider not capable of operation).

 

[jouell]

no luck w/the _, either
i am an admin (local and domain)
anything else?
thanks!
-john

 

[dilettante]

Now I am stuck. With the _ in there it works on two machines I tried here.

 

[jouell]

me too
tks so much dilettante !

 

[WSeay]

jouell, did you ever happen to find a solution to your problem? I get the exact same error on a Windows 2000 server running SP4. I have run the "versions" script from the Technet FAQ and have confirmed I have the recommended versions of WMI and VB and such.

I have double-checked and am using the exact code from this site:

http://www.microsoft.com/technet/tr...l=/technet/scriptcenter/printing/ScrPrn07.asp

I noticed that at least right now the script published at this link is slightly different than the one you list at the top of the thread. It looks like:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2&quot
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer&quot
For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
Next

It looks like a permissions problem of some kind but I have tried running both as a domain user with local admin privs and also as the local admin account on the server itself.

 

[mrmovie]

WMI is good for some things, ADSI is better at others.
I prefer to use ADSI for printing issues on servers.

regards
richard