2011年12月16日


システム環境変数とユーザー環境変数の列挙

select * from Win32_Environment where SystemVariable = True and Name = 'PATH'
というクエリで、SystemVariable を True にするとシステム変数です
Dim strValue : strValue = ""

Dim strComputer : strComputer = "."
Dim obj : Set obj = GetObject("winmgmts:\\"&strComputer&"\root\cimv2")

' **********************************************************
' システム環境変数
' **********************************************************
Dim objItems : Set objItems = obj.ExecQuery _
   ("select * from Win32_Environment where SystemVariable = True and Name = 'PATH'")

Dim objItem
For Each objItem in objItems
	strValue = objItem.VariableValue
Next

Dim I,aData
if strValue <> "" then
	aData = Split( strValue, ";" )

	strValue = ""
	For I = 0 to Ubound( aData )
		strValue = strValue & aData(I) & vbCrLf
	Next

	Wscript.Echo strValue
end if

' **********************************************************
' ユーザー環境変数
' **********************************************************
Set objItems = obj.ExecQuery _
   ("select * from Win32_Environment where SystemVariable = False and Name = 'PATH'")

For Each objItem in objItems
	strValue = objItem.VariableValue
Next

if strValue <> "" then
	aData = Split( strValue, ";" )

	strValue = ""
	For I = 0 to Ubound( aData )
		strValue = strValue & aData(I) & vbCrLf
	Next

	Wscript.Echo strValue
end if




posted by at 09:01 | Comment(0) | WMI | このブログの読者になる | 更新情報をチェックする


この記事へのコメント
コメントを書く
お名前:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。
※ブログオーナーが承認したコメントのみ表示されます。