MTS:n roolien asetusten määrityksen automatisoiminen

Paketin ja komponentin roolin asetusten määrittäminen ja järjestelmänvalvojaoikeuksien määrittäminen käyttäjälle:

1. Määrittele komponentin roolin määrittämistä varten käytettävät objektit.

   Dim catalog As Object
   Dim packages As Object
   Dim pack As Object
   Dim comp As Object
   Dim newUser As Object
   Dim newRole As Object
   Dim componentsInPack As Object
   Dim RolesInPackage As Object
   Dim usersInRole As Object
   Dim rolesForComponent 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ä Packages-kokoelmat luettelon tiedoilla.

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

4. Käy Packages-kokoelma läpi ja etsi Oma paketti -pakettia. Kun se löytyy, nouda RolesInPackage-kokoelma kutsumalla GetCollection-menetelmää. Lisää pakettiin uusi rooli Add-menetelmällä. Anna uudelle roolille nimi "R1" ja tallenna muutokset kokoelmaan.

       If pack.Name = "Oma paketti" Then
    Set rolesInPack = packages.GetCollection("RolesInPackage", pack.Key)
               Set newRole = rolesInPack.Add
               newRole.Value("Name") = "R1"
               rolesInPack.savechanges

5. Nouda UsersInRole-kokoelma kutsumalla GetCollection-menetelmää RolesInPackage-kokoelmassa. Lisää aiemmin luotu NT-käyttäjä rooliin Add-funktion avulla. Määritä käyttäjänimeksi "järjestelmänvalvoja". Tallenna muutokset UsersInRole-kokoelmaan.

               Set usersInRole = RolesInPackage.GetCollection("UsersInRole", 				newRole.Key)
               Set newUser = usersInRole.Add
               newUser.Value("User") = "järjestelmänvalvoja"
               usersInRole.savechanges

6. Nouda ComponentsInPackage-kokoelma GetCollection-menetelmän avulla. Täytä ComponentsInPackage-kokoelma ja etsi Bank-Account-komponentti käymällä kokoelma läpi. Liitä uusi rooli komponenttiin luomalla GetUtilInterface-menetelmän avulla RoleAssociationUtil-objektin esiintymä. Liitä uusi rooli komponenttiin kutsumalla AssociateRole-menetelmää.

   Set componentsInPack = packages.GetCollection("ComponentsInPackage", pack.Key)
               componentsInPack.Populate
               For Each comp In componentsInPack
                   If comp.Name = "Bank.Account" Then
                       Set rolesForComponent = componentsInPack.GetCollection("RolesForPackageComponent", comp.Key)
                       Set util = rolesForComponent.GetUtilInterface
                       util.associateRole (newRole.Key)
                       Exit For
                   End If
               Next
               Exit For
           End If
       Next
              
       Exit Sub

7. 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