'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
Přihlášení členové mohou přispívat, sledovat aktualizace a další. Jste tu noví? Zaregistrujte si bezplatný účet.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.