powered by simpleCommunicator - 2.0.44     © 2025 Programmizd 02
Форумы / OLAP и DWH [игнор отключен] [закрыт для гостей] / управление ролями в AS с использованием VBA
9 сообщений из 9, страница 1 из 1
управление ролями в AS с использованием VBA
    #32094106
Dimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
есть в AS "роль куба", есть в NT "группа пользователей куба", мне необходим скритп на VBA, который бы прописывал в membership role "роль куба" группу "группа пользователей куба" на сервере "OLAP сервер".
Я нашел в VBA несколько функций DSO для работы с ролями, но совладать с ними никак не могу :( (знаний по VBA не хватает). каков синтаксис скрипта на VBA для моей задачки?
пасибо...
...
Рейтинг: 0 / 0
управление ролями в AS с использованием VBA
    #32094158
Cepera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Посмотри:\r
\r
/topic/16331
...
Рейтинг: 0 / 0
управление ролями в AS с использованием VBA
    #32094166
Dimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
смотрел, пробовал... пишет: "ошибка, предполагается наличие окончания функции"
...
Рейтинг: 0 / 0
управление ролями в AS с использованием VBA
    #32094177
Cepera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дык ты бы хоть пример привел, чего да как используешь, а то так очень сложно давать советы
...
Рейтинг: 0 / 0
управление ролями в AS с использованием VBA
    #32094188
Dimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
примерно так:


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;
...
Рейтинг: 0 / 0
управление ролями в AS с использованием VBA
    #32094378
Cepera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я сам на 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
...
Рейтинг: 0 / 0
управление ролями в AS с использованием VBA
    #32094426
Dimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
это понятно, основная проблема в том, что я беру данный пример сохраняю его в файл vbs и пытаюсь так запустить он, естественно, не работает. Ошибка: "предполагается наличие окончания функции" - всегда выскакивает при определении переменной на слове "as ...", такая проблема у меня при попытке запустить любой пример из хелпа...
так как мне запустить скрипт?

З.Ы. с vbs работаю впервые, просьба не пинать ...
...
Рейтинг: 0 / 0
управление ролями в AS с использованием VBA
    #32094556
Cepera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
VBA и VBS - разные вещи: VBA - Visual Basic for Aplication, VBS - Visual Basic Script. Попробуй для создания com объекта в VBS использовать, например, следующую конструкцию
Set MyComObject = WScript.CreateObject("DSO.Role")
А что мешает использовать JScript?
...
Рейтинг: 0 / 0
управление ролями в AS с использованием VBA
    #32094568
Dimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спасибо, я уже попробовал JS и на нем получилось! 8-)

мне, в принципе, все равно что использовать, найденный пример на JS мне удалось запустить, и я уже написал свой скрипт на JS под свою задачу и все работает...
удачи
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / OLAP и DWH [игнор отключен] [закрыт для гостей] / управление ролями в AS с использованием VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]