addEnv( "TEST_DIR", "abcd" )

_WSHShell  := ComObjCreate("WScript.Shell")
_env := WSHShell.Environment("SYSTEM")
_value :=  _env.item("TEST_DIR")



MsgBox,text- value:%value%,


ExitApp

addEnv( key, value ){
	local  sc, script
	sc := ComObjCreate("ScriptControl")
	sc.Language := "JScript"

script =
(
WSHShell = new ActiveXObject('WScript. Shell');
WSHShell. Popup('aaaaaaaa', 0, 'title', 1);
/*
sc.Language = "VBScript";

script = 'MsgBox "VBScript in JScript in AutoHotkey", 48, "Embedded ScriptControls"';
sc.ExecuteStatement(script);
*/
)


	sc.ExecuteStatement(script)

}