Hello



Why my vbscript don't remove my network printer?
My printer network is remove in my server but i have yet in my computer.
=> i want to remove by vbscript but nothing.

thanks

my code :

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

Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from
Win32_Printer")

For Each objPrinter in colInstalledPrinters
WshNetwork.removePrinterConnection "\\srv-ace\05-HP5-BUREAU",true,true
Next

Fabrice wrote:

=> Why my vbscript don't remove my network printer?

> My printer network is remove in my server but i have yet in my computer.
> => i want to remove by vbscript but nothing.
>
> thanks
>
> my code :
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" &
> "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
>
> Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from
> Win32_Printer")
>
> For Each objPrinter in colInstalledPrinters
> WshNetwork.removePrinterConnection "\\srv-ace\05-HP5-BUREAU",true,true
> Next

Your code references WshNetwork, probably the Wscript.Network object, but
the object reference is never created with a Set statement. You also never
use the objPrinter reference. I don't believe the Win32_Printer class
exposes a removePrinterConnection method. Perhaps you can use code similar
to:
==========
Set objNetwork = CreateObject("Wscript.Network")

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

Set colPrinters = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer")

For Each objPrinter in colPrinters
objNetwork.RemovePrinterConnection objPrinter.ShareName, True, True
Next
=========
This should remove all printer connections.

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--