Sidenote

by Nikolas Demiridis

This actually started as a way to post (and archive) anything I was finding to be insteresting enough. Now it actually serves as a kind of memo notes to myself.
This is an English language blog.

Setting Up Shared Printers with Logon Script

I still have some Windows 2003 Servers running on some networks and whenever I need to setup shared printers I use the following VBScript as a Logon Script.

'-------------------------------------------
' Printer Install
'-------------------------------------------

'Variables declaration
Dim net
Dim mainOfficePrinter
Dim FAXPrinter
'Creating WScript.Network Object
	Set net = CreateObject("WScript.Network")
	mainOfficePrinter = "\\server\printer"
	FAXPrinter = "\\server\fax"
	'Adding FAX and main Printer
		net.AddWindowsPrinterConnection FAXPrinter
		net.AddWindowsPrinterConnection mainOfficePrinter
	'Enymerating Printer Connections
	Set printersEnum = net.EnumPrinterConnections
	'Deleting non existent printers
	For i = 0 to printersEnum.Count-1 Step 2
		If printersEnum.Item(i + 1) = "\\server\oldprinter" Then
			net.RemovePrinterConnection printersEnum.Item(i + 1), true, true
		End If
		If printersEnum.Item(i + 1) = "\\oldserver\printer" Then
			net.RemovePrinterConnection printersEnum.Item(i + 1), true, true
		End If
		If printersEnum.Item(i + 1) = "\\oldserver\oldprinter" Then
			net.RemovePrinterConnection printersEnum.Item(i + 1), true, true
		End If
	Next
		'Setting default Printer
		net.SetDefaultPrinter(mainOfficePrinter)