Mapping Printers via OU or Computer Name

A simple script that will map printers for users based on either the computer name or OU the computer is in, very handy if users roam between computers.

Create the following script, save it in an accessible share such as netlogon and set it to run as a user startup script via GPO.

'==================================================
'PrinterMapping.vbs
'This scripts removes all existing mapped printers
'It then queries AD and gets computer objusct OU
'It then maps printers via OU or computer name
'================================================

Set objSysInfo = CreateObject("ADSystemInfo")
Set wshShell = WScript.CreateObject( "WScript.Shell" )
Set cNetCommands = WScript.CreateObject("WScript.Network")
'===================================
'Remove Mapped printers
'===================================

strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Network = TRUE")
For Each objPrinter in colInstalledPrinters
objPrinter.Delete_
Next
'WScript.Sleep 5000
'======================================================
'Get computer AD path
'======================================================
strComputer = objSysInfo.ComputerName
'======================================================
'Get Computer name
'======================================================
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
'WScript.Echo "Computer Name: " & strComputerName
'======================================================
'Get OU of computer
'======================================================
Set objComputer = GetObject("LDAP://" & strComputer)
arrOUs = Split(objComputer.Parent, ",")
arrMainOU = Split(arrOUs(0), "=")
'Wscript.Echo arrMainOU(1)
'======================================================
'Map Printers to all computers and then set default
'======================================================
cNetCommands.AddWindowsPrinterConnection "\serverprinter"
cNetCommands.SetDefaultPrinter "\serverprinter"
'======================================================
'Map Printers via OU, line require for each OU. Use "SetPrinter" for default and "SetPrinternotdefault" for non default printer, which ever default comes last in the script will be the default on the computer.
'======================================================

if InStr(1,arrMainOU(1),"IT",vbTextCompare) > 0 then call SetPrinter("\serverprinter1")

if InStr(1,arrMainOU(1),"IT",vbTextCompare) > 0 then call SetPrinternotdefault("\serverprinter2")

'======================================================
'Map Printers via Computer name, line required for each computer name, you may also use part of the name i.e. s-room1-p would map printer to all computers with "s-room1-p" in there names. Use "SetPrinter" for default and "SetPrinternotdefault" for non default printer, which ever default comes last in the script will be the default on the computer.'=====================================================

if InStr(1,strComputerName,"s-it",vbTextCompare) > 0 then call SetPrinternotdefault("\serverprinter1")
if InStr(1,strComputerName,"s-it",vbTextCompare) > 0 then call SetPrinter("\serverprinter2")

'======================================================<

'Clear Memory and quit
'=====================================================
Set objWMIService = Nothing
Set colInstalledPrinters = Nothing
Set objComputer = Nothing
Set objSysInfo = Nothing
Set wshShell = Nothing
Set cNetCommands = Nothing
wscript.quit

'======================================================
'This subroutine installs and sets the default printer
'======================================================
Sub SetPrinter(ByVal PrinterPath)
DIM WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection(PrinterPath)
WshNetwork.SetDefaultPrinter Printerpath
'Result = WshShell.Popup("Sucessfully mapped" & vbCrLf & PrinterPath, 2, "Printer Mapped", 0 + 64)
end sub

'======================================================
'This subroutine installs the printer
'======================================================
Sub SetPrinternotdefault(ByVal PrinterPath)
DIM WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection(PrinterPath)
'Result = WshShell.Popup("Sucessfully mapped" & vbCrLf & PrinterPath, 2, "Printer Mapped", 0 + 64)
end sub