HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment
mappában található "Path" változóban és a " CurrentControlSet" helyére behelyettesítve a "ControlSet001" és "ControlSet002" helyeken. Gyakorlatilag mindegy, hogy melyikben hajtjuk végre a változtatást, ugyanarra az eredményre vezet. Ugyanis a másik két helyen is megjelenik az új érték.
Set Sh = CreateObject("WScript.Shell")
key = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\"
MyPath = Sh.RegRead(key + "Path")
MyPath = MyPath + ";c:\pic"
Sh.RegWrite key + "Path", MyPath