Použití VBS a registru k určení, která verze a 32bitové vs. 64bitové ovladače oracle jsou nainstalovány

Podle vašeho kódu VBS by otázka měla znít:Použití VBS a registru k určení verze a 32bitové vs. 64bitové ODBC ovladače jsou nainstalovány

Pro Oracle je k dispozici mnoho dalších ovladačů, např. OleDB, ODP.NET, JDBC atd.

Chcete-li získat 32 a 64 bit, můžete to udělat dvěma způsoby

Buď spusťte VBS v jiném skriptovacím hostiteli, tj.

For 64 Bit: >c:\Windows\system32\cscript.exe Drivers.vbs
For 32 Bit: >c:\Windows\SysWOW64\cscript.exe Drivers.vbs

Nebo upravte skript VBS tak, aby se dotazoval na 32 a 64bitovou cestu v registru:

strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers"
objRegistry.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, arrValueNames, arrValueTypes

For i = 0 to UBound(arrValueNames)
    strValueName = arrValueNames(i)
    objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue    
    Wscript.Echo arrValueNames(i) & " -- 64 Bit " & strValue
Next

strKeyPath = "SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI\ODBC Drivers"
objRegistry.EnumValues HKEY_LOCAL_MACHINE, strKeyPath, arrValueNames, arrValueTypes

For i = 0 to UBound(arrValueNames)
    strValueName = arrValueNames(i)
    objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue    
    Wscript.Echo arrValueNames(i) & " -- 32 Bit " & strValue
Next

Další poznámka:TNS_ADMIN a ORACLE_HOME mohou být definovány proměnnou prostředí, ale můžete je definovat také v registru. Zkontrolujte 64 bit

HKLM\SOFTWARE\ORACLE\Key_{ORACLE_HOME_NAME}\TNS_ADMIN 
and 
HKLM\SOFTWARE\ORACLE\Key_{ORACLE_HOME_NAME}\ORACLE_HOME

a pro 32 bitů

HKLM\SOFTWARE\Wow6432Node\ORACLE\Key_{ORACLE_HOME_NAME}\TNS_ADMIN
and
HKLM\SOFTWARE\Wow6432Node\ORACLE\Key_{ORACLE_HOME_NAME}\ORACLE_HOME