Print Server setup ? 2

[pctekk]

Is there an easy way to migrate printers from a Win 2k Adv. Srv to Win 2003 ??


We tried just adding the printers, but they all are missing a tab or 2 that include configuring the HP printer
trays.

thanx

 

[SunnyByfleet]

I hope this is way too late for your needs, but if anybody else has the problem they should turn on the features first.

For instance, you will not get the option to duplex until you tell the server you have a duplexing unit. As you add features further options will appear.

 

[pctekk]

where are the "Features" turned on ??
you mean the printer ones, in the printer itself ??

 

[SunnyByfleet]

Sorry for the late response. I keep forgetting to add e-mail notification.

Right, I'll describe it for the HP 4500n but it should be similar on other machines.

1. Open up the Printers and Faxes Applet
2. Right click on the printer
3. Select Properties
4. Click on the Device Settings tab
5. Notice the section for "Installable Options"
6. Select which items are installed.

You will then be able to control those items in the property pages!

 

[NoWittyName]

Have you tried the printer migration tool from M$? I did from Win2k to 2003 and worked fine, then wrote program in vb to change users printers over to new server as they logged in. Been working for a couple of weeks now with no problems

Master of Disaster.....Recovery

 

[NoWittyName]

With reference to my last post,

to clarify I used the printer migration tool to restore printers to a new 2000 server then upgraded to 2003.

sorry for the confusion

Master of Disaster.....Recovery

 

[pctekk]

actually we had a new server w/ 2003(try to avoid the upgrade route) and it didnt work as advertised.
what type of vb did you write ?

 

[NoWittyName]

Heres my code

Private Sub Form_Load()
On Error GoTo Err_Update
Dim c, i, removecount As Integer
Dim toremove(20) As String

For i = 0 To Printers.Count - 1
If InStr(1, UCase(Printers(i).DeviceName), "oldPrintServer&quot Then
toremove(removecount) = Printers(i).DeviceName
removecount = removecount + 1
Dim net
Set net = CreateObject("WScript.Network&quot
net.AddWindowsPrinterConnection replacePrinterName(Printers(i).DeviceName)
If UCase(Printers(i).DeviceName) = UCase(Printer.DeviceName) Then
net.SetDefaultPrinter replacePrinterName(Printers(i).DeviceName)
End If
End If
Next i

c = 0
While c < removecount
net.RemovePrinterConnection toremove(c)
c = c + 1
Wend
End
Err_Update:
Resume Next
End Sub

Private Function replacePrinterName(str As String)
replacePrinterName = &quot;\\NewPrintServer&quot; & Mid(str, 13)
End Function


Master of Disaster.....Recovery

 

[pctekk]

Awesome !!!

Thanks