VB.NETでWMIを利用してシステム構成要素を取得する

PCのシステム構成要素を調べる機会があり、その際WMIを利用したのでその覚書です。

インポート

Imports System.Management

名前空間とオブジェクトクエリの設定

            Dim strNameSpace As String = "CIMV2"
            Dim strClassName As String = "Win32_OperatingSystem"

            Dim searcher As New ManagementObjectSearcher
            searcher.Scope.Path.NamespacePath = "root/" + strNameSpace
            searcher.Query.QueryString = "select * from " + strClassName

            Dim PrcSrc As ManagementObjectCollection = searcher.Get

名前空間とクラス名の一覧取得方法は次の機会に！

指定クラスの値を取得

            For Each wmiClass As ManagementObject In PrcSrc                
                Dim PropertyCollection As Management.PropertyDataCollection

                PropertyCollection = wmiClass.Properties
                'PropertyCollection = wmiClass.SystemProperties

                For Each Prop As System.Management.PropertyData In PropertyCollection
                    'プロパティ名取得：Prop.Name
                    'プロパティ値取得：Prop.Value
                Next
            Next wmiClass|

以上、全文Try-Catchで囲んでください！

次回予告、
WMI名前空間とクラス名一覧を簡単に取得する方法！
そう言えば今日はエイプリルフールだったな！