Windows System VB.Net

Imports System
Imports System.Management
Class Sample
    Public Overloads Shared Function Main(ByVal args() As String) As Integer
        Dim c As New ManagementClass("Win32_LogicalDisk")
        Dim methods As MethodDataCollection
        methods = c.Methods
        ' Get the properties in the class
        Dim properties As PropertyDataCollection
        properties = c.Properties
        ' display the properties
        Console.WriteLine("Property Names: ")
        For Each p As PropertyData In properties
            Console.WriteLine(p.Name)
        Next
    End Function
End Class