' オブジェクト作成
Set WshShell = CreateObject("WScript.Shell")
Set Rs = CreateObject("ADODB.Recordset")
Set Fso = CreateObject( "Scripting.FileSystemObject" )

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

' ユーザー環境変数を取得
Set WshSysEnv = WshShell.Environment("USER")

strEnvPath = strEnvPath & ";" & WshSysEnv("PATH")

' トークンに分解
aData = Split( strEnvPath, ";" )

Const adVarChar = 200

' ソートに ADO のレコードセットを利用する
Rs.Fields.Append "ソートデータ", adVarChar,255
Rs.Open

For Each strData in aData

	if Trim( strData ) <> "" then
		Rs.AddNew
		Rs.Fields("ソートデータ").value = strData
		Rs.Update
	end if

Next

Rs.Sort = "ソートデータ"
Rs.MoveFirst

' テキストファイルに書き込む
Set OutObj = Fso.OpenTextFile( "result.txt", 2, True )
Do while not Rs.EOF

	OutObj.WriteLine Rs.Fields("ソートデータ").value & ""
	Rs.MoveNext

Loop
OutObj.Close

Rs.Close