Automatyzacja wyliczania zainstalowanych sk│adnik≤w MTS w celu usuniΩcia sk│adnika

Aby wyliczaµ zainstalowane sk│adniki w celu usuniΩcia konkretnego sk│adnika:

1. Zadeklaruj obiekty, kt≤re bΩd╣ wykorzystywane podczas wyliczania zainstalowanych sk│adnik≤w w celu usuniΩcia konkretnego sk│adnika.

   Dim catalog As Object
   Dim packages As Object
   Dim pack As Object
   Dim componentsInPack As Object
   Dim util 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Ω Populate, aby wype│niµ kolekcjΩ pakietami zainstalowanymi w katalogu.

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

4. Wyliczaj kolejne pakiety kolekcji, aby odnaleƒµ pakiet o nazwie ôMy Packageö. Wywo│aj metodΩ GetCollection, aby pobraµ kolekcjΩ ComponentsInPackage. Za pomoc╣ metody Populate wype│nij kolekcjΩ ComponentInPackages danymi, a nastΩpnie wyliczaj kolejne elementy kolekcji w celu odnalezienia sk│adnika ôBank.Accountö. Po odszukaniu sk│adnika usu± go wywo│uj╣c metodΩ Remove, po czym zapisz zmiany kolekcji wywo│uj╣c metodΩ SaveChanges.

   For Each pack In packages
           If pack.Name = "My Package" Then
               Set componentsInPack = packages.GetCollection("ComponentsInPackage", pack.Key)
               componentsInPack.Populate
               For i = 0 To componentsInPack.Count
                   Set comp = componentsInPack.Item(i)
                   If comp.Name = "Bank.Account" Then
                       componentsInPack.Remove (i)
                       componentsInPack.savechanges
                       Exit For
                   End If
   Next
               Exit For
           End If
       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 zaawansowanych czynno£ci administracyjnych programu MTS za pomoc╣ programu Visual Basic