Oppure
dim reg Set reg = CreateObject("WScript.Shell") reg.RegWrite "percorso\chaivi\registro\nuovachiave", "valore della chiave", "REG_SZ"
Set reg = CreateObject("WScript.Shell") reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\test", "test", "REG_SZ"