MTS:n ominaisuustietojen haun automatisoiminen

PropertyInfo-kokoelmaan tallennetaan kokoelman jokaisen ominaisuuden tiedot. Tämän kokoelman tukemien ominaisuuksien luettelo on MTS Administrative Referencen aiheessa PropertyInfo.

Kokoelman ominaisuuksien nimien hakeminen ja luetteleminen:

1. Määrittele luettelon omimaisuustietojen hakemisessa käytettävät objektit.

   Dim catalog As Object
   Dim packages As Object
   Dim propertyInfo As Object
   Dim property 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ää. Nouda PropertyInfo-kokoelma kutsumalla GetCollection-menetelmää Packages-kokoelmassa. Kun GetCollection-menetelmää kutsutaan PropertyInfo-kokoelman noutamista varten, avainarvo jätetään tyhjäksi. Avainarvoa ei käytetä, koska PropertyInfo-kokoelman tiedot ovat samat kaikille paketeille. Täytä PropertyInfo-kokoelma luettelon tiedoilla kutsumalla Populate-menetelmää.

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

4. Käy PropertyInfo-kokoelma läpi ja tuo näkyviin jokaisen ominaisuuden nimi.

   For Each property In propertyInfo
           Debug.Print property.Name
       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, MTS-hallinnan automatisoiminen Visual Basicin avulla