VB.NET - Hardware auslesen

[Sawyer]

Hier mal eine kürzere variante , hab dazu mal schnell eine funktion geschrieben

Funktion:

Private Function Hardware() As String

Dim Devices As Object = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_VideoController")
Dim HardwareName As String

For Each AdaptList In Devices
HardwareName = AdaptList.Description
Next

Return HardwareName

End Function

Aufruf:

Sub Main()
     Console.WriteLine(Hardware())
  Console.Read()
End Sub