Automatyzacja wyliczania zainstalowanych składników MTS w celu usunięcia składnika

Aby wyliczać zainstalowane składniki w celu usunięcia konkretnego składnika:

Zadeklaruj obiekty, które będą wykorzystywane podczas wyliczania zainstalowanych składników w celu usunięcia konkretnego składnika.
```
Dim catalog As Object
Dim packages As Object
Dim pack As Object
Dim componentsInPack As Object
Dim util As Object
```
Za pomocą polecenia On Error obsłuż błędy czasu wykonywania, otrzymywane w razie zwrotu przez metodę awaryjnej wartości HRESULT. Polecenie On Error i obiekt Err pozwalają sprawdzić błędy oraz odpowiednio na nie zareagować.
```
On Error GoTo failed
```
Wywołaj metodę CreateObject, aby utworzyć instancję obiektu Catalog. Wywołując metodę GetCollection, pobierz kolekcję Packages. Następnie wywołaj metodę Populate, aby wypełnić kolekcję pakietami zainstalowanymi w katalogu.
```
Set catalog = CreateObject("MTSAdmin.Catalog.1")
Set packages = catalog.GetCollection("Packages")
packages.Populate
```

Wyliczaj kolejne pakiety kolekcji, aby odnaleźć pakiet o nazwie “My Package”. Wywołaj metodę GetCollection, aby pobrać kolekcję ComponentsInPackage. Za pomocą metody Populate wypełnij kolekcję ComponentInPackages danymi, a następnie wyliczaj kolejne elementy kolekcji w celu odnalezienia składnika “Bank.Account”. Po odszukaniu składnika usuń go wywołując metodę Remove, po czym zapisz zmiany kolekcji wywołując metodę SaveChanges.

For Each pack In packages
        If pack.Name = "My Package" Then
            Set componentsInPack = packages.GetCollection("ComponentsInPackage", pack.Key)
            componentsInPack.Populate
            For i = 0 To componentsInPack.Count
                Set comp = componentsInPack.Item(i)
                If comp.Name = "Bank.Account" Then
                    componentsInPack.Remove (i)
                    componentsInPack.savechanges
                    Exit For
                End If
Next
            Exit For
        End If
    Next
           
    Exit Sub

W razie nieudanej instalacji pakietu wyświetlaj komunikat o błędzie. W komunikacie wykorzystaj obiekt Err.
```
failed:
    MsgBox "Failure code " + Str$(Err.Number)

End Sub
```

Zobacz też

Obiekty administracyjne programu MTS, Typy kolekcji programu MTS, Metody obiektów administracyjnych programu MTS, Automatyzacja zaawansowanych czynności administracyjnych programu MTS za pomocą programu Visual Basic