strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Printer",,48)
For Each objItem in colItems
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_Printer instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Attributes: " & objItem.Attributes
    Wscript.Echo "Availability: " & objItem.Availability
    If isNull(objItem.AvailableJobSheets) Then
        Wscript.Echo "AvailableJobSheets: "
    Else
        Wscript.Echo "AvailableJobSheets: " & Join(objItem.AvailableJobSheets, ",")
    End If
    Wscript.Echo "AveragePagesPerMinute: " & objItem.AveragePagesPerMinute
    If isNull(objItem.Capabilities) Then
        Wscript.Echo "Capabilities: "
    Else
        Wscript.Echo "Capabilities: " & Join(objItem.Capabilities, ",")
    End If
    If isNull(objItem.CapabilityDescriptions) Then
        Wscript.Echo "CapabilityDescriptions: "
    Else
        Wscript.Echo "CapabilityDescriptions: " & Join(objItem.CapabilityDescriptions, ",")
    End If
    Wscript.Echo "Caption: " & objItem.Caption
    If isNull(objItem.CharSetsSupported) Then
        Wscript.Echo "CharSetsSupported: "
    Else
        Wscript.Echo "CharSetsSupported: " & Join(objItem.CharSetsSupported, ",")
    End If
    Wscript.Echo "Comment: " & objItem.Comment
    Wscript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
    Wscript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
    Wscript.Echo "CreationClassName: " & objItem.CreationClassName
    If isNull(objItem.CurrentCapabilities) Then
        Wscript.Echo "CurrentCapabilities: "
    Else
        Wscript.Echo "CurrentCapabilities: " & Join(objItem.CurrentCapabilities, ",")
    End If
    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
    If isNull(objItem.DefaultCapabilities) Then
        Wscript.Echo "DefaultCapabilities: "
    Else
        Wscript.Echo "DefaultCapabilities: " & Join(objItem.DefaultCapabilities, ",")
    End If
    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
    If isNull(objItem.ErrorInformation) Then
        Wscript.Echo "ErrorInformation: "
    Else
        Wscript.Echo "ErrorInformation: " & Join(objItem.ErrorInformation, ",")
    End If
    Wscript.Echo "ExtendedDetectedErrorState: " & objItem.ExtendedDetectedErrorState
    Wscript.Echo "ExtendedPrinterStatus: " & objItem.ExtendedPrinterStatus
    Wscript.Echo "Hidden: " & objItem.Hidden
    Wscript.Echo "HorizontalResolution: " & objItem.HorizontalResolution
    Wscript.Echo "InstallDate: " & objItem.InstallDate
    Wscript.Echo "JobCountSinceLastReset: " & objItem.JobCountSinceLastReset
    Wscript.Echo "KeepPrintedJobs: " & objItem.KeepPrintedJobs
    If isNull(objItem.LanguagesSupported) Then
        Wscript.Echo "LanguagesSupported: "
    Else
        Wscript.Echo "LanguagesSupported: " & Join(objItem.LanguagesSupported, ",")
    End If
    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
    If isNull(objItem.MimeTypesSupported) Then
        Wscript.Echo "MimeTypesSupported: "
    Else
        Wscript.Echo "MimeTypesSupported: " & Join(objItem.MimeTypesSupported, ",")
    End If
    Wscript.Echo "Name: " & objItem.Name
    If isNull(objItem.NaturalLanguagesSupported) Then
        Wscript.Echo "NaturalLanguagesSupported: "
    Else
        Wscript.Echo "NaturalLanguagesSupported: " & Join(objItem.NaturalLanguagesSupported, ",")
    End If
    Wscript.Echo "Network: " & objItem.Network
    If isNull(objItem.PaperSizesSupported) Then
        Wscript.Echo "PaperSizesSupported: "
    Else
        Wscript.Echo "PaperSizesSupported: " & Join(objItem.PaperSizesSupported, ",")
    End If
    If isNull(objItem.PaperTypesAvailable) Then
        Wscript.Echo "PaperTypesAvailable: "
    Else
        Wscript.Echo "PaperTypesAvailable: " & Join(objItem.PaperTypesAvailable, ",")
    End If
    Wscript.Echo "Parameters: " & objItem.Parameters
    Wscript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
    Wscript.Echo "PortName: " & objItem.PortName
    If isNull(objItem.PowerManagementCapabilities) Then
        Wscript.Echo "PowerManagementCapabilities: "
    Else
        Wscript.Echo "PowerManagementCapabilities: " & Join(objItem.PowerManagementCapabilities, ",")
    End If
    Wscript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
    If isNull(objItem.PrinterPaperNames) Then
        Wscript.Echo "PrinterPaperNames: "
    Else
        Wscript.Echo "PrinterPaperNames: " & Join(objItem.PrinterPaperNames, ",")
    End If
    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: " & 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: " & objItem.TimeOfLastReset
    Wscript.Echo "UntilTime: " & objItem.UntilTime
    Wscript.Echo "VerticalResolution: " & objItem.VerticalResolution
    Wscript.Echo "WorkOffline: " & objItem.WorkOffline
Next