Hello! Is possible to include database quota in domain catalog task? We need report - which quotas have users on their mailboxes.
Domino server v.8.5.2
Domain Catalog template v.8.5.
Subject: Admin client, or DIY with db.SizeQuota . . .
Have you looked at the “Files” tab in Domino Administrator: This includes columns for Quota size & warning size.
Alternatively you can code a Agent etc. to ‘audit’ databases on a server and output a document (into an ‘audit’ database) for each one. Then add some Views to the audit database to report on what you need.
Here are some bits of code that might help (to be run from within the ‘audit database’):
Dim lptrSession As New NotesSession
Dim lptrDBDirectory As NotesDBDirectory
Dim lobjAuditDatabase As NotesDatabase
Dim lobjCurrentDatabase As NotesDatabase
Dim lstrServerName, lstrCurrentDatabaseTitle, lstrCurrentDatabaseType As String
Dim llngDatabasesProcessed As Long
lstrServerName = “<enter your Mail Server/OU/Org>”
Const lcstrAuditFormName = “”
Set lobjAuditDatabase = lptrSession.CurrentDatabase
Set lptrDBDirectory = New NotesDbDirectory( lstrServerName )
Set lobjCurrentDatabase = lptrDBDirectory.GetFirstDatabase( DATABASE )
Print “Auditing all databases on server '” & lstrServerName & “'.”
llngDatabasesProcessed = 0
While Not lobjCurrentDatabase Is Nothing
Doevents
llngDatabasesProcessed = llngDatabasesProcessed + 1
lstrCurrentDatabaseTitle = lobjCurrentDatabase.Title
Print “Auditing database #” & llngDatabasesProcessed & " (" & lstrCurrentDatabaseTitle & “).”
'Get the database type (template or NSF):
If lobjCurrentDatabase.TemplateName = “” Then
lstrCurrentDatabaseType = "NSF"
Else
lstrCurrentDatabaseType = "NTF"
End If
'Create a new audit entry and populate its fields:
Set lobjCurrentAuditDocument = lobjAuditDatabase.CreateDocument
lobjCurrentAuditDocument.Form = lcstrAuditFormName
lobjCurrentAuditDocument.DatabaseTitle = lstrCurrentDatabaseTitle
lobjCurrentAuditDocument.DatabaseServer = lobjCurrentDatabase.Server
lobjCurrentAuditDocument.DatabaseLocation = lobjCurrentDatabase.FilePath
lobjCurrentAuditDocument.DatabaseReplicaID = lobjCurrentDatabase.ReplicaID
lobjCurrentAuditDocument.DatabaseSizeBytes = lobjCurrentDatabase.Size
lobjCurrentAuditDocument.DatabaseSizeQuotaBytes = lobjCurrentDatabase.SizeQuota
lobjCurrentAuditDocument.DatabaseMaxSizeBytes = lobjCurrentDatabase.MaxSize
lobjCurrentAuditDocument.DatabasePercentUsed = lobjCurrentDatabase.PercentUsed
lobjCurrentAuditDocument.DatabaseType = lstrCurrentDatabaseType
lobjCurrentAuditDocument.DatabaseTemplateName = lobjCurrentDatabase.DesignTemplateName
If lobjCurrentDatabaseFromSession.IsFTIndexed = True Then
lobjCurrentAuditDocument.DatabaseIsFTIndexed = "Yes"
Else
lobjCurrentAuditDocument.DatabaseIsFTIndexed = "No"
End If
lobjCurrentAuditDocument.ComputeWithForm False, False
lobjCurrentAuditDocument.Save True, False
Set lobjCurrentDatabase = lptrDBDirectory.GetNextDatabase()
Wend
Print “Audit completed: " & llngDatabasesProcessed & " databases processed.”
Subject: tx, i’ll try