Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Apr 7, 2003

GetComPlusApplications - Retrieving the installed COM+ applications

' Returns an array with the names of the installed COM+ Applications
' Params: the name of the server - defaults to the local server
' Requires a reference to the COM+ Admin Type Library,
'  in the COM tab of the References dialog box
'
' Example:
'  Dim apps() As String = GetComPlusApplications()
'  Dim app As String
'  For Each app In apps
'     debug.writeline(app)
'  Next

Function GetComPlusApplications(Optional ByVal serverName As String = "") As _
    String()
    Dim catalog As New COMAdmin.COMAdminCatalog()
    catalog.Connect(serverName)

    ' get the Applications collection
    Dim apps As COMAdmin.COMAdminCatalogCollection = catalog.GetCollection _
        ("Applications")
    apps.Populate()

    ' add each application name to an ArrayList
    Dim app As COMAdmin.COMAdminCatalogObject
    Dim appNames As New ArrayList(apps.Count)
    For Each app In apps
        appNames.Add(app.Name.ToString())
    Next

    ' convert from the ArrayList to an array of strings, and return it
    Return appNames.ToArray(GetType(String))
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap