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