Das Notes Forum
Lotus Notes / Domino Sonstiges => Tools & Downloads => Thema gestartet von: ajo am 26.11.04 - 13:21:29
-
Hallo.
Hab mir aus der Sandbox ne Datenbank runtergeladen, die mir die Quotas aller Mail DB´s eines Servers listet. Allerdings bekomm ich die Auswertung immer nur für ca. die Hälfte aller Datenbanken.
Kann´s am Release liegen ? Die DB ist für Version 5, meine Server sind alle 6.5x.
Alex
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/b97d9a4fece1db9f00256c38004ac905?OpenDocument&Highlight=0,xquota
-
Du kannst dir doch im 6.5er Adminclient die Quotas direkt anschauen, wozu da noch ein solches Tool ?
-
Ja klar, aber Cheffe will ne Gesamtauswertung haben, in der die aktuelle Datenbankgrösse und die Beschränkung angezeigt wird.
Jetzt sach nich ich soll Hardcopys im Admin Client machen.... ;D
-
Hehe, okay, den Hintergrund kannte ich natürlich nicht.
Btw : Du scheinst mit den Problemen da nicht alleine zu sein, wie die Kommentare in der Sandbox zeigen.
-
Jep, und ich glaub nich das der Autor da noch auf die Frage vom Nov. 2002 antwortet.... ;)
Deshalb hab ich´s mal hier gepostet.
Und der Grund für diese Auswertung ist, das hier einige Spezialisten unsere Grössenbeschränkung von 100 MB kritisieren und doch tatsächlich GMX Standard, also 1 GB Mailfile wollen....kein Kommentar.....
-
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
-
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
-
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/