VB.NET - Hardware auslesen

[Sawyer]

Einfach die Funktion anpassen , und die gewünschte Hardware Info als Parameter übergeben und sich den wert zurück liefern lassen.

Funktion:

    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:

MsgBox(Hardware("SELECT * FROM Win32_VideoController"))
MsgBox(Hardware("SELECT * FROM Win32_Processor"))

MfG