Option Explicit
Dim SysVarReg, Value
Value = "1234567890"
Set SysVarReg = WScript.CreateObject("WScript.Shell")
SysVarReg.RegWrite "HKLM\Software\AppName\Valuename", Value