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:
Code:
MsgBox(Hardware("SELECT * FROM Win32_VideoController"))
MsgBox(Hardware("SELECT * FROM Win32_Processor"))
MfG