WMI ソーステンプレート VB2015 版 - WMI Step

'*** WMI Source Template for VB2015 ***

Imports System.Management

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oSearcher As New ManagementObjectSearcher
Dim oManagementCollection As ManagementObjectCollection
Dim oManagement As ManagementObject
Dim sMesStr As String = vbNullString

'Win32_XXX部分を実在するWMIクラス名に変更する。
'クエリー条件をWQLにて指定する。
oSearcher.Query.QueryString = "SELECT * FROM Win32_XXX"
oManagementCollection = oSearcher.Get

'コレクションを解析する。
For Each oManagement In oManagementCollection

'このサンプルではあくまでCaptionプロパティしか見ないが、
'他のプロパティがあればこの部分で書き加える。
sMesStr = sMesStr & oManagement("Caption").ToString & vbCrLf

Next

'ここではMsgBoxで画面出力しているがお好みに応じて変更してください。
MsgBox("このクラスのCaptionプロパティ値の一覧です。" & vbCrLf & _
vbCrLf & sMesStr)


'使用した各種オブジェクトを後片付けする。
oSearcher = Nothing
oManagementCollection = Nothing
oManagement = Nothing


End Sub

End Class