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



Code:
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!