''----------------------------------------------''
''----------------------------------------------''
''                                              ''
''   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 "phys2508ptr", "198.110.193.111"
createPort "phys2506ptr", "198.110.193.108"

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

'                                                TCP/IP Port Name        Display Name
'                                                --------------------    -----------------
addPrinter "HP LaserJet 1200 Series PCL 5",        "phys2508ptr", 		"phys2508ptr"
addPrinter "HP LaserJet 1200 Series PCL 5",        "phys2506ptr", 		"phys2506ptr"


msgbox ("Printer installation complete.")