Setting the local printer as the default running alongside network printers
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