Does anyone have any experience in using DSO for creating cube roles?

Any code exampels would be great..

Set oCube = oDbUser.MDStores(oRs.Fields("CubeName"))
oCube.Roles.AddNew strRoleName
oCube.Update
If oCube.IsReadWrite Then
Set oRole = oCube.Roles(strRoleName)
oRole.SetPermissions "Access", "RW"
oRole.SetPermissions "AllowDrillThrough", strAllowDrillthrough
oCube.Update
End If
Set oCube = Nothing


--
Cheers,
Mike

Another rock-ribbed geek on the earth...
http://chagel.com


"Seiko Pod" <maben (AT) danskebank (DOT) dk> wrote

Thanks,

I will be a bit more specific.

I need to make a "custom rule" for a role i AS by chosing "Custom
settings", then the Advanced tab and under "Allowed Members".

How do i programatically set this "Allowed Members" option?

Find a copy of the SQL Server 2000 Resource Kit.
On it, there is a tool called the "metadata scripter".
It generates a VB6 program from an AS object. You install the scripter,
which is an extension to the AM right-click menu, select the object and the
"Script" -- it generates a VB6 DSO program would will re-create the object.
In your case, a role. You set it up with AM interactively, then script out
the role.
--
Dave Wickert [MSFT]
dwickert (AT) online (DOT) microsoft.com
Program Manager
BI Systems Team
SQL BI Product Unit (Analysis Services)
--
This posting is provided "AS IS" with no warranties, and confers no rights.


"Seiko Pod" <maben (AT) danskebank (DOT) dk> wrote