Rubrik: System/Windows · Sonstiges | VB-Versionen: VB4, VB5, VB6 | 21.10.02 |
Installierte Grafikadapter/Grafikkarten ermitteln Ein Beispiel, wie sich schnell alle installierten Grafikadapter über das WMI-Objekt ermitteln lassen. | ||
Autor: Gerhard Kuklau | Bewertung: | Views: 17.540 |
ohne Homepage | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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