Automatyzacja konfigurowania r≤l MTS

Aby skonfigurowaµ role dla pakietu i sk│adnika oraz przydzieliµ u┐ytkownikowi uprawnienia administracyjne:

1. Zadeklaruj obiekty, kt≤re bΩd╣ wykorzystywane podczas konfigurowania roli dla konkretnego sk│adnika.

   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. Za pomoc╣ polecenia On Error obs│u┐ b│Ωdy czasu wykonywania, otrzymywane w razie zwrotu przez metodΩ awaryjnej warto£ci HRESULT. Polecenie On Error i obiekt Err pozwalaj╣ sprawdziµ b│Ωdy oraz odpowiednio na nie zareagowaµ.

   On Error GoTo failed

3. Wywo│aj metodΩ CreateObject, aby utworzyµ instancjΩ obiektu Catalog. Wywo│uj╣c metodΩ GetCollection, pobierz kolekcjΩ Packages. NastΩpnie wype│nij kolekcjΩ Packages danymi z katalogu.

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

4. Wyliczaj elementy kolekcji Packages w celu odnalezienia pakietu o nazwie ôMy Packageö. Po odszukaniu pakietu ôMy Packageö wywo│aj metodΩ GetCollection, aby uzyskaµ dostΩp do kolekcji RolesInPackage. Za pomoc╣ metody Add dodaj do pakietu now╣ rolΩ. Nadaj roli nazwΩ ôR1ö i zapisz zmiany kolekcji.

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

5. Wywo│aj metodΩ GetCollection kolekcji RolesInPackage, aby pobraµ kolekcjΩ UsersInRole. Za pomoc╣ funkcji Add dodaj do roli istniej╣cego u┐ytkownika systemu NT. Nadaj u┐ytkownikowi nazwΩ ôadministratorö. Zapisz zmiany kolekcji UsersInRole.

               Set usersInRole = RolesInPackage.GetCollection("UsersInRole", 				newRole.Key)
               Set newUser = usersInRole.Add
               newUser.Value("User") = "administrator"
               usersInRole.savechanges

6. Za pomoc╣ metody GetCollection pobierz kolekcjΩ ComponentsInPackage. Wype│nij kolekcjΩ ComponentsInPackage danymi, a nastΩpnie wyliczaj kolejne elementy kolekcji w celu odnalezienia sk│adnika Bank.Account. Aby skojarzyµ ze sk│adnikiem now╣ rolΩ, za pomoc╣ metody GetUtilInterface utw≤rz instancjΩ obiektu RoleAssociationUtil. NastΩpnie wywo│uj╣c metodΩ AssociateRole, skojarz now╣ rolΩ ze sk│adnikiem.

   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. W razie nieudanej instalacji pakietu, wy£wietlaj komunikat o b│Ωdzie. W komunikacie wykorzystaj obiekt Err.

   	failed:
       MsgBox "Failure code " + Str$(Err.Number)
   
   	End Sub

Zobacz te┐

Obiekty administracyjne programu MTS, Typy kolekcji programu MTS, Metody obiekt≤w administracyjnych programu MTS, Automatyzacja czynno£ci administracyjnych programu MTS za pomoc╣ programu Visual Basic