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┐