Author: <span>kenio.carvalho</span>

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

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

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

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

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