|
управление ролями в AS с использованием VBA
|
|||
---|---|---|---|
#18+
есть в AS "роль куба", есть в NT "группа пользователей куба", мне необходим скритп на VBA, который бы прописывал в membership role "роль куба" группу "группа пользователей куба" на сервере "OLAP сервер". Я нашел в VBA несколько функций DSO для работы с ролями, но совладать с ними никак не могу :( (знаний по VBA не хватает). каков синтаксис скрипта на VBA для моей задачки? пасибо... ... |
|||
:
Нравится:
Не нравится:
|
|||
21.01.2003, 15:31 |
|
управление ролями в AS с использованием VBA
|
|||
---|---|---|---|
#18+
Посмотри:\r \r /topic/16331 ... |
|||
:
Нравится:
Не нравится:
|
|||
21.01.2003, 16:21 |
|
управление ролями в AS с использованием VBA
|
|||
---|---|---|---|
#18+
смотрел, пробовал... пишет: "ошибка, предполагается наличие окончания функции" ... |
|||
:
Нравится:
Не нравится:
|
|||
21.01.2003, 16:35 |
|
управление ролями в AS с использованием VBA
|
|||
---|---|---|---|
#18+
Дык ты бы хоть пример привел, чего да как используешь, а то так очень сложно давать советы ... |
|||
:
Нравится:
Не нравится:
|
|||
21.01.2003, 16:46 |
|
управление ролями в AS с использованием VBA
|
|||
---|---|---|---|
#18+
примерно так: var dsoServer = new ActiveXObject('DSO.Server'); var dsoDB = new ActiveXObject('DSO.MDStore'); var dsoCube = new ActiveXObject('DSO.Cube'); var dsoRole = new ActiveXObject('DSO.Role'); var srvName = 'OLAPN'; var dbName = 'FR_DWA'; var cubeName = 'FR'; dsoServer.Connect(srvName); if (dsoServer.MDStores.Find(dbName)) { dsoDB = dsoServer.MDStores(dbName); dsoRole = dsoDB.Roles.AddNew('testRole'); dsoRole.UsersList = 'OLAPN\\q'; dsoRole.Update(); dsoCube = dsoDB.MDStores(cubeName); dsoRole = dsoCube.Roles.Add('testRole'); dsoCube.Update(); }; dsoServer.Close; ... |
|||
:
Нравится:
Не нравится:
|
|||
21.01.2003, 17:06 |
|
управление ролями в AS с использованием VBA
|
|||
---|---|---|---|
#18+
Я сам на VB не пишу, но ошибки синтаксиса налицо, сравни хотя бы с этим ( BOL ): 'Assume an object (dsoDB) of ClassType clsDatabase exists. 'Create database roles. Dim DbRole_FinanceMgrs As DSO.Role Dim DbRole_ProductionMgrs As DSO.Role Dim DbRole_SalesMgrs As DSO.Role Set DbRole_FinanceMgrs = dsoDB.Roles.AddNew("FinanceManagers") Set DbRole_ProductionMgrs = dsoDB.Roles.AddNew("ProductionManagers") Set SbRole_SalesMgrs = dsoDB.Roles.AddNew("SalesManagers") 'Define user lists for database roles. '(In a real-world situation, actual user names would be 'used in place of titles like "President".) DbRole_FinanceMgrs.UsersList = "President;VP_Finance" DbRole_ProductionMgrs.UsersList = "President;VP_Production" DbRole_SalesMgrs.UsersList = "President;VP_Sales" 'Update the repository for the database roles. DbRole_FinanceMgrs.Update DbRole_ProductionMgrs.Update DbRole_SalesMgrs.Update 'Assume objects (Cube95, Cube96 and Cube97) of ClassType clsCube exist 'Create cube roles. Cube role names must be identical 'to the corresponding database role names. Dim CubeRole_FinanceMgrs As DSO.Role Dim CubeRole_ProductionMgrs As DSO.Role Dim CubeRole_SalesMgrs As DSO.Role 'Add roles to Cube95. Set CubeRole_FinanceMgrs = Cube95.Roles.AddNew("FinanceManagers") Set CubeRole_ProductionMgrs = Cube95.Roles.AddNew("ProductionManagers") Set CubeRole_SalesMgrs = Cube95.Roles.AddNew("SalesManagers") 'Add roles to Cube96. Set CubeRole_FinanceMgrs = Cube96.Roles.AddNew("FinanceManagers") Set CubeRole_ProductionMgrs = Cube96.Roles.AddNew("ProductionManagers") Set CubeRole_SalesMgrs = Cube96.Roles.AddNew("SalesManagers") 'Add roles to Cube97. Set CubeRole_FinanceMgrs = Cube97.Roles.AddNew("FinanceManagers") Set CubeRole_ProductionMgrs = Cube97.Roles.AddNew("ProductionManagers") Set CubeRole_SalesMgrs = Cube97.Roles.AddNew("SalesManagers") 'Update the repository for the cubes. Cube95.Update Cube96.Update Cube97.Update ... |
|||
:
Нравится:
Не нравится:
|
|||
22.01.2003, 08:54 |
|
управление ролями в AS с использованием VBA
|
|||
---|---|---|---|
#18+
это понятно, основная проблема в том, что я беру данный пример сохраняю его в файл vbs и пытаюсь так запустить он, естественно, не работает. Ошибка: "предполагается наличие окончания функции" - всегда выскакивает при определении переменной на слове "as ...", такая проблема у меня при попытке запустить любой пример из хелпа... так как мне запустить скрипт? З.Ы. с vbs работаю впервые, просьба не пинать ... ... |
|||
:
Нравится:
Не нравится:
|
|||
22.01.2003, 10:47 |
|
управление ролями в AS с использованием VBA
|
|||
---|---|---|---|
#18+
VBA и VBS - разные вещи: VBA - Visual Basic for Aplication, VBS - Visual Basic Script. Попробуй для создания com объекта в VBS использовать, например, следующую конструкцию Set MyComObject = WScript.CreateObject("DSO.Role") А что мешает использовать JScript? ... |
|||
:
Нравится:
Не нравится:
|
|||
22.01.2003, 13:00 |
|
управление ролями в AS с использованием VBA
|
|||
---|---|---|---|
#18+
спасибо, я уже попробовал JS и на нем получилось! 8-) мне, в принципе, все равно что использовать, найденный пример на JS мне удалось запустить, и я уже написал свой скрипт на JS под свою задачу и все работает... удачи ... |
|||
:
Нравится:
Не нравится:
|
|||
22.01.2003, 13:10 |
|
|
start [/forum/topic.php?fid=49&fpage=415&tid=1873578]: |
0ms |
get settings: |
11ms |
get forum list: |
12ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
24ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
46ms |
get tp. blocked users: |
2ms |
others: | 253ms |
total: | 371ms |
0 / 0 |