Войти
 
 
   
 
  
Новости Notes.ру Библиотека Биржа труда Вопрос - ответ Форум Регистрация Поиск О проекте
Разделы
О Notes
Советы
Шаблоны и примеры
Литература
Презентации
 
Всё о задаче AdminP. Часть вторая   Во второй части мы завершаем рассмотрение AdminP. В ней рассмотрены запросы междоменного администрирования и способы управления функциями AdminP с помощью настроек документа сервера, команд консоли сервера, файла Notes.ini и интервалов очистки базы данных. В этой статье предполагается, что вы опытный администратор Domino и прочитали первую часть
О Notes Читать статью
 
Всё о задаче AdminP. Proxy-действия в R5 и Domino 6   Приложение к статье об административном процессе
О Notes Читать статью
 
Всё о задаче AdminP. Часть первая   Перевод классической статьи 2003-его года о задаче административного процесса (AdminP). Очень полезна для понимания работы механизма этой задачи. В первой части статьи описаны компоненты задачи AdminP, как они работают, и как их использование помогает сделать работу администратора Domino проще. Задача AdminP (сакращённо от Administration Process, Административный процесс) работает с базой административных запросов (Administration Requests, admin4.nsf)
О Notes Читать статью
 


Советы

Главная   Библиотека   Советы

Пакетное создание реплик с сервера на сервер или локальных реплик

Григорий Брумберг,
ОАО Вымпелком, Москва
Случаи, когда необходимо перенести структуру баз данных с одного сервера на другой, не так уж редки в практике администратора. Связаны они, в большинстве случаев, с миграцией ресурсов сервера Domino на новые серверы
Задача Admin Process, автоматизирующая подобные действия, требует дополнительной настройки в случае, когда серверы расположены в различных деревьях имен (выпуск кросс-сертификатов, создание документов Connection и прочее). Эта работа оказывается благодарной, если серверам какое-то время придется "жить вместе"
В случаях, если серверы в дальнейшем не планируется использовать во взаимодействии, автору часто помогает следующий код. Используйте его в соответствующем агенте
Это решение может быть полезно и при необходимости создать реплики на локальной станции пользователя

Sub Initialize
Dim s As New NotesSession
Dim folder As NotesDbDirectory


Dim serv As String
Dim path As String


Dim db As NotesDatabase
Dim repdb As NotesDatabase
Dim trepdb As NotesDatabase


Dim FiletoOpen As String, Findbang As Integer, newserver As String, newpathprefix As String

newserver=<Иерархическое имя сервера, на котором создаются реплики баз, укажите пустую строку для создания локальных реплик>
serv=
<Иерархическое имя сервера-источника>
path=
<Каталог данных, в котором размещены базы, например, "*mail\*">
newpathprefix =
<Каталог сервера-приемника, в котором размещаются реплики>
Set folder=s.GetDbDirectory(serv)
Print ">>folder get on " & folder.Name
Set db=folder.GetFirstDatabase(DATABASE)

On Error 4060 Goto err4060hnd
On Error Goto errhnd

While Not db Is Nothing
If Lcase(db.Filepath) Like path Then
Print ">>beginning with " & db.Title
FiletoOpen = db.FilePath
Findbang = Instr( FiletoOpen, "!!")
If Findbang <> 0 Then
FiletoOpen = Right(FiletoOpen, Len(FiletoOpen) - Findbang - 1)
End If
Dim tdb As New NotesDatabase (serv, FiletoOpen)
If Not tdb.isOpen Then
Msgbox "Could not open " & db.Title
Else
Set trepdb=s.getdatabase(newserver, newpathprefix & FiletoOpen, False)

' Проверяется только на наличие файла по пути. Если необходимо - можно проверить
' наличие реплики по flag = notesDatabase.OpenByReplicaID( server$, replicaID$ )

If trepdb Is Nothing Then
Set repdb = tdb.CreateReplica( newserver, newpathprefix & FiletoOpen)
Print ">> " & repdb.Title & " created."
Else
Print ">>Database " & trepdb.FilePath & "already exists!"
End If
End If
End If

redlabel:
Set db=folder.GetNextDatabase
Wend

Msgbox "Done!"
Exit Sub
err4060hnd:
Msgbox "Have no access to " & tdb.Title & "!"
Goto redlabel
errhnd:
Msgbox "Line: " & Cstr(Erl) & " - " & Error(Err)
Goto redlabel
End Sub


Best regards
Grigory (Girsha) Brumberg
 
  Опубликовано — 12/30/2003 |    


Мероприятия
Пресс-релизы
Биржа труда
Последнее на форуме
 
А так же:
Как удалить профиль?
16.04.2016 00:08:51
Скопировать в буфер поле документа
24.05.2015 08:55:52
Импорт DXL-описания документов в Lotus Domino. Одноимённые поля
16.04.2015 16:49:58
 
© LOGOSPHERE.RU