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 Qualifiers in the class
Dim qualifiers As QualifierDataCollection = _
c.Qualifiers()
' display the qualifiers
Console.WriteLine("Qualifier Names: ")
For Each qualifier As QualifierData In qualifiers
Console.WriteLine(qualifier.Name)
Next
End Function
End Class
|