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