Printer IP replacement

myITforum.com Community Forum

Home Forums Blogs Live Support chat Search Articles Wiki FAQ Email Lists Register Login My Profile Inbox Address Book My Subscription My Forums

Photo Gallery Member List Search Calendars FAQ Ticket List Log Out

All Forums RSS Feed Subscription:

Printer IP replacement - Help needed

View related threads: (in this forum | in all forums)

Logged in as: Guest

Printable Version

All Forums >> [Scripting Technologies] >> VB Script >> Printer IP replacement - Help needed

Page: [1]

Message

<< Older Topic Newer Topic >>

Printer IP replacement - Help needed - 9/17/2008 10:31:39 PM

tonyh

Posts: 1
Score: 0
Joined: 9/17/2008
Status: offline

The following scripts works fine with admin rights, won’t work with-out. I tried to apply a registry fix to elevate the rights with GP but was unsuccessful.
The CSV file contains the IP address of the new printer, old Printer
Thoughts?

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set Printers = WshNetwork.EnumPrinterConnections
For i = 0 to Printers.Count - 1 step 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\printerIP.txt", 1)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
ip = arrServiceList(1)
newip = arrServiceList(0)
if Printers.Item(i) = "IP_" & ip then
print1 = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\" & printers.item(i+1) & "\"
print2 = print1 & "DsSpooler\"
print3 = "HKLM\system\CurrentControlSet\Control\Print\Monit ors\Standard TCP/IP Port\Ports\"
print4 = print3 & Printers.Item(i) & "\"
print5 = "HKLM\system\CurrentControlSet\Control\Print\Print ers\" & printers.item(i+1) & "\"
print6 = print5 & "DsSpooler\"
WScript.Echo "Printer " &Printers.Item(i+1) &" has been updated. Please restart your system"
WSHShell.RegWrite print1 & "Port", "IP_" & newip
WSHShell.RegWrite print2 & "PortName", "IP_" & newip
WSHShell.RegWrite print5 & "Port", "IP_" & newip
WSHShell.RegWrite print6 & "PortName", "IP_" & newip
WSHShell.RegWrite print3 & "IP_" & newip & "\" &"HostName", ""
WSHShell.RegWrite print3 & "IP_" & newip & "\" &"HWAddress", ""
WSHShell.RegWrite print3 & "IP_" & newip & "\" &"IPAddress", newip
WSHShell.RegWrite print3 & "IP_" & newip & "\" &"PortNumber", "9100", "REG_DWORD"
WSHShell.RegWrite print3 & "IP_" & newip & "\" &"Protocol", "1", "REG_DWORD"
WSHShell.RegWrite print3 & "IP_" & newip & "\" &"SNMP Community", "public", "REG_SZ"
WSHShell.RegWrite print3 & "IP_" & newip & "\" &"SNMP Enabled", "1", "REG_DWORD"
WSHShell.RegWrite print3 & "IP_" & newip & "\" &"SNMP Index", "1", "REG_DWORD"
WSHShell.RegWrite print3 & "IP_" & newip & "\" &"Version", "1", "REG_DWORD"
end if
Loop
next
'WScript.Echo " Your Printers have been updated. A reboot is required before changes will take

Post #: 1

RE: Printer IP replacement - Help needed - 9/26/2008 10:10:14 AM

rbennett806

Posts: 827
Score: 13
Joined: 6/14/2006
Status: offline

Since nobody has picked this one up.... What exactly is it that you're trying to do with this script? If you're doing printer replacements, maybe think about doing something like...

Set objNetwork = Wscript.CreateObject("WScript.Network")
strPrinter = ?????
strPrintQueue = ????
'removing a printer
objNetwork.RemovePrinterConnection strPrinter, True, True
'adding a printer
objNetwork.AddWindowsPrinterConnection strPrintQueue

And if your users can't add printers, either adjust a domain GPO (or local) setting to grant them the right, or else maybe try running this as a Startup script. And of course that's just a rough example and not full code...

(in reply to tonyh)

Post #: 2

RE: Printer IP replacement - Help needed - 10/3/2008 11:41:38 AM

mbernards

Posts: 35
Score: 0
Joined: 6/11/2001
Status: offline

prnadmin.dll from the Server 2003 ResKit can do that pretty easy.
the whitepaper doc is in there too.

RegSvr32.exe prnadmin.dll anf off you go.
I'm busy writing a Powershell PrinterFunctions.ps1 which you can include just like the Poweshell Community Extensions do.

The only problem I've got is it just won't register in Windows Vista SP1. (error 0x80020009)
I digged in with depends.exe to get an idea what's going on, and I think there are some functions missing in the includeset on which prnadmin.dll depends.
Warning: At least one module has an unresolved import due to a missing export function in a delay-load dependent module
SHLWAPI and IEFRAME are marked red.

Anyone has a clue to fix this?
Is there a newer prnadmin.dll version available (2008 server?) or can the same be done with just plain old WMI?

Excerpt from the whitepaper:

---8<----

dim oPort
dim oMaster

‘Create the Port object.
set oPort = CreateObject("Port.Port.1")

‘Create the PrintMaster object.
set oMaster = CreateObject("PrintMaster.PrintMaster.1")

‘Get the current configuration. The first argument is a server name; "" indicates local computer. The second
‘one is a port name; the third argument is a Port object, which will receive the settings of the specified port.
oMaster.PortGet "\\server", "IP_1.2.3.4", oPort

‘Set the new type: 1 (RAW) or 2 (LPR). An Err object may be used here to test the result of the get
'operation.
oPort.PortType = kTcpRaw

‘Set the address of the device to which it connects.
oPort.HostAddress = "2.3.4.5"

‘This applies to RAW ports only.
oPort.PortNumber = 9100

‘This applies to LPR ports only.
oPort.QueueName = "Queue"

‘Enable/disable SNMP.
oPort.SNMP = true

‘This applies if SNMP is enabled, SNMP device index.
oPort.SNMPDeviceIndex = 1

‘This applies if SNMP is enabled, SNMP community name.
oPort.CommunityName = "public"

Enable/disable byte counting (double spool).
oPort.DoubleSpool = true / false

‘Try updating the data.
oMaster.PortSet oPort

‘Error handling.
if Err <> 0 then

‘An error occurred
End if

(in reply to tonyh)

Post #: 3