повторюсь, DSO вам поможет.
вот вам на VBScript пример изменения строки соединения DataSourse:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Public Sub ChangeDataSource()
Dim dsoServer
Dim dsoDataBase
Dim dsoDataSource
Set dsoServer = CreateObject("DSO.Server")
SaveToLog Создали объект DSO.Server
dsoServer.Connect OLAP_SERVER_NAME
SaveToLog "Подсоединились к серверу " & OLAP_SERVER_NAME
Set dsoDataBase = dsoServer.MDStores(OLAP_DB_NAME)
SaveToLog "Подсоединились к базе " & OLAP_DB_NAME
Set dsoDataSource = dsoDataBase.DataSources(OLAP_DATA_SOURCE_NAME)
SaveToLog "Подсоединились к DataSource " & OLAP_DATA_SOURCE_NAME
dsoDataSource.ConnectionString = "Provider=" & ds_PROVIDER & ";" & _
"Data Source=" & ds_DATASOURCE & ";" & _
"User ID=" & ds_USER & ";" & _
"Password=" & ds_PASSWORD & ";"
dsoDataSource.Update
SaveToLog "Закомитили обновления"
dsoServer.CloseServer
SaveToLog "Отсоединились от сервера"
Set dsoDataSource = Nothing
Set dsoDataBase = Nothing
Set dsoServer = Nothing
End Sub
наименования серваков, пароли, явки и т.д. укажите свои.
скрипт запускать после того как восстановите базу с кубами.
