' Delete a COM+ application, and return True if the operation is successfull' Note: requires a reference to the COM+ Admin Type Library'' Example: DelComPlusApplication("MyComPlusApp", "")Function DelComPlusApplication(ByVal applicationName As String, _ ByVal serverName As String) As Boolean Dim catalog As New COMAdmin.COMAdminCatalog catalog.Connect(serverName) ' get the Applications collection Dim apps As COMAdmin.COMAdminCatalogCollection = CType _ (catalog.GetCollection("Applications"), _ COMAdmin.COMAdminCatalogCollection) apps.Populate() If apps.RemoveEnabled Then ' delete the COM+ application, if found Dim i As Integer For i = 0 To apps.Count - 1 If applicationName = CType(apps.Item(i), _ COMAdmin.COMAdminCatalogObject).Name.ToString() Then apps.Remove(i) apps.SaveChanges() Return True End If Next i End If Return FalseEnd Function
4 Areas of Your Company Where Your Audio Really Matters
February 2, 2023
Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a
