環境変数の変更

'----------------------------------------
' 環境変数ARMCONF／ARMDLLを切り替える
'----------------------------------------
Set WshShell=WScript.CreateObject("WScript.Shell")

' 環境変数の情報を管理するWshEnvironmentオブジェクトは、WshShellオブジェクトのEnvironmentプロパティを介して取得することができる。Environmentプロパティの引数には、環境変数の種類を指定する
Set WshEnvironment=WshShell.Environment("SYSTEM")



if WshEnvironment.Item("ARMCONF") = "C:\Program Files\ARM\ADSv1_2\BIN" then
	ref = msgbox(" ARMCONF/ARMDLL を MxHxコンパイル環境用の設定にします。",vbOKCancel,"環境変数切り替え")
	if ref=vbCancel then
		WScript.Quit
	end if
	
	'MxHx - ADVS2.1用の設定にする
	WshEnvironment.Item("ARMCONF")="C:\Program Files\ARM\RDI\armperip\1.3\50;C:\Program Files\ARM\RVARMulator\ARMulator\1.4\89\win_32-pentium"
	WshEnvironment.Item("ARMDLL")="C:\Program Files\ARM\RDI\rdimsvr\1.3\50\win_32-pentium;C:\Program Files\ARM\RDI\Targets\Remote_A\1.3\50\win_32-pentium;C:\Program Files\ARM\RVARMulator\ARMulator\1.4\89\win_32-pentium"
	
else
	ref = msgbox(" ARMCONF/ARMDLL を MxEXコンパイル環境用の設定にします。",vbOKCancel,"環境変数切り替え")
	if ref=vbCancel then
		WScript.Quit
	end if
	
	'MxEX以前 - ADVS1.2用の設定にする
	WshEnvironment.Item("ARMCONF")="C:\Program Files\ARM\ADSv1_2\BIN"
	WshEnvironment.Item("ARMDLL")="C:\Program Files\ARM\ADSv1_2\BIN"

end if

WScript.Echo "環境変数を設定しました"