環境変数を出力するWSH

WSH


Environment.vbs

'Shellオブジェクトを取得
Set WshShell = WScript.CreateObject("WScript.Shell")

'システム環境変数を取得
Set SysEnv = WshShell.Environment("SYSTEM")

'ユーザ環境変数（ログオンユーザ）を取得
Set UserEnv = WshShell.Environment("USER")

'ファイルシステムオブジェクトの生成
Set fileSystem   = CreateObject("Scripting.FileSystemObject")
Set resultfile = fileSystem.CreateTextFile("環境変数.txt",True)

resultfile.WriteLine "[システム環境変数]"
	
For Each env In SysEnv
    resultfile.WriteLine env
Next

resultfile.WriteLine "[ユーザ環境変数]"

For Each env In UserEnv
    resultfile.WriteLine env
Next


Msgbox "出力が完了しました。"