set objNetwork = WScript.CreateObject("WScript.Network")
set objShell = WScript.CreateObject("WScript.Shell")

'Add Network printers
objNetwork.AddWindowsPrinterConnection "\\nmhps01\printer"

'Set Default Printer
objNetwork.SetDefaultPrinter "\\nmhps01\printer"

'Attrib to system, hidden and read only
objShell.Run("attrib c:\windows\printers.vbs +r +s +h")