VBScript, WMI, Win7 & Multiple Monitor Resolution using Win32_DesktopMonitor

Question

A large number of computers at our company are Dells with the ATI Radeon HD graphic cards.  Many users have multiple monitors, often a mix of digital and analog connections, where the display is extended over the two.  A simple "SELECT * FROM Win32_DesktopMonitor" seems to only return information about one of the monitors, preferring the digital connection.  The return can often not be the "main display".  Is there a flaw with the class, or a different query/class that would return information about all displays?  Thanks

Answer 1

I think the problem could be the use of "On Error Resume Next". It could be masking errors and making troubleshooting nearly impossible. I get two errors:
When there is no InstallDate, the function WMIDateStringToDate function raises an error because the value is Null.
When there are no PowerManagmentCapabilities, the value is not an array so the Join function raises an error.
Also, the first statement in function WMIDateStringToDate is an error. The version I used, that accounts for these situations, follows:
Option Explicit
Dim strComputer, objWMIService, colItems, objItem
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
strComputer = "MyComputer"
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DesktopMonitor", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "Availability: " & objItem.Availability
WScript.Echo "Bandwidth: " & objItem.Bandwidth
WScript.Echo "Caption: " & objItem.Caption
WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
WScript.Echo "CreationClassName: " & objItem.CreationClassName
WScript.Echo "Description: " & objItem.Description
WScript.Echo "DeviceID: " & objItem.DeviceID
WScript.Echo "DisplayType: " & objItem.DisplayType
WScript.Echo "ErrorCleared: " & objItem.ErrorCleared
WScript.Echo "ErrorDescription: " & objItem.ErrorDescription
If IsDate(objItem.InstallDate) Then
WScript.Echo "InstallDate: " & WMIDateStringToDate(objItem.InstallDate)
Else
WScript.Echo "InstallDate: " & objItem.InstallDate
End If
WScript.Echo "IsLocked: " & objItem.IsLocked
WScript.Echo "LastErrorCode: " & objItem.LastErrorCode
WScript.Echo "MonitorManufacturer: " & objItem.MonitorManufacturer
WScript.Echo "MonitorType: " & objItem.MonitorType
WScript.Echo "Name: " & objItem.Name
WScript.Echo "PixelsPerXLogicalInch: " & objItem.PixelsPerXLogicalInch
WScript.Echo "PixelsPerYLogicalInch: " & objItem.PixelsPerYLogicalInch
WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
If IsArray(objItem.PowerManagementCapabilities) Then
strPowerManagementCapabilities = Join(objItem.PowerManagementCapabilities, ",")
WScript.Echo "PowerManagementCapabilities: " & strPowerManagementCapabilities
Else
WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported
End If
WScript.Echo "ScreenHeight: " & objItem.ScreenHeight
WScript.Echo "ScreenWidth: " & objItem.ScreenWidth
WScript.Echo "Status: " & objItem.Status
WScript.Echo "StatusInfo: " & objItem.StatusInfo
WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
WScript.Echo "SystemName: " & objItem.SystemName
WScript.Echo
Next
Function WMIDateStringToDate(dtmDate)
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) _
& ":" & Mid(dtmDate,13, 2))
End Function
Richard Mueller
MVP ADSI