システム環境変数を取得する: Win32_Environment
■Topics
システム環境変数の設定内容を取得するサンプルです。Win32_Environmentクラスを使用します。
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
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
実行するとシステム環境変数としてどんな名前で登録されていてどのような値が設定されているのか一覧表示します。今回はWQLでシステム環境変数だけを表示するようにしてありますが、WQLを変更すればユーザー環境変数を取得することも可能です。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。