Asennettujen MTS-pakettien läpikäymisen automatisoiminen ominaisuuksien päivittämistä varten

Asennettujen pakettien läpikäyminen Oma paketti -paketin ominaisuuksien päivittämistä varten:

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

   Private Sub BrowseUpdate_Click()
   Dim catalog As Object
   Dim packages As Object
   Dim pack As Object
   Dim componentsInNewPack 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 luettelon 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. Kun paketti löytyy, aseta SecurityEnabled-ominaisuuden arvoksi “Y” ja tallenna ominaisuuden muutos pakettiin kutsumalla SaveChanges-menetelmää.

   For Each pack In packages
           If pack.Name = "Oma paketti" Then
               pack.Value("SecurityEnabled") = "Y"
               Exit For
           End If
       Next
   packages.SaveChanges
              
       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