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