var dsoServer = new ActiveXObject('DSO.Server');
dsoServer.Connect('LocalHost');

DIM dsoServer
dsoServer = DSO.Server;
dsoServer.Connect( "LocalHost" );

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 = 'LocalHost';
var dbName = 'FoodMart 2000';
var cubeName = 'HR';

dsoServer.Connect(srvName);
if (dsoServer.MDStores.Find(dbName))
{
	dsoDB = dsoServer.MDStores(dbName);
	dsoRole = dsoDB.Roles.AddNew('testRole');
	dsoRole.UsersList = 'LocalHost\\test';
	dsoRole.Update();
	dsoCube = dsoDB.MDStores(cubeName);
             dsoRole = dsoCube.Roles.Add('testRole');
 	dsoCube.Update();
};
dsoServer.Close;