Hi:

To see every COM+ apps:

oCat = create('comadmin.COMAdminCatalog.1')
oApps = oCat.GetCollection("Applications")
oApps.Populate()

lnx = oApps.count()
For i = 1 TO lnx -1
? oApps.Item(i).Name
NEXT i

--------------

To build an empty COM+:

oCat = create('comadmin.COMAdminCatalog.1')
oApps = oCat.GetCollection("Applications")

NewApp = oApps.Add
NewApp.Value("ID") = '{2C263074-C113-45E4-806C-D483C29D6CBA}'
NewApp.Value("Name") = 'MiAplicacion'
NewApp.Value("Description") = 'Pues eso...'
NewApp.Value("Activation") = 1
oApps.SaveChanges()

--------------

To insert a COM in COM+

...\...
oGeneric = oCat.InstallComponent('MiAplicacion','c:\main.dll',"","")
oApps.SaveChanges

Best,