\\\
Imports System.Management
..
..
..
Dim disk As New ManagementObject("Win32_LogicalDisk.DeviceID=""C:""")
Dim diskProperty As PropertyData
For Each diskProperty In disk.Properties
Console.WriteLine("{0} = {1}", diskProperty.Name, diskProperty.Value)
Next diskProperty
///