BESCHREIBUNG des Drucker ports auslesen

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  
    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  
    Wscript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode  
    Wscript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig  
    Wscript.Echo "CreationClassName: " & objItem.CreationClassName  
    Wscript.Echo "DefaultPriority: " & objItem.DefaultPriority  
    Wscript.Echo "Description: " & objItem.Description  
    Wscript.Echo "DetectedErrorState: " & objItem.DetectedErrorState  
    Wscript.Echo "DeviceID: " & objItem.DeviceID  
    Wscript.Echo "DriverName: " & objItem.DriverName  
    Wscript.Echo "ErrorCleared: " & objItem.ErrorCleared  
    Wscript.Echo "ErrorDescription: " & objItem.ErrorDescription  
    Wscript.Echo "HorizontalResolution: " & objItem.HorizontalResolution  
    Wscript.Echo "InstallDate: " & objItem.InstallDate  
    Wscript.Echo "JobCountSinceLastReset: " & objItem.JobCountSinceLastReset  
    If isNull(objItem.LanguagesSupported) Then
        Wscript.Echo "LanguagesSupported: "  
    Else
        Wscript.Echo "LanguagesSupported: " & Join(objItem.LanguagesSupported, ",")  
    End If
    Wscript.Echo "LastErrorCode: " & objItem.LastErrorCode  
    Wscript.Echo "Location: " & objItem.Location  
    Wscript.Echo "Name: " & objItem.Name  
    If isNull(objItem.PaperSizesSupported) Then
        Wscript.Echo "PaperSizesSupported: "  
    Else
        Wscript.Echo "PaperSizesSupported: " & Join(objItem.PaperSizesSupported, ",")  
    End If
    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 "SeparatorFile: " & objItem.SeparatorFile  
    Wscript.Echo "ServerName: " & objItem.ServerName  
    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  
Next