Asennettujen MTS-pakettien läpikäymisen automatisoiminen paketin poistamista varten

Asennettujen pakettien läpikäyminen Oma paketti -paketin poistamista varten:

1. Määrittele asennettujen pakettien 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. Etsi Oma paketti -paketti käymällä pakettikokoelma läpi Count- ja Item-menetelmien avulla. Kun paketti löytyy, poista se Remove-menetelmän avulla. Tallenna muutokset kokoelmaan kutsumalla SaveChanges-menetelmää.

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