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