Como?? - VBWEB

Esse dica funcionará sem problemas no Windows 2000 e no XP. Para utlizar a WMI no Windows 98 vocês devem instalar o WMI Core. Vocês podem fazer o download em http://www.microsoft.com/downloads/details.aspx?FamilyID=98a4c5ba-337b-4e92-8c18-a63847760ea5&DisplayLang=en

On Error Resume Next

Dim dcSet As SWbemObjectSet
Dim objItem As SWbemObject

Set dcSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
                          InstancesOf("Win32_Printer")

For Each objItem In dcSet
    Debug.Print "Attributes: " & objItem.Attributes
    Debug.Print "Availability: " & objItem.Availability
    Debug.Print "AveragePagesPerMinute: " & objItem.AveragePagesPerMinute
    Debug.Print "Capabilities: " & objItem.Capabilities
    Debug.Print "CapabilityDescriptions: " & objItem.CapabilityDescriptions
    Debug.Print "Caption: " & objItem.Caption
    Debug.Print "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
    Debug.Print "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
    Debug.Print "CreationClassName: " & objItem.CreationClassName
    Debug.Print "DefaultPriority: " & objItem.DefaultPriority
    Debug.Print "Description: " & objItem.Description
    Debug.Print "DetectedErrorState: " & objItem.DetectedErrorState
    Debug.Print "DeviceID: " & objItem.DeviceID
    Debug.Print "DriverName: " & objItem.DriverName
    Debug.Print "ErrorCleared: " & objItem.ErrorCleared
    Debug.Print "ErrorDescription: " & objItem.ErrorDescription
    Debug.Print "HorizontalResolution: " & objItem.HorizontalResolution
    Debug.Print "InstallDate: " & objItem.InstallDate
    Debug.Print "JobCountSinceMaxReset: " & objItem.JobCountSinceMaxReset
    Debug.Print "LanguagesSupported: " & objItem.LanguagesSupported
    Debug.Print "MaxErrorCode: " & objItem.MaxErrorCode
    Debug.Print "Location: " & objItem.Location
    Debug.Print "Name: " & objItem.Name
    Debug.Print "PaperSizesSupported: " & objItem.PaperSizesSupported
    Debug.Print "PNPDeviceID: " & objItem.PNPDeviceID
    Debug.Print "PortName: " & objItem.PortName
    Debug.Print "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
    Debug.Print "PowerManagementSupported: " & objItem.PowerManagementSupported
    Debug.Print "PrinterPaperNames: " & objItem.PrinterPaperNames
    Debug.Print "PrinterState: " & objItem.PrinterState
    Debug.Print "PrinterStatus: " & objItem.PrinterStatus
    Debug.Print "PrintJobDataType: " & objItem.PrintJobDataType
    Debug.Print "PrintProcessor: " & objItem.PrintProcessor
    Debug.Print "SeparatorFile: " & objItem.SeparatorFile
    Debug.Print "ServerName: " & objItem.ServerName
    Debug.Print "ShareName: " & objItem.ShareName
    Debug.Print "SpoolEnabled: " & objItem.SpoolEnabled
    Debug.Print "StartTime: " & objItem.StartTime
    Debug.Print "Status: " & objItem.Status
    Debug.Print "StatusInfo: " & objItem.StatusInfo
    Debug.Print "SystemCreationClassName: " & objItem.SystemCreationClassName
    Debug.Print "SystemName: " & objItem.SystemName
    Debug.Print "TimeOfMaxReset: " & objItem.TimeOfMaxReset
    Debug.Print "UntilTime: " & objItem.UntilTime
    Debug.Print "VerticalResolution: " & objItem.VerticalResolution

Next

Observação: Nem todos os objetos retornam resultados