strComputer = "." 

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


Set objNewPort = objWMIService.Get ("Win32_TCPIPPrinterPort").SpawnInstance_ 


objNewPort.Name = "IP_10.5.4.77" 
objNewPort.Protocol = 1 
objNewPort.HostAddress = "10.5.4.77" 
objNewPort.PortNumber = "9100" 
objNewPort.SNMPEnabled = False 
objNewPort.Put_ 


objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True 


Set objDriver = objWMIService.Get("Win32_PrinterDriver") 


objDriver.Name = "HP LaserJet P4014/P4015 PCL6" 
'objDriver.SupportedPlatform = "Windows NT x86" 
'objDriver.Version = "3" 
objInfname = "c:\windows\inf\ntprint.inf" 
intResult = objDriver.AddPrinterDriver(objDriver) 


Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_ 


objPrinter.DriverName = "HP LaserJet P4014/P4015 PCL6" 
objPrinter.PortName   = "IP_10.5.4.77" 
objPrinter.DeviceID   = "Balcony" 
objPrinter.Location = "Balcony" 
objPrinter.Network = True 
objPrinter.Shared = False 
objPrinter.Put_