Как установить переменные окружения из VBScript
Set WshShell = CreateObject("Wscript.Shell")
' set a permanent environment variable %MyVarName% for all users
WshShell.Environment.item("MyVarName") = "MyVarValue"
Если вышеуказанный параметр не является постоянным, попробуйте этот. Это установит постоянную переменную среды для всех пользователей. Вы можете попробовать категории System, User, Volatile и Process с коллекцией Environment.
With WSHShell.Environment("SYSTEM")
.item("MyVarName") = "MyVarValue"
End With
Вы также можете использовать ExpandEnvironmentStrings для чтения переменных среды или замены их значениями в длинных строках типа командной строки.
sValue = WshShell.ExpandEnvironmentStrings("%MyVarName%")
Для работы с реестром попробуйте
sRegKey = "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\MyVarName"
sValue = WshShell.RegRead(sRegKey)
' don't write if no change is required.
If sValue <> sNewValue Then WshShell.RegWrite sRegKey , sNewValue