''----------------------------------------------''
''----------------------------------------------''
''                                              ''
''   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 WinXP:'
'----------------------------------------------'

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


msgbox ("Printer installation complete.")