dim wsh, e
dim varName
dim valoreDaScrivere
with Wscript
varName = .Arguments(0)
valoreDaScrivere = .Arguments(1)
end with
set wsh = CreateObject("WScript.Shell")
with wsh
Set e = .Environment("USER")
e(varName) = valoreDaScrivere
set e = nothing
end with
set wsh = nothing