VB.NETで名前空間・クラス名一覧取得

名前空間の一覧を取得する
Dim nsClass As New ManagementClass
nsClass.Scope.Path.NamespacePath = "root"
nsClass.Path.Path = "__namespace"

For Each ns As ManagementObject In nsClass.GetInstances()
'ns("Name")
Next ns


クラス名一覧取得
Dim searcher As New ManagementObjectSearcher
searcher.Scope.Path.NamespacePath = "root/" + strNameSpace
searcher.Query.QueryString = "select * from meta_class"

For Each wmiClass As ManagementClass In searcher.Get()
'wmiClass("__CLASS")
Next wmiClass