Get list of printers [Server 2000]

[somabc]

I'm planning on migrating a print server from Windows Server 2000 to 2008, but I need to get the list of printers/ports/model/IP etc.

 

I thought this script would do it but it does not return any printer info.

 

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colPorts =  objWMIService.ExecQuery _
   ("Select * from Win32_TCPIPPrinterPort")

For Each objPort in colPorts
   Wscript.Echo "Description: " & objPort.Description
   Wscript.Echo "Host Address: " & objPort.HostAddress
   Wscript.Echo "Name: " & objPort.Name
   Wscript.Echo "Port Number: " & objPort.PortNumber
   Wscript.Echo "Protocol: " & objPort.Protocol
   Wscript.Echo "SNMP Community: " & objPort.SNMPCommunity
   Wscript.Echo "SNMP Dev Index: " & objPort.SnMPDevIndex
   Wscript.Echo "SNMP Enabled: " & objPort.SNMPEnabled
Next

[kmount]

Microsoft provide a tool for this purpose.

 

Download here.

[somabc]

I looked at Print Migrator, but it seems it has been replaced for Server 2008. It may be possible to go from Server 2000 (PrintMig) -> Server 2003, then Server 2003 (Printer Migration Wizard) -> Server 2008??

 

Migrate print servers