10-02-2009, 03:29 PM
#731
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
createPort "HP4350CLIENTSUPPORT", "172.16.19.202"
oshell.run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /if /b ""HP4350CLIENTSUPPORT"" /f S:\HPtest\hpc4x50c.inf /r ""HP4350CLIENTSUPPORT"" /m ""HP LaserJet 4350 PCL 6""" ,,true
Dim objPrinter
Set objPrinter = CreateObject("WScript.Network")
objPrinter.SetDefaultPrinter "HP4350CLIENTSUPPORT"
If PrinterPath = "\\fileserver\HP4350CLIENTSUPPORT" Then
Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\fileserver\HP4350CLIENTSUPPORT"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
End If
If PrinterPath = "\\monitoring\HP4350CLIENTSUPPORT" Then
Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\monitoringserve\HP4350CLIENTSUPPORT"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
End If
msgbox ("Printer installation complete.")