Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
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