Предположительно, ваша цель не в том, чтобы протестировать установку переменных среды через вкладку "Дополнительно", а в любом случае изменить их из сценария QTP.
Вы можете легко изменить их, используя возможности VBscript.Посмотрите на эти функции:
Public Function GetEnvVariable(ByVal strEnvVarName)
Set oShell = CreateObject( "WScript.Shell" )
GetEnvVariable = oShell.ExpandEnvironmentStrings(strEnvVarName)
End Function
Public Function SetEnvVariable(ByVal strEnvVarName, ByVal strNewValue)
Set oShell = CreateObject( "WScript.Shell" )
oShell.Environment.item(strEnvVarName) = strNewValue
End Function
Здесь вы можете прочитать больше о переменных среды.Также WshEnvironment Object может быть полезным для вас.