Imports System.Management
 
Public Class clsManagement
 
    Public Shared Function getLocicalDisks() As Collection
        Dim Searcher As New ManagementObjectSearcher("SELECT * FROM" & _
         "Win32_LogicalDisk")
        Dim Drive As ManagementObject
        Dim returnValue As New Collection
 
        For Each Drive In Searcher.Get()
            Dim myDrive As New System.IO.DriveInfo(Drive("Name"))
            Console.WriteLine(Drive("Name").ToString)
            If myDrive.IsReady = True Then
                Console.WriteLine("is ready")
                Dim objDrive As New strDriveInfo
                objDrive.DriveChar = Drive("Name")
                objDrive.freeSpace = myDrive.AvailableFreeSpace
                Console.WriteLine("Free: " & myDrive.AvailableFreeSpace)
                objDrive.totalSpace = myDrive.TotalSize
                Console.WriteLine("Total: " & myDrive.TotalSize)
                objDrive.VolumeName = myDrive.VolumeLabel
                Console.WriteLine("Label: " & myDrive.VolumeLabel)
                If myDrive.DriveType = IO.DriveType.Fixed Then
                    objDrive.Type = "HDD"
                ElseIf myDrive.DriveType = IO.DriveType.CDRom Then
                    objDrive.Type = "CD"
                ElseIf myDrive.DriveType = IO.DriveType.Removable Then
                    objDrive.Type = "REMOVE"
                ElseIf myDrive.DriveType = IO.DriveType.Network Then
                    objDrive.Type = "NETWORK"
                End If
                Console.WriteLine("Type: " & objDrive.Type)
                objDrive.FileSystem = myDrive.DriveFormat
                Console.WriteLine("FileSystem: " & objDrive.FileSystem)
                returnValue.Add(objDrive)
            End If
        Next Drive
 
        Return returnValue
    End Function