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 Components in Com Catalog


; Open a session with the catalog.
;Instantiate a COMAdminCatalog object. 
objCatalog = CreateObject("COMAdmin.COMAdminCatalog")

;First get the "Applications" collection from the catalog.
objApplicationsColl = objCatalog.GetCollection("Applications")
objApplicationsColl.Populate()
list = ""
ForEach objApp in objApplicationsColl
        list = strCat(list,@tab, objApp.Name)
Next 
app = AskItemList("Applications", StrTrim(list), @tab, @unsorted, @single)

ForEach objApp in objApplicationsColl
      If objApp.Name == app Then break
Next 

; Get and populate the Components collection for "My Application".
Components = objApplicationsColl.GetCollection("Components", objApp.Key) 
Components.Populate()

;Get the correct component, "My Component".
list2 = ""
ForEach CompObject in Components 
    list2 = strCat(list2,@tab,CompObject.name) 
Next 
AskItemList("Components", StrTrim(list2), @tab, @unsorted, @single)



Components = 0
objApplicationsColl = 0
objCatalog = 0
exit

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