Private Sub drives()
        Dim query As New ObjectQuery("SELECT Caption, FreeSpace FROM" & _
          "Win32_LogicalDisk")
        Dim searcher As New ManagementObjectSearcher(query)
        Dim obj As ManagementObject
        For Each obj In searcher.Get
            Dim s As Object = obj("FreeSpace")
            If Not s Is Nothing Then
                ListBox1.Items.Add(obj("Caption") & " " & s.ToString())
            End If
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist