Asennettujen MTS-komponenttien läpikäymisen automatisoiminen komponentin poistamista varten

Asennettujen komponenttien läpikäyminen komponentin poistamista varten:

1. Määrittele asennettujen komponenttien läpikäymisessä käytettävät objektit.

   Dim catalog As Object
   Dim packages As Object
   Dim pack As Object
   Dim componentsInPack As Object
   Dim util As Object

2. Käsittele suorituksenaikaiset virheet On Error -lausekkeen avulla, jos menetelmä palauttaa HRESULT-virheen. Voit testata MTS:n siepattavia virheitä ja vastata niihin On Error -lausekkeen ja Err-objektin avulla.

   On Error GoTo failed

3. Luo Catalog-objektin esiintymä CreateObject-menetelmän avulla. Nouda Packages-kokoelma kutsumalla GetCollection-menetelmää. Täytä kokoelma luetteloon asennetuilla paketeilla kutsumalla Populate-menetelmää.

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

4. Käy kokoelma läpi ja etsi Oma paketti -pakettia. Nouda ComponentsInPackage-kokoelma kutsumalla GetCollection-menetelmää. Täytä ComponentInPackages-kokoelma Populate-menetelmällä ja käy kokoelma läpi Bank.Account-komponentin etsimiseksi. Poista komponentti Remove-menetelmällä ja tallenna muutokset kokoelmaan kutsumalla SaveChanges-menetelmää.

   For Each pack In packages
           If pack.Name = "Oma paketti" 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. Jos asennus epäonnistui, tuo Err-objektin avulla näkyviin virhesanoma.

   failed:
       MsgBox "Virhekoodi " + Str$(Err.Number)
   
   End Sub

Katso myös

MTS-hallintaobjektit, MTS-kokoelmatyypit, MTS-hallintaobjektimenetelmät, Kehittyneen MTS-hallinnan automatisoiminen Visual Basicin avulla