Setting the local printer as the default running alongside network printers

[stringfellow]

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"

[sted]

easieat way ive found was to just name ALL local printers Local printer and y vbs script just sets the default to whatever the default is for that area then sets the default to local printer that way if it hasnt got a local printer it fails that part leaving the default printer the normal default something like (in this partiular school the printers themselves are deployed by ad)

' Printers.vbs - Jonathan
Option Explicit
Dim objNetwork
on error resume next

Set objNetwork = CreateObject("WScript.Network")

objNetwork.SetDefaultPrinter "\\gateway\Photocopier (ICT Suite)"
objNetwork.SetDefaultPrinter "local printer"