Database Search

TechHome

• !!DISCLAIMER!!
• ADO Table Schemas
• Append RTF files Using COM
• AskFileName Alternative
• Binary OLE example
• Brother Label Printer with b-pac SDK
• Check CDROM Ejected
• COM Object for DLL Calls
• Convert Word Doc to PDF
• Create XML DB from the TXT file then do OLE Lookup
• Creating Shaped Hierarchical Recordset
• Crystal Reports Print Extender
• CSMail Search Inside Mime Messages
• Date Picture Taken
• Delete Message from Exchange
• Directory Browse Dialog Created Using OLE Shell Functions
• Display Spreadsheet as HTML
• Email Address Validator
• Enabling Automatic Updates
• Enumerate Certificates
• Enumerate Windows Updates
• Export Data crom Crystal Reports to Excel
• Forwarding Email Messages
• Get Current Unix TimeStamp
• GroupWise and WinBatch
• IBM Personal Communications Connect Via COM
• IIS UDFs
• Import CSV File Using Office Web Components Spreadsheet
• Inspect mail messages - CDO
• Locate and Validate Credit Card Numbers Using RegExp
• MakeCAB
• Minimize all windows
• Oracle Object for OLE OO4O Access
• Powershell COM
• Publisher SaveAsPicture
• Remove Duplicate Lines from Text File
• Remove SMS Cache Folder
• Set Groupwise Contacts Link
• SkyPe Enumerate Contacts
• SkyPe UDFs
• SNMP v1 Examples
• SQL Syntax Tool
• Symantec LiveStateRecovery ImageJob Code
• Symantec ProtectorAuto OLE Script
• Template Create IIS Site
• Use XMLHTTP to Download a File
• Windows Update Agent

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

Enumerate Certificates

 Keywords: list enumerate certificate  

;Winbatch 2007C -
;script to obtain Windows Certificates, using COM, no error-checking
;results output to text file
;
;Stan Littlefield, January 10, 2008
;Modified by Crypt, December 10, 2009 - added getinfo(0) to get certificate name
;//////////////////////////////////////////////////////////////////////////////////////
GoSub udfs

;NOTE: Several constants are truncated as they break the wb 30-CHAR limit...
CAPICOM_MEMORY_STORE        =   0
CAPICOM_LOCAL_MACHINE_STORE =   1
CAPICOM_CURRENT_USER_STORE  =   2
CAPICOM_ACTIVE_DIRECTORY_USE =   3
CAPICOM_SMART_CARD_USER_STOR =   4

CAPICOM_MY_STORE   = "My"
CAPICOM_CA_STORE   = "CA"
CAPICOM_ROOT_STORE = "Root"

CAPICOM_STORE_OPEN_READ_ONLY  =   0
CAPICOM_STORE_OPEN_READ_WRIT  =   1
CAPICOM_STORE_OPEN_MAXIMUM_A  =   2
CAPICOM_STORE_OPEN_EXISTING   = 128
CAPICOM_STORE_OPEN_INCLUDE    = 256
cFile=DirScript():"Certificates.txt"
cCerts="Personal Certificates : ":@CRLF
cCerts=cCerts:ListCerts( CAPICOM_CURRENT_USER_STORE, CAPICOM_MY_STORE ):@CRLF:@CRLF
cCerts=cCerts:"CA Certificates       : ":@CRLF
cCerts=cCerts:ListCerts( CAPICOM_LOCAL_MACHINE_STORE, CAPICOM_CA_STORE ):@CRLF:@CRLF
cCerts=cCerts:"Root Certificates     : ":@CRLF
cCerts=cCerts:ListCerts( CAPICOM_LOCAL_MACHINE_STORE, CAPICOM_ROOT_STORE ):@CRLF:@CRLF
FilePut(cFile,cCerts)
Run("notepad.exe",cFile)
Exit
;///////////////////////////////////////////////////////////////////////////////////////////


:udfs
#DefineSubRoutine ListCerts( myStoreLocation, myStoreName )
retval = ""
oStore= CreateObject( "CAPICOM.Store.2" )
oStore.Open(myStoreLocation, myStoreName, CAPICOM_STORE_OPEN_READ_ONLY || CAPICOM_STORE_OPEN_EXISTING)
oCerts = oStore.Certificates
retval = oCerts.Count:@CRLF:@CRLF

If oCerts.Count > 0
   ForEach c In oCerts
      retval = retval:"Cert. Name    : ":c.getInfo(0)   :@CRLF
      retval = retval:"Issued By     : ":c.IssuerName   :@CRLF
      retval = retval:"Subject Name  : ":c.SubjectName  :@CRLF
      retval = retval:"Version       : ":c.Version      :@CRLF
      retval = retval:"Is Valid      : ":c.IsValid      :@CRLF
      retval = retval:"Valid From    : ":c.ValidFromDate:@CRLF
      retval = retval:"Valid Until   : ":c.ValidToDate  :@CRLF
      retval = retval:"Serial Number : ":c.SerialNumber :@CRLF
      retval = retval:"Thumbprint    : ":c.Thumbprint   :@CRLF:@CRLF
   Next
EndIf
oCerts = 0
oStore= 0
Return(retval)
#EndSubRoutine

Return
;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Article ID:   W17458

File Created: 2009:12:10:10:47:16

Last Updated: 2009:12:10:10:47:16