WMIのクエリを実行して結果をConsole.WriteLineで表示するサンプルです。
コードはこんな感じ。
Sub WMIExecute(ByVal Query As String)
Dim MO As System.Management.ManagementObject
Dim MO_Collection As System.Management.ManagementObjectCollection
Dim MO_Searcher As New System.Management.ManagementObjectSearcher
MO_Searcher.Query.QueryString = Query
MO_Collection = MO_Searcher.Get
For Each MO In MO_Collection
For Each MO_Property As Management.PropertyData In MO.Properties
Console.WriteLine(MO_Property.Name & " : " & MO_Property.Value)
Next
Next
End Sub