Automatyzacja wyliczania zainstalowanych pakietów MTS w celu uaktualnienia właściwości

Aby wyliczać zainstalowane pakiety w celu uaktualnienia właściwości pakietu o nazwie “My Package”:

Zadeklaruj obiekty, które będą wykorzystywane podczas wyliczania zainstalowanych pakietów w celu uaktualnienia właściwości pakietu.

Private Sub BrowseUpdate_Click()
Dim catalog As Object
Dim packages As Object
Dim pack As Object
Dim componentsInNewPack 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 z katalogu.
```
Set catalog = CreateObject("MTSAdmin.Catalog.1")
Set packages = catalog.GetCollection("Packages")
packages.Populate
```
Wywołuj kolejne pakiety kolekcji, aby odnaleźć pakiet o nazwie “My Package”. Po odszukaniu pakietu “My Package” zmień ustawienie właściwości SecurityEnabled na “Y”. Wywołaj metodę SaveChanges, aby zapisać efekt uaktualnienia właściwości.
```
For Each pack In packages
        If pack.Name = "My Package" Then
            pack.Value("SecurityEnabled") = "Y"
            Exit For
        End If
    Next
packages.SaveChanges
           
    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ż