Try
            ' alle Laufwerke ermitteln
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_DiskDrive")
 
            ' alle Laufwerke durchlaufen
            For Each queryObj As ManagementObject In searcher.Get()
 
                ' alle Partitionen des Laufwerkes ermitteln
                Dim searcher2 As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "ASSOCIATORS OF {Win32_DiskDrive.DeviceID='" + queryObj( _
                "DeviceID") + "'} WHERE AssocClass =" & _
                "Win32_DiskDriveToDiskPartition")
 
                ' alle Partitionen durchlaufen
                For Each queryObj2 As ManagementObject In searcher2.Get()
 
                    ' Laufwerksbuchstaben zur aktuellen Partition ermitteln
                    Dim searcher3 As New ManagementObjectSearcher( _
                    "root\CIMV2", _
                    "ASSOCIATORS OF {Win32_DiskPartition.DeviceID ='" + _
                    queryObj2("DeviceID").ToString().Trim() + "'} WHERE" & _
                    "AssocClass = Win32_LogicalDiskToPartition")
 
 
                    ' alle Angaben ausgeben
                    For Each queryObj3 As ManagementObject In searcher3.Get()
 
                        ListBox1.Items.Add( _
                          "-----------------------------------")
                        ListBox1.Items.Add("Disk drive = : " & queryObj3( _
                        "Caption"))
                        ListBox1.Items.Add("Partition = : " & queryObj2( _
                        "DeviceID"))
                        ListBox1.Items.Add("Laufwerksbuchstabe  = : " & _
                        queryObj3("DeviceID"))
                        ListBox1.Items.Add( _
                        "-----------------------------------")
                    Next
 
 
 
                Next
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & _
              err.Message)
        End Try