■Topics

---

システム環境変数の設定内容を取得するサンプルです。Win32_Environmentクラスを使用します。

---

■Sample Code

---

Private Sub Command1_Click()

Dim EnvSet As SWbemObjectSet
Dim Env As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set EnvSet = Service.ExecQuery _
    ("Select * From Win32_Environment Where SystemVariable = 'True'")

For Each Env In EnvSet
    
    MesStr = MesStr & Env.Name & "：" & Env.VariableValue & vbCrLf
    
Next

MsgBox "システム環境変数の一覧です。" & vbCrLf & _
            vbCrLf & MesStr & vbCrLf & "ですよ。"

Set EnvSet = Nothing
Set Env = Nothing
Set Service = Nothing
Set Locator = Nothing

End Sub

---

■Comment

---

実行するとシステム環境変数としてどんな名前で登録されていてどのような値が設定されているのか一覧表示します。今回はWQLでシステム環境変数だけを表示するようにしてありますが、WQLを変更すればユーザー環境変数を取得することも可能です。

---