Automatyzacja wyliczania zainstalowanych pakiet≤w MTS w celu usuniΩcia pakietu

Aby wyliczaµ zainstalowane pakiety w celu usuniΩcia pakietu o nazwie ôMy Packageö:

1. Zadeklaruj obiekty, kt≤re bΩd╣ wykorzystywane podczas wyliczania zainstalowanych pakiet≤w w celu usuniΩcia konkretnego pakietu.

   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. Za pomoc╣ metod Count i Item wywo│uj kolejne pakiety kolekcji, aby odnaleƒµ pakiet o nazwie ôMy Packageö. Po odszukaniu pakietu wywo│aj metodΩ Remove, aby usun╣µ pakiet. NastΩpnie wywo│aj metodΩ SaveChanges, aby zapisaµ efekt usuniΩcia.

   For i = 0 To packages.Count-1
           Set pack = packages.Item(i)
           If pack.Name = "My Package" Then
               packages.Remove (i)
               packages.savechanges
               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