Extract data from test and use it in another test

[Archens]

Quick-and-dirty alternate method using Windows environment variables:

Code:

Sub SetSysEnv(strSysEnvVar,strValue)
    Set WshShell = CreateObject("WScript.Shell")
    Set WshSysEnv = WshShell.Environment("SYSTEM")
    WshSysEnv(strSysEnvVar) = strValue
    Set WshShell = Nothing
    Set WshSysEnv = Nothing
End Sub

Function GetSysEnv(strSysEnvVar)
    Set WshShell = CreateObject("WScript.Shell")
    Set WshSysEnv = WshShell.Environment("SYSTEM")
    GetSysEnv = WshSysEnv(strSysEnvVar)
    Set WshShell = Nothing
    Set WshSysEnv = Nothing
End Function

Archens