Menggunakan VBS dan registri untuk menentukan versi dan driver oracle 32 vs. 64 bit mana yang diinstal

Menurut kode VBS Anda, pertanyaannya adalah:Menggunakan VBS dan registri untuk menentukan versi mana dan 32 vs. 64 bit ODBC driver sudah terinstal

Ada banyak driver lain yang tersedia untuk Oracle, mis. OleDB, ODP.NET, JDBC, dll.

Untuk mendapatkan 32 dan 64 bit bisa dilakukan dengan dua cara

Jalankan VBS di host skrip yang berbeda, yaitu

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

Atau ubah skrip VBS untuk menginterogasi jalur 32 dan 64 Bit di Registry:

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

Catatan lain:TNS_ADMIN dan ORACLE_HOME dapat ditentukan oleh variabel lingkungan, namun Anda juga dapat mendefinisikannya di Registry. Periksa 64 bit

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

dan untuk 32 bit

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