Discussion :

[deathsurfer]

Salut!
Je développe une page web afin d'ajouter un groupe à une application reporting services.Exemple:
Je sélectionne dans la combobox le groupe A
Je sélectionne dans la combobox le dossier-application B
Je clique sur valider
A peut accéder à B, les autres groupes non.
Je sais que le portail Reporting Services le fait mais je souhaiterai que mon application web le fasse aussi.
Existe-t-il une API? Sinon quels sont les objets à utiliser?
Merci d'avance à tous!

[Mehdi Feki]

C'est chaud ce que tu veux faire

je ne crois pas que c'est possible, Report Manager est une sort de black box non extensible.

[deathsurfer]

Grace au logiciel reflector j'ai pu décompiler l'assembly "ReportingServicesWebUserInterface.dll" qui apparement contient les méthode permettant de gérer la sécurité dans reporting services à la manière de report manager (création/suppression de rôles etc...). Est ce possible d'ajouter cette assembly a mon projet ou faut-il que je copie-colle tout ce qui m'interesse?

[deathsurfer]

J'ai trouvé si ca intéresse quelqu'un laisser un message ici!

[Mehdi Feki]

Moi je veux bien

et l'autre thread aussi m'interesse Reporting services et new role assignment

[deathsurfer]

En fait c'est le même sujet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 Dim rs As New Microsoft.SqlServer.ReportingServices2005.ReportingService2005
        rs.Credentials = System.Net.CredentialCache.DefaultCredentials()
        Dim Item As String = "/"
        Dim machin() As Microsoft.SqlServer.ReportingServices2005.Policy
        Dim Policies(0) As Microsoft.SqlServer.ReportingServices2005.Policy
        Dim newPolicies() As Microsoft.SqlServer.ReportingServices2005.Policy
        Policies(0) = New Microsoft.SqlServer.ReportingServices2005.Policy
        Policies(0).GroupUserName = DropDownList1.SelectedItem.Text
        Policies(0).Roles = New Microsoft.SqlServer.ReportingServices2005.Role(0) {}
        Policies(0).Roles(0) = New Microsoft.SqlServer.ReportingServices2005.Role
        Policies(0).Roles(0).Name = ListBox1.SelectedItem.Text
        machin = rs.GetPolicies(Item, True)
        newPolicies = AddNewPolicy(Policies(0), machin)
        rs.SetPolicies(Item, newPolicies)
    End Sub
 
    Private Function AddNewPolicy(ByVal policyToAdd As Microsoft.SqlServer.ReportingServices2005.Policy, ByVal policies() As Microsoft.SqlServer.ReportingServices2005.Policy) As Microsoft.SqlServer.ReportingServices2005.Policy()
        If Not (policies Is Nothing) Then
            Dim policy As Microsoft.SqlServer.ReportingServices2005.Policy
            For Each policy In policies
                If policy.GroupUserName = policyToAdd.GroupUserName Then
                    Throw New Exception("L'autorisation existe déjà pour ce groupe")
                End If
            Next policy
            Dim list As New System.Collections.ArrayList(policies)
            list.Add(policyToAdd)
            Return CType(list.ToArray(GetType(Microsoft.SqlServer.ReportingServices2005.Policy)), Microsoft.SqlServer.ReportingServices2005.Policy())
        Else
            policies = New Microsoft.SqlServer.ReportingServices2005.Policy(0) {}
            policies(0) = policyToAdd
            Return policies
        End If
    End Function

En sachant que:
-Tu as déjà récupéré les groupes de la machines dans la DropDownList1
-Tu as récupéré les rôles de Reporting Services dans la ListBox1

Voili Voilou