Automatyzacja dostępu do informacji o właściwościach MTS

Kolekcja PropertyInfo zawiera informacje o poszczególnych właściwościach kolekcji. Więcej informacji o tej kolekcji można znaleźć w książce MTS Administrative Reference pod hasłe PropertyInfo.

Aby uzyskać dostęp do informacji o właściwościach i wyświetlić listę poszczególnych właściwości kolekcji:

Zadeklaruj obiekty, które będą wykorzystywane podczas uzyskiwania dostępu do informacji o właściwościach zapisanych w katalogu.
```
Dim catalog As Object
Dim packages As Object
Dim propertyInfo As Object
Dim property 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ę GetCollection kolekcji Packages, aby uzyskać dostęp do kolekcji PropertyInfo. Proszę zauważyć, że podczas wywoływania metody GetCollection (zapewniającej dostęp do kolekcji PropertyInfo) wartość klucza pozostawiono pustą. Wartość ta nie jest wykorzystana, ponieważ informacje zawarte w kolekcji PropertyInfo mają być tożsame dla wszystkich pakietów. Na koniec wywołaj metodę Populate, aby wypełnić kolekcję PropertyInfo informacjami z obiektu Catalog.
```
Set catalog = CreateObject("MTSAdmin.Catalog.1")
Set packages = catalog.GetCollection("Packages")
Set propertyInfo = packages.GetCollection("PropertyInfo", "")
propertyInfo.Populate
```

Wywołuj kolejne elementy kolekcji i wyświetl listę nazw kolejnych właściwości w kolekcji.

For Each property In propertyInfo
        Debug.Print property.Name
    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 czynności administracyjnych programu MTS za pomocą programu Visual Basic