Den Win32_VideoController austauschen
Bei
Dim Devices As Object = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_VideoController")
Den Win32_VideoController austauschen
Bei
Dim Devices As Object = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_VideoController")
Okay, das wusste ich
Und wenn ich jetzt zum Beispiel das Prozessor und den Vidoe COntroller haben will?
Also zwei (oder mehrere ausgaben)
Nicht nur Grafikkarte sondern Grafikkart und Prozessor (win32_prozessor)
Das weiß ich nicht genau
Einfach die Funktion anpassen , und die gewünschte Hardware Info als Parameter übergeben und sich den wert zurück liefern lassen.
Funktion:
Code:Private Function Hardware(ByVal Hardw As String) As String Dim Devices As Object = GetObject("winmgmts:").ExecQuery(Hardw) Dim HardwareName As String For Each AdaptList In Devices HardwareName = AdaptList.Description Next Return HardwareName End Function
Aufruf:
MfGCode:MsgBox(Hardware("SELECT * FROM Win32_VideoController")) MsgBox(Hardware("SELECT * FROM Win32_Processor"))
Geändert von Sawyer (29.08.2009 um 22:31 Uhr)
Oh Perfekt Jetzt klappt alles einwandfrei
Vielen Dank für deine Hilfe!