Automatyzacja wyliczania zainstalowanych pakietów MTS w celu usunięcia pakietu

Aby wyliczać zainstalowane pakiety w celu usunięcia pakietu o nazwie “My Package”:

Zadeklaruj obiekty, które będą wykorzystywane podczas wyliczania zainstalowanych pakietów w celu usunięcia konkretnego pakietu.
```
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
```
Za pomocą metod Count i Item wywołuj kolejne pakiety kolekcji, aby odnaleźć pakiet o nazwie “My Package”. Po odszukaniu pakietu wywołaj metodę Remove, aby usunąć pakiet. Następnie wywołaj metodę SaveChanges, aby zapisać efekt usunięcia.
```
For i = 0 To packages.Count-1
        Set pack = packages.Item(i)
        If pack.Name = "My Package" Then
            packages.Remove (i)
            packages.savechanges
            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