' Script to add network printers to workstations and thin clients
'
' Author: Ric Charlton, 07/07/04

' Declare variables and enumerate existing printer connections
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections


Dim computerName
computerName = LCase(WshNetwork.ComputerName)

' Delete existing connections to network printers
For i = 0 to oPrinters.Count - 1 Step 2
            On Error Resume Next
		if Left(oPrinters.Item(i), 3) <> "lpt" And Left(oPrinters.Item(i), 3) <> "usb" then
             	WshNetwork.RemovePrinterConnection oPrinters.Item(i+1), true, true
            else WScript.Echo "No network printers found"
            end if
Next

' Add printer connections dependant upon location
Select Case (Left(computerName, 5))

	Case "W107A"
		
		WshNetwork.AddWindowsPrinterConnection "\\servername\W107A_in"

Select Case (Left(computerName, 5))

	Case "W107c"

		WshNetwork.AddWindowsPrinterConnection "\\servername\W107c_in"

	Case Else
		' WScript.Echo "No default printers added"

Select Case (Left(computerName, 4))

	Case "e055"		

		WshNetwork.AddWindowsPrinterConnection "\\servername\e055_in"	
	
	Case "e257"
		
		WshNetwork.AddWindowsPrinterConnection "\\servername\e257_in"
	
	Case "e254"
		
		WshNetwork.AddWindowsPrinterConnection "\\servername\e254_in"

	Case "e258"
		
		WshNetwork.AddWindowsPrinterConnection "\\servername\e258_Mono_in"
		WshNetwork.AddWindowsPrinterConnection "\\servername\e258_Colour_in"
	
	Case "e259"
	
		WshNetwork.AddWindowsPrinterConnection "\\servername\e259_in"
	
	Case "e260"
	
		WshNetwork.AddWindowsPrinterConnection "\\servername\e260_in"

	Case "w107"

		WshNetwork.AddWindowsPrinterConnection "\\servername\w107_in"

	Case "w113"

		WshNetwork.AddWindowsPrinterConnection "\\servername\w113_Mono_in"
		WshNetwork.AddWindowsPrinterConnection "\\servername\w113_Colour_in"

	Case "w203"

		WshNetwork.AddWindowsPrinterConnection "\\servername\w203_in"

End Select


Select Case (Left(computerName, 10))
	
	Case "Enterprise"
		WshNetwork.AddWindowsPrinterConnection "\\servername\Enterprise_in"

	Case Else
		' WScript.Echo "No default printers added"

End Select