कौन सा संस्करण और 32 बनाम 64 बिट ऑरैकल ड्राइवर स्थापित हैं, यह निर्धारित करने के लिए वीबीएस और रजिस्ट्री का उपयोग करना

आपके वीबीएस कोड के अनुसार प्रश्न यह होना चाहिए:VBS और रजिस्ट्री का उपयोग करके यह निर्धारित करना कि कौन सा संस्करण और 32 बनाम 64 बिट ODBC ड्राइवर स्थापित हैं

Oracle के लिए कई अन्य ड्राइवर उपलब्ध हैं, उदा। OleDB, ODP.NET, JDBC, आदि।

32 और 64 बिट प्राप्त करने के लिए आप इसे दो तरीकों से कर सकते हैं

या तो VBS को अलग-अलग स्क्रिप्टिंग होस्ट में चलाएं, यानी

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

या रजिस्ट्री में 32 और 64 बिट पथ से पूछताछ करने के लिए VBS स्क्रिप्ट को संशोधित करें:

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

एक और नोट:TNS_ADMIN और ORACLE_HOME पर्यावरण चर द्वारा परिभाषित किया जा सकता है, हालांकि आप उन्हें रजिस्ट्री में भी परिभाषित कर सकते हैं। 64 बिट के लिए जांचें

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

और 32 बिट के लिए

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