Public Class WMI
 
    Private Shared _LogicalDisk(0) As LogicalDisk
    Public Shared Function GetListOfLogicalDrives(strHost As String) As _
      LogicalDisk()
        If strHost = Nothing Then
            strHost = "."
        End If
        Try
            Dim oWMI As Object = GetObject("winmgmts:\\" & strHost & _
              "\root\CIMV2")
            Dim sSQL As String = "SELECT * FROM Win32_LogicalDisk"
            Dim AllDrives As Object = oWMI.ExecQuery(sSQL)
            Dim i As Integer = 0
 
            If AllDrives.count > 0 Then
                ReDim _LogicalDisk(AllDrives.Count - 1)
                For Each aktDrive In AllDrives
                    _LogicalDisk(i) = New LogicalDisk(CStr( _
                      aktDrive.Caption.ToString), _
                                                    CStr( _
                                                    aktDrive.CreationClassName._
                                                    ToString), _
                                                    CStr( _
                                                    aktDrive.Description.ToStri_
                                                    ng), _
                                                    CStr( _
                                                    aktDrive.DeviceID.ToString))
                    i = i + 1
                    MsgBox(aktDrive.Description.ToString)        'Hier stimmt 
                    ' die Description noch  (Lokale Festpalatte) bei index (0)
                Next aktDrive
                MsgBox(_LogicalDisk(0).Description)             'Hier stimmt 
                ' die description schon nicht mehr (Netzlaufwerk)
                Return _LogicalDisk
            Else
                Return Nothing
            End If
        Catch
            MsgBox(ErrorToString)
            Return Nothing
        End Try
    End Function
 
 
End Class   'Win32_LogicalDisk
 
 
Public Class LogicalDisk
 
    Friend Shared _Caption As String = Nothing
    ''' <summary>
    ''' 
    ''' </summary>
    Public ReadOnly Property Caption As String
        Get
            Return _Caption
        End Get
    End Property
 
    Friend Shared _CreationClassName As String
    ''' <summary>
    ''' 
    ''' </summary>
    Public ReadOnly Property CreationClassName As String
        Get
            Return _CreationClassName
        End Get
    End Property
 
    Friend Shared _DeviceID As String
    ''' <summary>
    ''' 
    ''' </summary>
    Public ReadOnly Property DeviceID As String
        Get
            Return _DeviceID
        End Get
    End Property
 
    Friend Shared _Description As String
    ''' <summary>
    ''' 
    ''' </summary>
    Public ReadOnly Property Description As String
        Get
            Return _Description
        End Get
    End Property
 
    Sub New(strCaption As String, _
            strCreationClassName As String, _
            strdescription As String, _
            strDeviceID As String)
        _Caption = strCaption
        _CreationClassName = strCreationClassName
        _Description = strdescription
        _DeviceID = strDeviceID
    End Sub
 
End Class

    Sub Main()
        Dim o() As LogicalDisk = WMI.GetListOfLogicalDrives(".")
        Console.WriteLine(o(7).Description)
        For Each t In o
            Console.WriteLine(t.Description)
        Next
 
        Console.ReadLine()
    End Sub

---------------------------------------------------