Script to Log, Remove and install Back same network Printers.

[Seaborg]

Hi Scritping Lads.
I`m involved in project to Reduce paper usage in my company
And to do so we have Enabled Duplex printing on each printer. But to changes got apply for all PC we need to Delet priner and install it back to pull new Defoult settings.
doing it manualy could be time conuming ... 10 Printer over 400 workstations.
I sow some Scritps to Remove printers but i cant find any to do all tasks that are required :]
I will be pushing that thrue SCCM.

Any Ideas how i can dill with that?

 

[markdmac]

Untested but this should do the trick

Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WSHPrinters = WSHNetwork.EnumPrinterConnections
For LOOP_COUNTER = 0 To WSHPrinters.Count - 1 Step 2
	If Left(WSHPrinters.Item(LOOP_COUNTER +1),2) = "\\" Then
	  WSHNetwork.RemovePrinterConnection WSHPrinters.Item(LOOP_COUNTER +1),True,True
	  WSHNetwork.AddWindowsPrinterConnection WSHPrinters.Item(LOOP_COUNTER +1)
	End If
Next

I hope that helps.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.