Você pode usar o seguinte script. Salve-o em "printerlist.vbs" e chame-o usando cscript.exe printerlist.vbs
(para obter a saída no console da linha de comando).
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer")
Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo("This Computer's Name = " & WshNetwork.ComputerName)
For Each objPrinter in colInstalledPrinters
If (objPrinter.Attributes AND 4) = 4 then
WScript.Echo("*****> Default printer -- Start")
Else
WScript.Echo("---")
End If
WScript.Echo("Name: " & objPrinter.Name)
WScript.Echo("Share name: " & objPrinter.ShareName)
WScript.Echo("Driver name: " & objPrinter.DriverName)
WScript.Echo("Caption: " & objPrinter.Caption)
WScript.Echo("Port: " & objPrinter.PortName)
WScript.Echo("Location: " & objPrinter.Location)
WScript.Echo("Description: " & objPrinter.Description)
WScript.Echo("Server: " & objPrinter.ServerName)
WScript.Echo("System name: " & objPrinter.SystemName)
WScript.Echo("Print processor: " & objPrinter.PrintProcessor)
If (objPrinter.Attributes AND 4) = 4 then
WScript.Echo("*****> Default printer -- End")
Else
WScript.Echo("---")
End If
Next