'pour supprimer une association role SSRS - groupe
Dim rs AsNew Microsoft.SqlServer.ReportingServices2005.ReportingService2005
Dim pol()As Microsoft.SqlServer.ReportingServices2005.Policy
Dim policy As Microsoft.SqlServer.ReportingServices2005.Policy
Dim role AsNew Microsoft.SqlServer.ReportingServices2005.Role
Dim item2 AsObject
Dim Item AsString = "/"
Dim p, k, n AsInteger
Dim maliste AsNew arraylist
        rs.Credentials = System.Net.CredentialCache.DefaultCredentials()
        pol = rs.GetPolicies(Item, True)
Dim Policies(pol.Length - 1)As Microsoft.SqlServer.ReportingServices2005.Policy
        n = 0
        k = 0
'pour chaque instance de sécurité
ForEach policy In pol
If policy.GroupUserName <> Environment.MachineName & "\" & DropDownListgpe.selecteditem.textThen
                ListBox1.Items.Add(policy.GroupUserName)
                Policies(n) = New Microsoft.SqlServer.ReportingServices2005.Policy
                Policies(n).GroupUserName = policy.GroupUserName
'on défnit le nombre de rôle(s)
                Policies(n).Roles = New Microsoft.SqlServer.ReportingServices2005.Role(policy.roles.Length - 1){}
 
ForEach role In policy.Roles
                    ListBox2.Items.Add(role.Name)
                    maliste.add(role.name)
Next
 
For p = 0To policy.roles.Length - 1
                    Policies(n).Roles(p) = New Microsoft.SqlServer.ReportingServices2005.Role
                    Policies(n).Roles(p).Name = maliste.item(k).ToString
Next p
 
                k = k + policy.roles.Length
                n = n + 1
EndIf
Next
 
'on refait la sécurité
        rs.SetPolicies(Item, Policies)