WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE COM ADO CDO ADSI LDAP
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

List OLE DB Providers


AddExtender("WWREG34I.DLL")
cFile=StrCat(dirscript(),"Providers.csv")
teststring="OLE DB Provider"  
topkey=@REGCLASSES      ; start at HKEY_CLASSES_ROOT
topsub="CLSID"
looktype=1              ; look at REG_SZ string values
lookat=9               ; Subkeys only And Whole words                      
dosubtree=@TRUE        ; return subtree contents
keylist=rRegSearch(topkey,topsub,teststring,looktype,lookat,dosubtree)
outtext = StrCat("CLSID,Provider,ProgID",@CRLF)
count=ItemCount(keylist,@tab)
For x = 1 to ItemCount(keylist,@tab)
   subkey = ItemExtract(x,keylist,@tab)
   if RegExistKey(topkey,subkey)
      value = RegQueryValue(topkey, subkey)
      ;value = RegQueryValue(topkey, StrCat(subkey,"[]"))
      n = StrIndex(subkey,"{",0,@FWDSCAN)
      cCLSID = StrSub(subkey,n,StrIndex(subkey,"}",0,@FWDSCAN)+1-n)
      outtext = StrCat(outtext, cCLSID,",",value)
      subkey=StrReplace(subkey,teststring,"ProgID")
      if RegExistKey(topkey,subkey) Then outtext = StrCat(outtext,",",RegQueryValue(topkey, subkey))
      outtext=strcat(outtext,@CRLF)
   endif
Next
display(2,"Reggie Found %count% Entries","Writing out as CSV to %cFile%")
FilePut(cFile,outtext)

Exit


Article ID:   W17093
File Created: 2007:07:03:14:28:16
Last Updated: 2007:07:03:14:28:16