Hi, At our school we use two VBScripts to both add and make the appropriate printer the default. In many circumstances e.i. in offices where a local printer is present, this needs to be the default. Every now and again when the user logs on in an office where a local printer is present the default printer gets set to something random. This causes issues as some programs only print to the default printer.
Below is what I use to set the default printer by OU, as every office doesn't have there own OU, is there a peice of VBS that I can add to the end to make the local print the default or "anything" using port "USB001" the default for instance.
Set objSysInfo = CreateObject("ADSystemInfo")
strName = objSysInfo.ComputerName
arrComputerName = Split(strName, ",")
arrOU = Split(arrComputerName(1), "=")
strComputerOU = arrOU(1)
Set objNetwork = CreateObject("WScript.Network")
Select Case strComputerOU
Case "UsLib"
objNetwork.SetDefaultPrinter "\\presley\uslib-mono"
Case "R20"
objNetwork.SetDefaultPrinter "\\presley\r20-mono"
Case "R22"
objNetwork.SetDefaultPrinter "\\presley\r22-mono"
Case "R23"
objNetwork.SetDefaultPrinter "\\presley\r23-mono"
Case "R40"
objNetwork.SetDefaultPrinter "\\presley\r40-mono"