ایجاد یک کلید و یا پوشه در ریجستری با اسکریپت

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

Option Explicit
Dim SysVarReg, Value
Dim Input
Input = InputBox("Enter your name") 
Value = Input
Set SysVarReg = WScript.CreateObject("WScript.Shell")
SysVarReg.RegWrite "HKCUvijayvijay1123", Value