Installierte Grafikadapter/Grafikkarten ermitteln Ein Beispiel, wie sich schnell alle installierten Grafikadapter über das WMI-Objekt ermitteln lassen.
Autor:   Gerhard Kuklau	Bewertung:     [ Jetzt bewerten ]	Views:  18.223
ohne Homepage	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 14 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Es tauchen immer wieder Fragen zur Erkennung von Hardware- und oder Softwarekomponenten auf.

Was uns zu allererst einfällt ist das mächtige Win32 API. Wenn die nur nicht so umständlich zu bedienen und vor allem so gut "versteckt" wäre.

Doch es gibt seit Windows 2000 auch noch andere Möglichkeiten.

WMI - Windows Management Instrumentation

Ein mächtiges Werkzeug, dass seit Windows 2000 mitgeliefert, aber unter Win NT4.0 nachinstalliert werden kann.
(Download:  Windows Management Instrumentation (WMI) Tools)

Hier ein einfaches Beispiel, um die installierten Grafikadapter in einer Listbox aufzulisten:

Sie benötigen dazu:

• 1 x Listbox (List1)
• 1 x Command-Button (Command1)

Private Sub Command1_Click()
  Dim oAdapters As Object
  Dim oCard As Object
  Dim SQL As String
 
  List1.Clear
 
  ' Abfrage erstellen
  SQL = "SELECT * FROM Win32_VideoController"
  Set oAdapters = GetObject("winmgmts:").ExecQuery(SQL)
 
  ' Auflisten aller Grafikadapter
  For Each oCard In oAdapters
    List1.AddItem oCard.Description
  Next
End Sub