Lotus Notes / Domino Sonstiges > Tools & Downloads

Mail Quota Entries

<< < (2/2)

Driri:
Spontan fallen mir zwei Dinge ein, warum das Script evtl. nicht alle DBs erwischt :

- mangelnde Berechtigung des Agents
- im Script wird ein Counter verwendet, der Range reicht nicht aus für die Menge an Datenbanken

ajo:
An der Berechtigung liegts nicht, wird mit der Server-ID ausgeführt.

Hier mal das Script:

Sub Initialize
   Dim session As New NotesSession   
   Dim directory As NotesDBDirectory
   Dim thisdb As NotesDatabase
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim vc As NotesViewEntryCollection
   
   Set thisdb = session.CurrentDatabase
   Set directory = New NotesDBDirectory(thisdb.Server)
   Set db = directory.GetFirstDatabase(DATABASE)
   
   NoAccess = False
   Print "Starting checking quota..."
   
   While Not (db Is Nothing)
      
      On Error Goto NoAccessToDB
      
      Call db.Open("", "")
      
      If NoAccess <> True Then
         
         dbsize = (db.size)/1024/1024
         Set dbqdoc = thisdb.CreateDocument
         
         dbqqdoc.Form = "dbqentry"
         dbqdoc.Mail_Title = db.Title
         dbqdoc.Mail_Filename = db.FilePath
         dbqdoc.Mail_quota= db.SizeQuota
         dbqdoc.Mail_size=dbsize
         dbqdoc.Mail_server = db.Server
         Print "Checking quota for " & db.Title
         
         Call dbqdoc.Save(True, True)      
         
      Else
         NoAccess = False
      End If
      Set db = directory.GetNextDatabase
   Wend
   
   Exit Sub
   
NoAccessToDB:
   Set dbqdoc = thisdb.CreateDocument   
   dbqdoc.Form = "dbqentry"
   dbqdoc.Mail_Title = "* Access Denied - " + db.Title
   dbqdoc.Mail_Filename = db.FilePath
   
   Call dbqdoc.Save(True, True)      
   
   NoAccess = True
   Resume Next
   Print "Ended checking quota..."
End Sub

HipSlu:
mit der datenbank "get db info" kannst du unter anderem das quota aller datenbanken - auch einer ganzen domain - auslesen:
http://www.konfabulieren.com/2004/11/03/getdbinfo/

Navigation

[0] Themen-Index

[*] Vorherige Sete