Por que não usar um script WMI, execute o cscript.exe.
' taken from
' http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/registry/
' computer name we want to modify ("." for local, "pcname" for remote pc, no "\" needed)
strComputer = "."
' leave these constants
const HKEY_LOCAL_MACHINE = &H80000002
Set StdOut = WScript.StdOut
' connect to the registry on the specified computer
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_
strComputer & "\root\default:StdRegProv")
StdOut.WriteLine "Changing Registry on " & strComputer
' registry key we want to modify
strKeyPath = "SOFTWARE\MyCompany\"
' create a new key.
' strKeyPath = "SOFTWARE\MyCompany\New registry folder"
' oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
' write a string value
strValueName = "String Value Name"
strValue = "string value"
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
' write a integer value
strValueName = "DWORD Value Name"
dwValue = 82
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue