Const olapLockProcess= 4 
Const processRefreshData= 2 
Const processFull= 1 

Dim dsoServer, dsoDB, dsoCube, dsoDBDim, dsoPart --Эта типа переменные серв. бд. куб. измерения и партиции соотв.
Dim OLAPSrvName, OLAPDBName, OLAPCubeName, OLAPDimName, OLAPPartName --А эта типа имена серв. бд. куб. измерения и партиции соотв.

-- Создаем объект
Set dsoServer=CreateObject("DSO.Server")
--Соединяемся с сервером
dsoServer.Connect OLAPSrvName 
--Ломимся в БД
Set dsoDB = dsoServer.MDStores(OLAPDBName)
--Определяем измерение
Set dsoDBDim=dsoDB.Dimensions(OLAPDimName)
--Лочим для процесса
dsoDBDim.LockObject olapLockProcess, "Locked for processing."
--Непосредственно процесс
dsoDBDim.Process processRefreshData
--Разлочиваем
dsoDBDim.UnlockObject

--После измерений приступаем к вод... процессу кубов/партиций. Это весь куб целиком
Set dsoCube=dsoDB.MDStores(OLAPCubeName)
--Лочим для процесса
dsoCube.LockObject olapLockProcess, "Locked for processing."
--Непосредственно процесс
dsoCube.Process processRefreshData
--Разлочиваем
dsoCube.UnlockObject

--Если куб партицирован то можно так
Set dsoPart=dsoCube.MDStores(OLAPCubeName)
-- И по накатанной схеме
dsoPart.LockObject olapLockProcess, "Locked for processing."
dsoPart.Process processRefreshData
dsoPart.UnlockObject

Set dsoDBDim=Nothing
Set dsoPart=Nothing
Set dsoCube=Nothing
Set dsoDB = Nothing
dsoServer.CloseServer
Set dsoServer = Nothing