Function Vardel (nomv,vars,varf,valide)
Dim WshShell, Sysenv
Dim avtp, aptp, aptpm
Set WshShell = Wscript.CreateObject("WScript.Shell" )
Set Sysenv = WshShell.Environment("SYSTEM" )
avtp = Sysenv(nomv)
aptp = Replace (avtp, vars, varf)
aptpm = ""&aptp&""
sysenv(nomv)= aptpm
End Function