Migrate Network Printers the easy way

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Migrate Network Printers the easy way - PrintSwap

Logged in as: Guest

arrSession:exec spGetSession 2,16,48808

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Migrate Network Printers the easy way - PrintSwap
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Migrate Network Printers the easy way - PrintSwap - 6/27/2007 5:42:31 AM

edavis6678

Posts: 122
Score: 0
Joined: 1/12/2006
Status: offline

Here's a real simple script if you are in the process of migrating from 1 windows printer server to another. (or if you ever want to migrate from 1 printer share to a new printer share)

Run this as part of a login script, or interactively.

Rememeber to change line 7 of the script to note the name of your INPUT file. Format of file is simple TXT file, (i use CSV extension so you can modify in excel). Make sure input file is in same directory as script.

Format is as follows:

\\OLDSERVERNAME\OLDPRINTERSHARENAME, \\NEWSERVERNAME\NEWSHARENAME
\\SERVERNAME\OLDPRINTERSHARENAME, \\SERVERNAME\NEWSHARENAME

Enjoy

-E

On Error Resume Next
' PrintSwap vbs - Author, Eric Davis- edavis6678 -at- Y a h o o . com
Dim oNetwork, oFso, oShell, InputFileName
Set oShell   = WScript.CreateObject("WScript.Shell")
Set oNetwork = WScript.CreateObject("WScript.Network")
Set oFso= CreateObject("Scripting.FileSystemObject")
InputFileName = "redirect_list.csv" ' Make sure this files is located in SAME directory as this script
'Format of files is as follows
'\\OLDSERVERNAME\OLDPRINTERSHARENAME, \\NEWSERVERNAME\NEWSHARENAME
'\\SERVERNAME\OLDPRINTERSHARENAME, \\SERVERNAME\NEWSHARENAME
Set oPrinters = oNetwork.EnumPrinterConnections
For i = 0 to oPrinters.Count - 1 Step 2
Print = oPrinters.Item(i)
PrintDev = oPrinters.Item(i+1)
'########## CALL TO CHECK PRINTERS AND CHANGE IF NECESSARY
Call ReMapPrinter(PrintDev) 
Next
'End of Script
Sub ReMapPrinter(OldPrinter)
booldontadd = 0
sScriptDir = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - Len(WScript.ScriptName)) ' Path of script
InputFile = sScriptDir & "\" & InputFileName ' path of inputfile
Set TempFile = ofso.openTextFile(InputFile) ' read through file
While Not TempFile.atendofstream
TextLine = Trim(TempFile.Readline)
aryLine = Split(TextLine,",")
printerpath = lcase(aryLine(1))
If printerpath = "" Then ' If printer is listed, but no value given for new printer then just remove old printer
 booldontadd = 1
Else
 booldontadd = 0
End If
oldprinterpath = lcase(aryLine(0))
If lcase(OldPrinter) = oldprinterPath Then
 ' get current default printer
 DefaultKey = LCase(oShell.RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"))
 DefPrinter = Split(DefaultKey, ",")
 If booldontadd = 0 Then ' must have new target, if none, printer removed.
  oNetwork.AddWindowsPrinterConnection printerpath
 End If
 oNetwork.RemovePrinterConnection oldprinterPath ' remove old printer
  If DefPrinter(0) = oldprinterpath Then 
   oNetwork.SetDefaultPrinter PrinterPath ' if it was the default, reset it back to default
  End If
End If
Wend
End Sub

Revisions: 2 | Post #: 1

RE: Migrate Network Printers the easy way - PrintSwap - 6/27/2007 12:28:06 PM

dm_4ever

Posts: 2434
Score: 38
Joined: 6/29/2006
From: Orange County, California
Status: offline

How weird...I just wrote one to do the same thing for someone at work.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to edavis6678)

Post #: 2

RE: Migrate Network Printers the easy way - PrintSwap - 6/28/2007 2:59:14 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

I have one too.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to dm_4ever)

Post #: 3

RE: Migrate Network Printers the easy way - PrintSwap - 6/28/2007 4:23:34 AM

edavis6678

Posts: 122
Score: 0
Joined: 1/12/2006
Status: offline

hehe.

I'm doing major printer mig at my new job. x32 to x64 clusters...had to dig my old mig script out ;)...figured I'd post and share.

Looks like printer deployment is getting easier though with R2...

(in reply to ebgreen)

Post #: 4

RE: Migrate Network Printers the easy way - PrintSwap - 6/28/2007 5:32:31 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

[sarcasm] Sure it is... [/sarcasm]

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to edavis6678)

Post #: 5

RE: Migrate Network Printers the easy way - PrintSwap - 6/28/2007 6:12:11 AM

edavis6678

Posts: 122
Score: 0
Joined: 1/12/2006
Status: offline

ok..slightly

, but related to migrating printers.

I'm keepign the old server up for about a week as the script runs through the flipping of users...however I want to watch the old server for printing - in case someoen is still printing to the old server.

I've written a script that monitors a windows server for SYSTEM log Event ID #10), however on this old server there are no event ID 10. (it seems someone must have turned it off). - i know this cause the new server I built HAS event ID 10's.

Anyone know how to turn that off/on? (I'd like to eventually turn it off the new server cause I dot'n want tthat spamming theh event log)

Thanks

-E

PS EVent ID 10 is written to the system event log when someone prints.

(in reply to ebgreen)

Post #: 6

RE: Migrate Network Printers the easy way - PrintSwap - 7/11/2007 7:23:18 PM

andreas

Posts: 15
Score: 0
Joined: 4/12/2007
Status: offline

quote:

ORIGINAL: edavis6678

ok..slightly , but related to migrating printers.

I'm keepign the old server up for about a week as the script runs through the flipping of users...however I want to watch the old server for printing - in case someoen is still printing to the old server.

I've written a script that monitors a windows server for SYSTEM log Event ID #10), however on this old server there are no event ID 10. (it seems someone must have turned it off). - i know this cause the new server I built HAS event ID 10's.

Anyone know how to turn that off/on? (I'd like to eventually turn it off the new server cause I dot'n want tthat spamming theh event log)

Thanks

-E

PS EVent ID 10 is written to the system event log when someone prints.

Check the Print server properties for the following flag (checkbox option)
"log spooler information events"
and
"Notify when remote documents are printed"

Cheers

(in reply to edavis6678)

Post #: 7

RE: Migrate Network Printers the easy way - PrintSwap - 7/12/2007 3:37:19 AM

edavis6678

Posts: 122
Score: 0
Joined: 1/12/2006
Status: offline

(I neglected to post that I found that check box) -- sometimes I get a bit anxious for a fix.

Thanks for the reply though!

-E

(in reply to andreas)

Post #: 8

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Migrate Network Printers the easy way - PrintSwap

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts