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