Migrate Network Printers the easy way - PrintSwap

RE: Migrate Network Printers the easy way - PrintSwap (edavis6678)

Thu, 12 Jul 2007 09:37:19 GMT

(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

RE: Migrate Network Printers the easy way - PrintSwap (andreas)

Thu, 12 Jul 2007 01:23:18 GMT

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

RE: Migrate Network Printers the easy way - PrintSwap (edavis6678)

Thu, 28 Jun 2007 12:12:11 GMT

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.

RE: Migrate Network Printers the easy way - PrintSwap (ebgreen)

Thu, 28 Jun 2007 11:32:31 GMT

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

RE: Migrate Network Printers the easy way - PrintSwap (edavis6678)

Thu, 28 Jun 2007 10:23:34 GMT

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...

RE: Migrate Network Printers the easy way - PrintSwap (ebgreen)

Thu, 28 Jun 2007 08:59:14 GMT

I have one too.

RE: Migrate Network Printers the easy way - PrintSwap (dm_4ever)

Wed, 27 Jun 2007 18:28:06 GMT

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

Migrate Network Printers the easy way - PrintSwap (edavis6678)

Wed, 27 Jun 2007 11:42:31 GMT

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