ओले-डीबी के लिए ऑरैकल प्रदाता के संस्करण की जांच कैसे करें। oraOLEDB.Oracle प्रदाता

आप उदाहरण के लिए उपकरण RegDllView का उपयोग कर सकते हैं। "OraOLEDB" के लिए खोजें, परिणाम यह हो सकता है:

एक आसान तरीका यह होगा कि यह आपके ORACE_HOME\bin पर नेविगेट करे निर्देशिका और फ़ाइल का पता लगाएं OraOLEDB??.dll . दाएँ हाथ के माउस क्लिक से संस्करण की जाँच करें -> गुण -> विवरण।

हालांकि, आपको केवल फ़ाइल का संस्करण मिलता है, इसका मतलब यह नहीं है कि यह डीएलएल भी पंजीकृत है और उपयोग के लिए तैयार है।

या इस वीबीस्क्रिप्ट का उपयोग करें:

Option Explicit
Const HKEY_CLASSES_ROOT = &H80000000

Dim Key, strComputer, objRegistry, strPath, arrKeys, fso
Dim strKeyPath, strValueName, strValue, uValue, ver

Set fso = CreateObject("Scripting.FileSystemObject")

strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
objRegistry.enumKey HKEY_CLASSES_ROOT, "CLSID", arrKeys

For Each key In arrKeys
    strKeyPath = "CLSID\" & key
    strValueName = "OLEDB_SERVICES"
    If objRegistry.GetDWordValue (HKEY_CLASSES_ROOT, strKeyPath, strValueName, uValue) = 0 Then  
        'get the (Default) value which is the name of the provider
        objRegistry.GetStringValue HKEY_CLASSES_ROOT, strKeyPath, "", strValue
        If InStr(1, strValue, "OraOLEDB.Oracle", vbTextCompare) > 0 Then
            ' get expanded location
            objRegistry.GetStringValue HKEY_CLASSES_ROOT, strKeyPath & "\InprocServer32", "", strPath

            ver = fso.GetFileVersion(strPath)
            Wscript.Echo strValue & " @ " & strPath & " -> " & ver
        End If
    End If 
Next

OLE DB प्रदाता 32-बिट या/और 64-बिट में मौजूद हो सकता है, इसलिए आप स्क्रिप्ट को दो बार निष्पादित कर सकते हैं:

C:\Windows\System32\cscript.exe Print_OLE.vbs
C:\Windows\SysWOW64\cscript.exe Print_OLE.vbs