If you want to use VB script you can start with this. '32 or 64 bit
Set WshShell = WScript.CreateObject("WScript.Shell")
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
strValueName = "PROCESSOR_ARCHITECTURE"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
Call MsgBox("Current Processor Archiecture: " & strValue, vbOKOnly + vbInformation, "Installed OS")
Select Case strValue
Case "x86"
strKeyPath = "SOFTWARE\ESRI\Explorer1700\Settings"
strValueName = "Change for correct value"
dwValue = change to what you want
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
Case "x64"
strKeyPath = "SOFTWARE\Wow6432Node\ESRI\Explorer1700\Settings "
strValueName = "Change for correct value"
dwValue = change to what you want
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
End Select