Guteb Abend nochmal,
also ich habs jetzt geschafft...
Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox(Hardware)
End Sub
Funktioniert einwandfrei...
Jetzt nur meien Frage kann man das irgendwie so machen das ich mehrere Komponente da einbinden kann...
Jetzt ist ja nur die Grafikkarte da... Wie kann ich zum Beispiel das Motherboard noch hinzufügen ohne den ganzenn sourcecode nochmal zu schreiben?