VB.NET - Hardware auslesen

[MolLy]

Guten Abend,

ich habe vor einige meiner Hardwarekomponetnen über Visual Basic auszulesen.
Mit My.Computer.Info.OsFullName zum Beispiel kann man das Betriebssystem auslesen.
Genau sowas suche ich z.B nur für die Grafikkarte , den Prozessor, das Motherboard u.s.w

Ich bin mir nicht sicher wie man das realisieren kann.

Danke schonmal für eure Hilfe!

MoLow

[Sawyer]

mittels WMI lassen sich diverse verbaute Hardware Komponenten ermitteln.

z.B:
http://dotnet-snippets.de/dns/wmi-ha...er-SID312.aspx

Diverse andere Beispiele zu diesem Thema findet man auf einschlägigen Seiten , einfach Google bemühen

MfG

[MolLy]

Vielen Dank für die schnelle Antwort.
Diese seite habe ich auch schon gefunden... Aber irgendwie komm ich nicht ganz zurecht damit.

Imports System
Imports System.Management

Public Class Query_SelectQuery

    Public Overloads Shared Function _
        Main(ByVal args() As String) As Integer

        Dim selectQuery As SelectQuery
        selectQuery = New SelectQuery("Win32_LogicalDisk")
        Dim searcher As ManagementObjectSearcher
        searcher = New ManagementObjectSearcher(selectQuery)

        Dim disk As ManagementObject
        For Each disk In searcher.Get()
            Console.WriteLine(disk.ToString())
        Next
        Console.ReadLine()
        Return 0

    End Function
    Public Enum Win32 As Integer
                   _Keyboard
            _PointingDevice

    End Enum

End Class

Wenn ich das zum Beispiel jetzt angebe sollten die genannten Punkte ausgegeben werden... Wie kann ich das machen?
Ich verstehe es leider nicht ganz


Danke


MoLow!

[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

[MolLy]

Guteb Abend nochmal,

also ich habs jetzt geschafft...

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?

[IRET]

Den Win32_VideoController austauschen
Bei
Dim Devices As Object = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_VideoController")

[MolLy]

Okay, das wusste ich

Und wenn ich jetzt zum Beispiel das Prozessor und den Vidoe COntroller haben will?

Also zwei (oder mehrere ausgaben)

Nicht nur Grafikkarte sondern Grafikkart und Prozessor (win32_prozessor)

Das weiß ich nicht genau

[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

[MolLy]

Oh Perfekt Jetzt klappt alles einwandfrei


Vielen Dank für deine Hilfe!