環境変数の値を取得するには、WSCRIPT.SHELLの「ExpandEnvironmentStrings」を使用します。
キーとなる値は、環境変数名を取得しておく必要があります。
SET objShell = CreateObject("WSCRIPT.SHELL")
値 = objShell.ExpandEnvironmentStrings("%環境変数名%")
＜ソース＞
Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
With objShell
ec "取得：%PATH%"
ec .ExpandEnvironmentStrings("%PATH%")
ec "取得：%SystemDrive%"
ec .ExpandEnvironmentStrings("%SystemDrive%")
ec "取得：%SystemRoot%"
ec .ExpandEnvironmentStrings("%SystemRoot%")
ec "取得：%存在しない環境変数%"
ec .ExpandEnvironmentStrings("%存在しない環境変数%")
End With
'メッセージ表示用
Sub ec(msg)
Wscript.Echo "[" & Date & " " & time & "]" & msg
End Sub
'結果
'[2008/12/30 0:28:51]取得：%PATH%
'[2008/12/30 0:28:51]C:\WINDOWS\system32;C:\WINDOWS;C:\Program Files\
'[2008/12/30 0:28:51]取得：%SystemDrive%
'[2008/12/30 0:28:51]C:
'[2008/12/30 0:28:51]取得：%SystemRoot%
'[2008/12/30 0:28:51]C:\WINDOWS
'[2008/12/30 0:28:51]取得：%存在しない環境変数%
'[2008/12/30 0:28:51]%存在しない環境変数%
'＜その他参考情報＞
ExpandEnvironmentStrings関数の所属について
ExpandEnvironmentStrings関数について
