شما با این چند خط میتوانید یک کلید و یا تغییر در ریجستری به راحتی بدهید
تشکر فراموش نشه




Option Explicit





Dim SysVarReg, Value





Dim Input





Input = InputBox("Enter your name") 





Value = Input





 





Set SysVarReg = WScript.CreateObject("WScript.Shell")





SysVarReg.RegWrite "HKCU\vijay\vijay1\123", Value