Automatyzacja aktualizacji w│a£ciwo£ci pakietu MTS na serwerach zdalnych

Aby uaktualniµ w│a£ciwo£ci pakietu w pamiΩci komputera zdalnego o nazwie ôremote1ö:

Zadeklaruj obiekty, kt≤re bΩd╣ wykorzystywane podczas konfigurowania klienta (korzystaj╣cego z programu MTS) i administrowania sk│adnikami zdalnymi.
```
Dim catalog As Object
Dim packages As Object
Dim pack As Object
Dim root 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│aj metodΩ Connect, aby uzyskaµ dostΩp do kolekcji g│≤wnej komputera o nazwie ôremote1ö. Kolekcja g│≤wna jest kolekcj╣ zapewniaj╣c╣ dostΩp do wszystkich kolekcji najwy┐szego poziomu danego komputera. Kolekcja ta nie zawiera obiekt≤w, ani nie ma w│a£ciwo£ci. ProszΩ zauwa┐yµ, ┐e podczas wywo│ywania z kolekcji g│≤wnej metody GetCollection nie u┐yto warto£ci klucza. Wywo│aj metodΩ GetCollection, aby pobraµ z pamiΩci komputera zdalnego kolekcjΩ Packages. NastΩpnie za pomoc╣ metody Populate wype│nij kolekcjΩ danymi.
```
Set catalog = CreateObject("MTSAdmin.Catalog.1")
Set root = catalog.Connect("remote1")
Set packages = root.GetCollection("Packages", "")
packages.Populate
```

Ustaw w│a£iwo£µ SecurityEnabled pakietu ôMy Packageö jako ôYö i zapisz zmiany wprowadzone w kolekcji.

 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┐

Obiekty administracyjne programu MTS, Typy kolekcji programu MTS, Metody obiekt≤w administracyjnych programu MTS, Automatyzacja czynno£ci administracyjnych programu MTS za pomoc╣ programu Visual Basic