''----------------------------------------------''
''----------------------------------------------''
''                                              ''
''   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 = "CEH"
    objPrinter.Network = True
    objPrinter.Shared = false
    objPrinter.ShareName = ""
    objPrinter.Put_
end sub

message = "Please choose a printer to install:" & vbCrLf & vbCrLf & "1: All Printers"  & vbCrLf &  "2: HP4200 North" & vbCrLf & "3: HP8150 South" & vbCrLf & "4: HP8500 Color PS" & vbCrLf& vbCrLf & vbCrLf & "Please enter 1-5 (leave blank to quit):"
title = "Install Printers - BCEHFP"


'------------------'
'Add printer ports:'
'------------------'
createPort "phys2603ptrl", "198.110.193.100"
createPort "phys2603ptr2", "198.110.193.101"
createPort "phys2603ptr3", "198.110.193.102"

'----------------------------------------------'
'Install printers with drivers native to Win 7:'
'----------------------------------------------'

'                                                TCP/IP Port Name        Display Name
'                                                --------------------    -----------------
addPrinter "HP LaserJet 1200 Series PCL 5",        "phys2603ptrl", 		"phys2603ptrl"
addPrinter "HP LaserJet 1200 Series PCL 5",        "phys2603ptr2", 		"phys2603ptr2"
addPrinter "HP LaserJet 1200 Series PCL 5",        "phys2603ptr3", 		"phys2603ptr3"


msgbox ("Printer installation complete.")