Automatyzacja dostępu do nazw kolekcji związanych z programem MTS

Kolekcja RelatedCollectionInfo zawiera listę związanych ze sobą kolekcji, do których można uzyskać dostęp z danej kolekcji. Listę właściwości obsługiwanych przez kolekcję RelatedCollectionInfo można znaleźć w MTS Administrative Reference pod hasłe RelatedCollectionInfo.

Aby uzyskać dostęp do kolekcji związanych z daną kolekcją i wyświetlić ich nazwy:

1. Zadeklaruj obiekty, które będą wykorzystywane podczas uzyskiwania dostępu do obiektu dostarczającego nazwy kolekcji związanych z daną kolekcją

   Dim catalog As Object
   Dim packages As Object
   Dim RelatedCollectionInfo As Object
   Dim collName As Object

2. 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

3. Wywołaj metodę CreateObject, aby utworzyć instancję obiektu Catalog. Wywołując metodę GetCollection pobierz kolekcję Packages. Następnie wywołaj metodę GetCollection obiektu kolekcji Packages, aby uzyskać dostęp do kolekcji. Proszę zauważyć, że podczas wywoływania metody GetCollection (zapewniającej dostęp do kolekcji RelatedCollectionInfo) wartość klucza pozostawiono pustą. Wartość ta nie jest wykorzystana, ponieważ informacje zawarte w kolekcji RelatedCollectionInfo mają być tożsame dla wszystkich pakietów. Na koniec wywołaj metodę Populate, aby wypełnić kolekcję RelatedCollectionInfo informacjami z katalogu.

   Set catalog = CreateObject("MTSAdmin.Catalog.1")
   Set packages = catalog.GetCollection("Packages")
   Set RelatedCollectionInfo =_ packages.GetCollection("RelatedCollectionInfo", "")
   RelatedCollectionInfo.Populate

4. Wywołuj kolejne elementy kolekcji i wyświetlaj nazwy poszczególnych kolekcji.

   For Each collName In RelatedCollectionInfo
      Debug.Print collName.Name
   Next
           
   Exit Sub
      

5. 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