' 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)' NextFunction 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


Iran’s Jet-Propelled Drone Reshapes Power Balance
Iran has recently unveiled a jet-propelled variant of its Shahed series drone, marking a significant advancement in the nation’s drone technology. The new drone is