Fonction environ en vbscript / vbs

Commenter

Contenu du snippet

En vb on connait la fonction Environ, qu'on ne retrouve malheureusement pas tel quel dans VBS.
Voilà, en quelques lignes ma solution pour un script.

Source / Exemple : 


Function Environ(VarName)
    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

A voir également

Du même auteur (philheiz)