|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||
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):
|
|
|
|||||
|
|||||
|
|||||
Copyright ©1996-2011 VBnet and Randy Birch. All Rights Reserved. |