Visual Basic WMI System Services
Win32_DisplayConfiguration: WMI Display Configuration Info
     
Posted:   Monday March 25, 2002
Updated:   Monday November 28, 2011
     
Applies to:   VB5, VB6
Developed with:   VB6, Windows XP
OS restrictions:   Windows NT, 2000, XP. See Prerequisites below.
Author:   VBnet - Randy Birch
     

Related:  

Win32_DesktopMonitor: WMI Desktop Monitor Info
Win32_DisplayConfiguration: WMI Display Configuration Info
Win32_VideoController: WMI Video Controller Info
     
 Prerequisites
Windows Script Host is built into Microsoft Windows 98, 2000, ME and XP. If you are running Windows 95 or NT4, you can download Windows Script Host from the Microsoft Windows Script Technologies Web site at http://msdn.microsoft.com/scripting/. Some information is not returned on non-NT-based systems.

A reference set in Projects / References to the Microsoft WMI Scripting Library.


The Win32_DisplayConfiguration WMI class represents configuration information for the display device on a Windows system. Note that while the MSDN states that this class is obsolete, and in place of this class you should use the properties in the Win32_VideoController and Win32_DesktopMonitor classes, it nonetheless works. However, I've noticed that on a dual-display system it returns only one controller. The NVIDIA controller returned is my secondary controller, but occupies the AGP slot on the machine. The PCI Radon controller never gets listed (and I haven't tried adjusting my preferences to see if this makes a difference).

This demo and illustration only show some of the available information from the class. For a complete listing see the table in the Comments section below. Note that some systems may not return information in all class properties.

 BAS Module Code
None.

 Form Code
To a form add a command button (Command1) and a listview (Listview1). Set a reference in Projects / References to the Microsoft WMI Scripting Library, and add the following to the form:

Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright 1996-2011 VBnet/Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by the author.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce 
'               or publish this code on any web site,
'               online service, or distribute as source 
'               on any media without express permission.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'listview column auto-resizing
Private Const LVM_FIRST As Long = &H1000
Private Const LVM_SETCOLUMNWIDTH As Long = (LVM_FIRST + 30)
Private Const LVSCW_AUTOSIZE As Long = -1
Private Const LVSCW_AUTOSIZE_USEHEADER As Long = -2

Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   lParam As Any) As Long


Private Sub Form_Load()

   With ListView1
      .ListItems.Clear
      .ColumnHeaders.Clear
      .ColumnHeaders.Add , , "Caption"
      .ColumnHeaders.Add , , "Driver ver"
      .ColumnHeaders.Add , , "LogPixels"
      .ColumnHeaders.Add , , "PelsH"
      .ColumnHeaders.Add , , "PelsV"
      .ColumnHeaders.Add , , "Spec ver"
      .View = lvwReport
      .Sorted = False
      
   End With
   
   Command1.Caption = "Display Configuration"
   
End Sub


Private Sub Command1_Click()

   ListView1.ListItems.Clear
   Call wmiDisplayConfiguration
   Call lvAutosizeControl(ListView1)
   
End Sub


Private Sub lvAutosizeControl(lv As ListView)

   Dim col2adjust As Long

  'Size each column based on the maximum of
  'wither the ColumnHeader text width, or,
  'if the items below it are wider, the
  'widest list item in the column
   lv.Visible = False
   For col2adjust = 0 To lv.ColumnHeaders.Count - 1
   
      Call SendMessage(lv.hwnd, _
                       LVM_SETCOLUMNWIDTH, _
                       col2adjust, _
                       ByVal LVSCW_AUTOSIZE_USEHEADER)

   Next
   lv.Visible = True
   
End Sub


Private Sub wmiDisplayConfiguration()

   Dim dcSet As SWbemObjectSet
   Dim dc As SWbemObject
   Dim itmx As ListItem
   Dim msg As String
   
   Set dcSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
                          InstancesOf("Win32_DisplayConfiguration")
   
   
   On Local Error Resume Next
   
   For Each dc In dcSet
   
      Set itmx = ListView1.ListItems.Add(, , dc.Caption)
      
      itmx.SubItems(1) = dc.DriverVersion
      itmx.SubItems(2) = dc.LogPixels
      itmx.SubItems(3) = dc.PelsHeight
      itmx.SubItems(4) = dc.PelsWidth
      itmx.SubItems(5) = dc.SpecificationVersion
   
   Next
   
End Sub
 Comments
All information returned in the Win32_DisplayConfiguration class (note that some systems may not return information in all class properties):
   
uint32 BitsPerPel
string Caption
string Description
string DeviceName
uint32 DisplayFlags
uint32 DisplayFrequency
uint32 DitherType
string DriverVersion
uint32 ICMIntent
uint32 ICMMethod
uint32 LogPixels
uint32 PelsHeight
uint32 PelsWidth
string SettingID
uint32 SpecificationVersion

 
 

PayPal Link
Make payments with PayPal - it's fast, free and secure!

 
 
 
 

Copyright 1996-2011 VBnet and Randy Birch. All Rights Reserved.
Terms of Use  |  Your Privacy

 

Hit Counter