strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

set objNewPort = objWMIService.get("Win32_TCPIPPrinterPort").SpawnInstance_
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True
Set objDriver = objWMIService.Get("Win32_PrinterDriver")


'Laserjet 4250 
'Installs Printer Driver, one whose driver needs to be added, not part of windows
objDriver.Name = "HP LaserJet 4250 PS"
objDriver.SupportedPlatform = "Windows NT x86"
objDriver.Version = "3"
objDriver.FilePath = "z:\\drivers\\HP LJ4250\\"
objDriver.Infname = "z:\\drivers\\HP LJ4250\\hpc4x50d.inf"
intResult = objDriver.AddPrinterDriver(objDriver)

'Installs Printer Ports
objNewPort.Name = "malloy0.alprinters.nd.edu"
objNewPort.Protocol = 1
objNewPort.HostAddress = "malloy0.alprinters.nd.edu"
objNewPort.PortNumber = 9100
objNewPort.SNMPEnabled = True
objNewPort.Put_

objNewPort.Name = "malloy1.alprinters.nd.edu"
objNewPort.Protocol = 1
objNewPort.HostAddress = "malloy1.alprinters.nd.edu"
objNewPort.PortNumber = 9100
objNewPort.SNMPEnabled = True
objNewPort.Put_

objNewPort.Name = "malloy2.alprinters.nd.edu"
objNewPort.Protocol = 1
objNewPort.HostAddress = "malloy2.alprinters.nd.edu"
objNewPort.PortNumber = 9100
objNewPort.SNMPEnabled = True
objNewPort.Put_

objNewPort.Name = "malloy3.alprinters.nd.edu"
objNewPort.Protocol = 1
objNewPort.HostAddress = "malloy3.alprinters.nd.edu"
objNewPort.PortNumber = 9100
objNewPort.SNMPEnabled = True
objNewPort.Put_

objNewPort.Name = "malloy4.alprinters.nd.edu"
objNewPort.Protocol = 1
objNewPort.HostAddress = "malloy4.alprinters.nd.edu"
objNewPort.PortNumber = 9100
objNewPort.SNMPEnabled = True
objNewPort.Put_

'Install Printers
objPrinter.DriverName = "HP LaserJet 4250 PS"
objPrinter.PortName = "malloy0.alprinters.nd.edu"
objPrinter.DeviceID = "Malloy Basement"
objPrinter.Location = ""
objPrinter.Network = True
objPrinter.Put_

objPrinter.DriverName = "HP LaserJet 4250 PS"
objPrinter.PortName = "malloy1.alprinters.nd.edu"
objPrinter.DeviceID = "Malloy 1"
objPrinter.Location = ""
objPrinter.Network = True
objPrinter.Put_

objPrinter.DriverName = "HP LaserJet 4250 PS"
objPrinter.PortName = "malloy2.alprinters.nd.edu"
objPrinter.DeviceID = "Malloy 2"
objPrinter.Location = ""
objPrinter.Network = True
objPrinter.Put_

objPrinter.DriverName = "HP LaserJet 4250 PS"
objPrinter.PortName = "malloy3.alprinters.nd.edu"
objPrinter.DeviceID = "Malloy 3"
objPrinter.Location = ""
objPrinter.Network = True
objPrinter.Put_

objPrinter.DriverName = "HP LaserJet 4250 PS"
objPrinter.PortName = "malloy4.alprinters.nd.edu"
objPrinter.DeviceID = "Malloy 4"
objPrinter.Location = ""
objPrinter.Network = True
objPrinter.Put_