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

'*** WMI Source Template for VB6 ***

Option Explicit

Private Sub Command1_Click()

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet As SWbemObjectSet
Dim oClass As SWbemObject
Dim oLocator As SWbemLocator
Dim oService As SWbemServices
Dim sMesStr As String

'ローカルコンピュータに接続する。
Set oLocator = New WbemScripting.SWbemLocator
Set oService = oLocator.ConnectServer
'Win32_XXX部分を実在するWMIクラス名に変更する。
'クエリー条件をWQLにて指定する。
Set oClassSet = oService.ExecQuery("Select * From Win32_XXX")

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

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

Next

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

'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing

End Sub