Script to delete all network printers at logoff?

[woody]

Anyone know of simple script to delete all Network printers (not local ones) at logoff. We run a script to add a printer based on machine name but when we occasionally swap a printer in a room and update the script, the old printer driver is left over and these can build up over time.

Thanks

Paste the following into notepad:

Option Explicit
Dim DelPrint, UNCpath
UNCpath = "\\%SERVER%\%PRINTER%"
On Error Resume next
Set DelPrint = WScript.CreateObject("WScript.Network")
DelPrint.RemovePrinterConnection UNCpath, true, true
WScript.Quit

Change the UNCpath to point to your printer.

Save it as a .vbs file and volia

[woody]

Thanks, I will try this later today!

[Geoff]

You might want to look at Ric's printer script. He has a while loop at the start of it to delete all the network printers.

http://www.edugeek.net/index.php?nam...iewtopic&t=404

[DMcCoy]

This is based on the portname from the print server. It removes all printers that end in .local and .school. Not sure if it works, I've taken it from a bigger script

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WS_PRINTERS = WshNetwork.EnumPrinterConnections
For LOOP_COUNTER = 0 To WS_PRINTERS.Count - 1 Step 2
IF Lcase(right(WS_PRINTERS.Item(LOOP_COUNTER),6)) = "school" THEN
WshNetwork.removeprinterconnection WS_PRINTERS(LOOP_COUNTER+1), true
End If
IF Lcase(right(WS_PRINTERS.Item(LOOP_COUNTER),5)) = "local" THEN
WshNetwork.removeprinterconnection WS_PRINTERS(LOOP_COUNTER+1), true
End If
Next
Set WS_PRINTERS = Nothing

[E1uSiV3]

you could just cheat and use con2prt and run:

\\Server\Share\Con2Prt.exe /F

This will remove all network (but not local) printers

(yes i know its an NT4 tool, but it works perfectly here and does not require big VBS scripts, why reinvent the wheel?)

[Geoff]

why reinvent the wheel?

Because Microsoft say so!

[jonny_valentine]

you could just cheat and use con2prt and run:

\\Server\Share\Con2Prt.exe /F

This will remove all network (but not local) printers

(yes i know its an NT4 tool, but it works perfectly here and does not require big VBS scripts, why reinvent the wheel?)

I agree, con2prt works great for me, and adprintX is even better, i dont have a preference...

www.henrymellish.com/adprintx.zip


sorry DMccoy, advertising again.. I work for Microsoft :P