Private Function Hardware(device as string) As String
 
        Dim Devices As Object = GetObject("winmgmts:").ExecQuery("SELECT *" & _
          "FROM" & _
          device)
 
        Dim HardwareName As String
 
        For Each AdaptList In Devices
            HardwareName = AdaptList.Description
        Next
 
        Return HardwareName
 
    End Function

label1.Text = Hardware("Win32_VideoController") & Environment.Newline & _
  Hardware("Win32_prozessor")

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?