Copied below are lines from a generic script that should give you good
indicators on available properties providing info on printers. All
properties should be available on WinXP or Server2003, most properties
available on Win2k, WinME or systems where WMI has been downloaded.

For Each objItem In colItems
WScript.Echo "Attributes: " & objItem.Attributes
WScript.Echo "Availability: " & objItem.Availability
strAvailableJobSheets = Join(objItem.AvailableJobSheets, ",")
WScript.Echo "AvailableJobSheets: " & strAvailableJobSheets
WScript.Echo "AveragePagesPerMinute: " & objItem.AveragePagesPerMinute
strCapabilities = Join(objItem.Capabilities, ",")
WScript.Echo "Capabilities: " & strCapabilities
strCapabilityDescriptions = Join(objItem.CapabilityDescriptions, ",")
WScript.Echo "CapabilityDescriptions: " & strCapabilityDescriptions
WScript.Echo "Caption: " & objItem.Caption
strCharSetsSupported = Join(objItem.CharSetsSupported, ",")
WScript.Echo "CharSetsSupported: " & strCharSetsSupported
WScript.Echo "Comment: " & objItem.Comment
WScript.Echo "ConfigManagerErrorCode: " &
objItem.ConfigManagerErrorCode
WScript.Echo "ConfigManagerUserConfig: " &
objItem.ConfigManagerUserConfig
WScript.Echo "CreationClassName: " & objItem.CreationClassName
strCurrentCapabilities = Join(objItem.CurrentCapabilities, ",")
WScript.Echo "CurrentCapabilities: " & strCurrentCapabilities
WScript.Echo "CurrentCharSet: " & objItem.CurrentCharSet
WScript.Echo "CurrentLanguage: " & objItem.CurrentLanguage
WScript.Echo "CurrentMimeType: " & objItem.CurrentMimeType
WScript.Echo "CurrentNaturalLanguage: " &
objItem.CurrentNaturalLanguage
WScript.Echo "CurrentPaperType: " & objItem.CurrentPaperType
WScript.Echo "Default: " & objItem.Default
strDefaultCapabilities = Join(objItem.DefaultCapabilities, ",")
WScript.Echo "DefaultCapabilities: " & strDefaultCapabilities
WScript.Echo "DefaultCopies: " & objItem.DefaultCopies
WScript.Echo "DefaultLanguage: " & objItem.DefaultLanguage
WScript.Echo "DefaultMimeType: " & objItem.DefaultMimeType
WScript.Echo "DefaultNumberUp: " & objItem.DefaultNumberUp
WScript.Echo "DefaultPaperType: " & objItem.DefaultPaperType
WScript.Echo "DefaultPriority: " & objItem.DefaultPriority
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DetectedErrorState: " & objItem.DetectedErrorState
WScript.Echo "DeviceID: " & objItem.DeviceID
WScript.Echo "Direct: " & objItem.Direct
WScript.Echo "DoCompleteFirst: " & objItem.DoCompleteFirst
WScript.Echo "DriverName: " & objItem.DriverName
WScript.Echo "EnableBIDI: " & objItem.EnableBIDI
WScript.Echo "EnableDevQueryPrint: " & objItem.EnableDevQueryPrint
WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
strErrorInformation = Join(objItem.ErrorInformation, ",")
WScript.Echo "ErrorInformation: " & strErrorInformation
WScript.Echo "ExtendedDetectedErrorState: " &
objItem.ExtendedDetectedErrorState
WScript.Echo "ExtendedPrinterStatus: " & objItem.ExtendedPrinterStatus
WScript.Echo "Hidden: " & objItem.Hidden
WScript.Echo "HorizontalResolution: " & objItem.HorizontalResolution
WScript.Echo "InstallDate: " &
WMIDateStringToDate(objItem.InstallDate)
WScript.Echo "JobCountSinceLastReset: " &
objItem.JobCountSinceLastReset
WScript.Echo "KeepPrintedJobs: " & objItem.KeepPrintedJobs
strLanguagesSupported = Join(objItem.LanguagesSupported, ",")
WScript.Echo "LanguagesSupported: " & strLanguagesSupported
WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
WScript.Echo "Local: " & objItem.Local
WScript.Echo "Location: " & objItem.Location
WScript.Echo "MarkingTechnology: " & objItem.MarkingTechnology
WScript.Echo "MaxCopies: " & objItem.MaxCopies
WScript.Echo "MaxNumberUp: " & objItem.MaxNumberUp
WScript.Echo "MaxSizeSupported: " & objItem.MaxSizeSupported
strMimeTypesSupported = Join(objItem.MimeTypesSupported, ",")
WScript.Echo "MimeTypesSupported: " & strMimeTypesSupported
WScript.Echo "Name: " & objItem.Name
strNaturalLanguagesSupported = Join(objItem.NaturalLanguagesSupported,
",")
WScript.Echo "NaturalLanguagesSupported: " &
strNaturalLanguagesSupported
WScript.Echo "Network: " & objItem.Network
strPaperSizesSupported = Join(objItem.PaperSizesSupported, ",")
WScript.Echo "PaperSizesSupported: " & strPaperSizesSupported
strPaperTypesAvailable = Join(objItem.PaperTypesAvailable, ",")
WScript.Echo "PaperTypesAvailable: " & strPaperTypesAvailable
WScript.Echo "Parameters: " & objItem.Parameters
WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
WScript.Echo "PortName: " & objItem.PortName
strPowerManagementCapabilities =
Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " &
strPowerManagementCapabilities
WScript.Echo "PowerManagementSupported: " &
objItem.PowerManagementSupported
strPrinterPaperNames = Join(objItem.PrinterPaperNames, ",")
WScript.Echo "PrinterPaperNames: " & strPrinterPaperNames
WScript.Echo "PrinterState: " & objItem.PrinterState
WScript.Echo "PrinterStatus: " & objItem.PrinterStatus
WScript.Echo "PrintJobDataType: " & objItem.PrintJobDataType
WScript.Echo "PrintProcessor: " & objItem.PrintProcessor
WScript.Echo "Priority: " & objItem.Priority
WScript.Echo "Published: " & objItem.Published
WScript.Echo "Queued: " & objItem.Queued
WScript.Echo "RawOnly: " & objItem.RawOnly
WScript.Echo "SeparatorFile: " & objItem.SeparatorFile
WScript.Echo "ServerName: " & objItem.ServerName
WScript.Echo "Shared: " & objItem.Shared
WScript.Echo "ShareName: " & objItem.ShareName
WScript.Echo "SpoolEnabled: " & objItem.SpoolEnabled
WScript.Echo "StartTime: " & WMIDateStringToDate(objItem.StartTime)
WScript.Echo "Status: " & objItem.Status
WScript.Echo "StatusInfo: " & objItem.StatusInfo
WScript.Echo "SystemCreationClassName: " &
objItem.SystemCreationClassName
WScript.Echo "SystemName: " & objItem.SystemName
WScript.Echo "TimeOfLastReset: " &
WMIDateStringToDate(objItem.TimeOfLastReset)
WScript.Echo "UntilTime: " & WMIDateStringToDate(objItem.UntilTime)
WScript.Echo "VerticalResolution: " & objItem.VerticalResolution
WScript.Echo "WorkOffline: " & objItem.WorkOffline
WScript.Echo
Next
Next

Steve

"RobC" wrote in message
...
Steve,

This is what I was looking for but hard to find info on.

Are there anyother properties other than Name and Default? i.e., Port?

The link on the next response was also good but very complex.

Thanks... Rob



"Steve Yandl" wrote in
:

Rob,

The Word MVPs have a discussion on using the Windows API he
http://word.mvps.org/FAQs/MacrosVBA/...lePrinters.htm

If you knew the users were all using WindowsXP you could use something
like this:

Sub PrinterList()
Dim R As Integer

R = 2
strComputer = "."

Cells(1, 1).Value = "Printer Name"
Cells(1, 2).Value = "Default"

Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer")

For Each objPrinter In colPrinters
Cells(R, 1).Value = objPrinter.Name
Cells(R, 2).Value = objPrinter.Default
R = R + 1
Next

End Sub


Steve Yandl