'Enumerate installed OLE DB providers on local computer

Const HKEY_CLASSES_ROOT = &H80000000

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

objRegistry.enumKey HKEY_CLASSES_ROOT, "CLSID", arrKeys

Foreach key in arrKeys
  If objRegistry.GetDWordValue (HKEY_CLASSES_ROOT,"CLSID\" & key,"OLEDB_SERVICES",uValue)=0 Then
    objRegistry.GetStringValue HKEY_CLASSES_ROOT,"CLSID\" & key,"",providerName
    objRegistry.GetStringValue HKEY_CLASSES_ROOT,"CLSID\" & key & "\OLE DB Provider","",description
    WScript.Echo "[" & providerName & "] " & description
  Endif
Next


search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2022 adersοft