Verificando Mail 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