MTS-pakettien ominaisuuksien päivityksen automatisoiminen etäpalvelimilla

Paketin ominaisuuksien päivittäminen etätietokoneessa "remote1":

1. Määrittele objektit, joiden avulla MTS-asiakas määritetään ottamaan käyttöön etäkomponentit ja hallitsemaan niitä.

   Dim catalog As Object
   Dim packages As Object
   Dim pack As Object
   Dim root 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. Käytä Remote1-tietokoneen Root collection -kokoelmaa kutsumalla Connect-menetelmää. Root collection -kokoelma on kokoelmaobjekti, jonka avulla voidaan käyttää tietyn tietokoneen ylätason kokoelmia. Root collection ei sisällä objekteja, ja sillä ei ole ominaisuuksia. Kun GetCollection-menetelmää kutsutaan Root collection -kokoelmasta, avainarvo jätetään tyhjäksi. Nouda etätietokoneen Packages-kokoelma kutsumalla GetCollection-menetelmää. Täytä Packages-kokoelma tämän jälkeen Populate-menetelmän avulla.

   Set catalog = CreateObject("MTSAdmin.Catalog.1")
   Set root = catalog.Connect("remote1")
   Set packages = root.GetCollection("Packages", "")
   packages.Populate

4. Aseta Oma paketti -paketin SecurityEnabled-ominaisuuden arvoksi "Y" ja tallenna muutokset Packages-kokoelmaan.

    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, MTS-hallinnan automatisoiminen Visual Basicin avulla