A. I created the following script, which you can download here , that makes a WMI call and lists details about the printers known on the system:

Option Explicit
Dim objWMIService, objPrinter, colItems, strComputer

strComputer ="."

Set objWMIService = GetObject("winmgmts:\\" & strComputer &
Set colItems = objWMIService.ExecQuery ("SELECT * FROM Win32_Printer")

' On Error Resume Next
For Each objPrinter In colItems
   Wscript.Echo "DeviceID: " & objPrinter.DeviceID
   Wscript.Echo "Caption: " & objPrinter.Caption
   Wscript.Echo "ServerName: " & objPrinter.ServerName
   Wscript.Echo "ShareName: " & objPrinter.ShareName
   Wscript.Echo "DriverName: " & objPrinter.DriverName
   Wscript.Echo "Default: " & objPrinter.Default

Here's an example of the script's output.
DeviceID: Tektronix Phaser 850DP
Caption: Tektronix Phaser 850DP
ShareName: ColorPrinter
DriverName: Tektronix Phaser 850DP
Default: True
DeviceID: Microsoft Office Document Image Writer
Caption: Microsoft Office Document Image Writer
ShareName: Printer2
DriverName: Microsoft Office Document Image Writer Driver
Default: False
DeviceID: Adobe PDF
Caption: Adobe PDF
ShareName: Printer3
DriverName: Adobe PDF Converter
Default: False
DeviceID: \\savdaldc01.savilltech.com\CWIS
Caption: \\savdaldc01.savilltech.com\CWIS
ServerName: \\savdaldc01.savilltech.com
ShareName: CWIS
DriverName: Xerox DocuPrint N2125 PS
Default: False