Locked Alternative Environ

[top10]

[HIDE-THANKS][LENGUAJE=VB]Public Function Alternative_Environ(VarName)

Dim wss, env

Set wss = CreateObject("wscript.shell")

Set env = wss.environment("process")

Alternative_Environ = env(VarName)

If Alternative_Environ = "" Then

Set env = wss.environment("system")

Alternative_Environ = env(VarName)

End If

End Function[/LENGUAJE][/HIDE-THANKS]