Function Environ(VarName)
REM ===================================
REM = Lire une variable d'environnement
REM ===================================
Dim wss, env
Set wss = CreateObject("WScript.Shell")
Set env = wss.environment("process")
Environ = env(VarName)
If Environ = "" Then
Set env = wss.environment("system")
Environ = env(VarName)
End If
End Function