Category: cluster

Verificar se um cluster Domino está todo "sincronizado" é trabalhoso. Existe uma ferramenta para analisar o cluster no Domino Administrator mas se um relatório mais detalhado for necessário a ferramenta não disponibiliza.
Achei um código que gera uma planilha, comparando os diretórios de dois servidores. As informações dos bancos de dados podem ser facilmente trocadas.
O script analisa, basicamente informações importantes para servidores de correio em cluster.
O código está abaixo pode ser colocado em um agente ou botão. Para evitar erros de acesso é bom executar como Full Administrator.

Sub Initialize
       
        On Error Resume Next
       
        Dim session As New notessession
       
        Dim Sdbdirectory As NotesDbDirectory
        Dim Sdb As NotesDatabase
        Dim Sfilepath As String
       
        Dim Ddbdirectory As NotesDbDirectory
        Dim Ddb As NotesDatabase
       
        Dim SrcServ As String
        Dim DestServ As String
        Dim rows As Long
        Dim maxcols As Integer
       
       
        SrcServ=Inputbox$("Please enter the Source Server","Tools","Source Server")
        DestServ=Inputbox$("Please enter the Destination Server","Tools","Destination server")
        Sfilepath=Inputbox$("Please provide the folder path on source which needs to be checked e.g. mail or databases","Tools","mail")
       
       
'excel variable initialization
        Set xlApp = CreateObject("Excel.Application")
'start Excel with OLE Automation
        xlApp.StatusBar = "Creating WorkSheet. Please be patient..."
        xlApp.Visible = True
        xlApp.Workbooks.Add
        xlApp.ReferenceStyle = 2
        Set xlsheet = xlApp.Workbooks(1).        Worksheets(1) 'select first worksheet
'=================================
'worksheet title
       
        xlApp.StatusBar = "Creating Column Heading. Please be patient..."
       
        rows=2
        xlsheet.cells(rows,4)=SrcServ
        xlsheet.cells(rows,7)=DestServ
        rows=3
       
        xlsheet.Cells(rows,1).value="Database File  "
        xlsheet.Cells(rows,2).value="Title"
       
        xlsheet.Cells(rows,3).value="Mail Size (MB)"
        xlsheet.Cells(rows,4).value="Mail Quota  (MB)"
        xlsheet.Cells(rows,5).value="Warning Threshold  (MB)"
       
        xlsheet.Cells(rows,6).value="Mail Size (MB)"
        xlsheet.Cells(rows,7).value="Mail Quota  (MB)"
        xlsheet.Cells(rows,8).value="Warning Threshold  (MB)"
        maxcols=8
        rows=4
'=========================
       
       
        Set Sdbdirectory=session.GetDbDirectory(SrcServ)
        Set Ddbdirectory=session.GetDbDirectory(DestServ)
       
        Set Sdb=Sdbdirectory.GetFirstDatabase(DATABASE)
       
        While Not   Sdb Is Nothing
                repid=Sdb.ReplicaID
                tmpFilename= Strleftback(Sdb.FilePath,"")
               
                If tmpFilename=Sfilepath Then
                       
                        Set Ddb=New notesdatabase("","")
                        flag  DDb.OpenByReplicaID(DestServ,repid)
                       
                        If flag=True  Then
                               
                                xlsheet.Cells(rows,1).Value = Sdb.FileName
                                xlsheet.Cells(rows,2).Value ="'"+ Sdb.Title
                               
                                xlsheet.Cells(rows,3).Value =(Sdb.size/1000000)
                                xlsheet.Cells(rows,4).Value =Sdb.SizeQuota/1024
                                xlsheet.Cells(rows,5).Value =sdb.SizeWarning/1024
                               
                                xlsheet.Cells(rows,6).Value =(Ddb.size/1000000)
                                xlsheet.Cells(rows,7).Value =Ddb.SizeQuota/1024
                                xlsheet.Cells(rows,8).Value =Ddb.SizeWarning/1024
                               
                               
                               
                                xlApp.StatusBar = "Importing Notes Data - Document " & rows-1  
                                Set DDb=Nothing    
                               
                        Else
                                xlsheet.Cells(rows,1).Value = Sdb.FileName
                                xlsheet.Cells(rows,2).Value ="'"+ Sdb.Title
                               
                                xlsheet.Cells(rows,3).Value =(Sdb.size/1000000)
                                xlsheet.Cells(rows,4).Value =Sdb.SizeQuota/1024
                                xlsheet.Cells(rows,5).Value =sdb.SizeWarning/1024
                               
                                xlsheet.Cells(rows,6).Value ="Missing on destination server"
                               
                                xlApp.StatusBar = "Importing Notes Data - Document " & rows-1  
                        End If
                        rows=rows+1
                End If
               
               
                Set Sdb=Sdbdirectory.GetNextDatabase()
               
        Wend
       
        xlApp.Rows("1:1").Select
        xlApp.Selection.Font.Bold = True
        xlApp.Selection.Font.Underline = True
        xlApp.Range(xlsheet.Cells(2,1),xlsheet.Cells(rows,maxcols)).Select
        xlApp.Selection.Font.Name = "Arial"
        xlApp.Selection.Font.Size = 9
        xlApp.Selection.Columns.AutoFit
        With xlApp.Worksheets(1)
                .PageSetup.Orientation = 2
                .PageSetup.centerheader = "Report - Confidential"
                .Pagesetup.RightFooter = "Page &P" & Chr$(13) & "Date: &D"
                Pagesetup.CenterFooter = ""
        End With
        xlApp.ReferenceStyle = 1
        xlApp.Range("A1").SelectxlApp.StatusBar = "Importing Data from Lotus Notes Application was Completed."
       
       
        Set xlapp=Nothing 'stop OLE
        Set db=Nothing
End Sub

cluster

Um erro comum que acontece em vários ambientes é aquele quando um usuário é removido do ambiente, sua caixa postal então não é apagada por diversos motivos, técnicos ou não.
Com o passar do tempo o Schedule Manager começa a gerar erros, principalmente quando o servidor é iniciado, informando que o dono (owner) de um banco de dados mailfulano.nsf existe mas o usuário Fulano/Acme não existe.
Fiz um agente que gera um relatório informando se existem caixas postais órfãs. O que o agente faz:
Ele procura as caixas postais, abre o banco de dados, localiza o nome do owner no profile da agenda (calendar profile) e verifica se o owner existe no Domino Directory. Se o usuário não existir um documento é criado.
Não coloquei um método para apagar o banco de dados pois podem aparecer "falsos positivos".  Executei este agente em dois servidores e apareceram somente 2 falsos positivos entre 400 bancos de dados que teriam de ser realmente apagados.
É necessário criar um Formulário com alguns campos e uma visão para exibir o resultado

Formulário: usuario

Image:Caixas Postais Órfãs
O agente tem o código abaixo


Sub Initialize
       Dim db As NotesDatabase
       Dim ses As NotesSession
       Dim doc As NotesDocument
       Dim docUsu As NotesDocument
       Dim dbdir As NotesDbDirectory
       Dim maildb As NotesDatabase
       Dim Nab As NotesDatabase
       Dim col As NotesDocumentCollection
       Dim Nome As String
       Dim profile As NotesDocument
       Dim Data As New NotesDateTime("1/1/1980")
       Dim searchString As String
       Set ses = New NotesSession
       server = Inputbox ("Nome do Servidor) (Enter para Local)")
       subdir = Inputbox ("Em qual subdiretório o agente deve procurar as bases? ( Enter para todos os diretórios) ")
       If subdir <> "" Then subdir=subdir & ""
       Set db = ses.CurrentDatabase
       Set dbdir = ses.GetDbDirectory(server)
       Set Nab = ses.GetDatabase(server,"names.nsf")
       Set maildb = dbdir.GetFirstDatabase(DATABASE)        
       While Not (maildb Is Nothing)        
               If Instr(1,maildb.FilePath,subdir,5)<>0 Then
                       Call maildb.Open("","")
                       If maildb.IsOpen Then
                       'informações base correio  profile
                               Set profile = maildb.GetProfileDocument("CalendarProfile")
                               Nome = profile.Owner(0)
                       'procura usuário livro endereços
                               searchString = "Form = 'Person' & FullName='" & Nome & "'"
                               Set col = nab.Search(searchString,data,0)
                               If col.Count=0 Then
                                       Set  docUsu = db.CreateDocument
                                       docUsu.Form = "usuario"
                                       docUsu.NmUsu = Nome
                                       docUsu.ArqMail = maildb.FilePath
                                       docUsu.UtmMdf=maildb.LastModified
                                       Call docUsu.save (True,False)
                               End If
                       End If
               End If
               Set maildb = dbdir.getnextdatabase
       Wend
       
End Sub

cluster

Após configurar dois servidores Domino 8.5 (Linux SLSES 10) e replicar todos os bancos de dados a nova etapa é fazer tunning dos servidores.
Para que o Cluster funcione corretamente é necessário ajustar o parâmetro SERVER_TRANSINFO_RANGE=n no notes.ini que por default tem o valor de 6.
Este valor default vale para máquinas não tão boas, mas máquinas modernas com vários cores é necessário ajustar este parâmetro para que o seu índice não fique sempre em zero (0 = servidor ocupado e 100 = servidor disponível). Este ajuste é importante para definir também o ponto onde um servidor vai ser considerado ocupado para que ele redirecione requisições para o outro membro do Cluster. No meu caso o ajuste foi -> SERVER_TRANSINFO_RANGE=9.
Para entender como chegar a este valor veja uma apresentação feita no Lotusphere 2009 por Paul Mooney

cluster

A configuração do ICM (Internet Cluster Manager) é uma tarefa relativamente simples. Algumas configurações de ICM são bem simples, por exemplo as que tem somente um ICM e este ICM está dentro do Cluster do Domino.
Realizamos hoje uma configuração que é composta de dois servidores Domino atuando como ICM  para um cluster de 04 servidores Domino de Correio.
Além das configurações normais uma variável nova: NLB da Microsoft como solução de balanceamento (não usamos o DNS Round Robin)
Estamos testando e até agora não tivemos problemas. Para ver como configurar 02 ICM's para um Cluster Domino veja o TN 1101534

cluster

Estou preparando 4 servidore para funcinarem em cluster Domino. Uma das preocupações é com a marca de não lidos pois por padrão do Domino cria caixas postais com a opção de não replicar estas marcas. Em um ambiente em cluster estas marcas, por opção do cliente, devem ser replicadas entre os servidores.
Como são muitos os bancos de dados e a tarefa desing não altera esta propriedade, mesmo que a atualizemos no template,  fiz um agente para configurar a propriedade do banco de dados. A relação das propriedades que podem ser modificadas via LotusScript pode ser vista no TN 1244071
Basta criar um banco de dados e colocar um agente com o código abaixo:

Sub Initialize
        Dim db As NotesDatabase
        Dim ses As New NotesSession
        Dim doc As NotesDocument
        Dim dbdir As NotesDbDirectory
        Dim maildb As NotesDatabase
        server = Inputbox ("Nome do Servidor) (Enter para Local)")
        subdir = Inputbox ("Em qual subdiretório o agente deve procurar as bases? ( Enter para todos os diretórios) ")
        If subdir <> "" Then subdir=subdir & ""
        Set db = ses.CurrentDatabase
        Set dbdir = ses.GetDbDirectory(server)        
        Set maildb = dbdir.GetFirstDatabase(DATABASE)
        i = 0
        While Not (maildb Is Nothing)        
                If Instr(1,maildb.FilePath,subdir,5)<>0 Then
                        i = i + 1
                        Call maildb.Open("","")
                        If maildb.IsOpen Then
                                Set doc = maildb.GetDocumentByID("FFFF0010")
                                doc.~$Flags=doc.~$Flags(0) & "Q"
                                doc.~$FlagsNoRefresh="Q"
                                Call doc.save (True,False)
                        End If
                End If
                Set maildb = dbdir.getnextdatabase
        Wend
        Msgbox ("Foi (ram) modificado (s)  "+ i +" banco(s) de dados!" )
End Sub

cluster