Dim path As String = "\\RECHNER\root\cimv2"
        Dim col As ROOT.CIMV2.Win32.LogicalDisk.LogicalDiskCollection
        Dim mo As New Management.ConnectionOptions
        Dim mp As New Management.ManagementPath(path)
        Dim ms As Management.ManagementScope
        mo.Password = "xxxx"
        mo.Username = "yyyy"
        ms = New Management.ManagementScope(mp, mo)
        For Each d As ROOT.CIMV2.Win32.LogicalDisk In _
          ROOT.CIMV2.Win32.LogicalDisk.GetInstances(ms, "name <> ''")
            Me.ListBox1.Items.Add(d.Name)
        Next