Hello,
Here is what I have. You have to do some editing but it should work for you. It will create an IP port and install a printer on the port it created.
You have to edit the following sections to meet your needs: objPrinter.Location createPort addPrinter msgbox
Under the add printer section the printer you are installing must be typed exactly the way it appears in the add printer wizard
Copy and paste below. And save as a .vbs Good luck
''----------------------------------------------''
''----------------------------------------------''
'' ''
'' Script to automate TCP/IP printer installs ''
'' ''
''----------------------------------------------''
''----------------------------------------------''
Set WSHNetwork = WScript.CreateObject("WScript.Network")
set shell = WScript.CreateObject( "WScript.Shell" )
CompName = shell.ExpandEnvironmentStrings("%COMPUTERNAME%")
Set objWMIService = GetObject("winmgmts:\\" & CompName & "\root\cimv2")
Set objNewPort = objWMIService.Get("Win32_TCPIPPrinterPort").SpawnInstance_
Set oShell = WScript.CreateObject("WScript.shell")
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
sub createPort (name, ip)
objNewPort.Name = name
objNewPort.Protocol = 1
objNewPort.HostAddress = ip
objNewPort.SNMPEnabled = False
objNewPort.Put_
end sub
sub addPrinter (driver, port, name)
objPrinter.DriverName = driver
objPrinter.PortName = port
objPrinter.DeviceID = name
objPrinter.Location = "EHN RM219"
objPrinter.Network = True
objPrinter.Shared = false
objPrinter.ShareName = ""
objPrinter.Put_
end sub
'------------------'
'Add printer ports:'
'------------------'
createPort "RM 206 HP4050", "10.17.106.150"
'----------------------------------------------'
'Install printers with drivers native to WinXP:'
'----------------------------------------------'
' TCP/IP Port Name Display Name
' -------------------- -----------------
addPrinter "HP LaserJet 4100 Series PS", "RM 206 HP4100", "RM 206 HP4100"
msgbox ("Printer installation complete. Don't Forget to make it the default printer")