Autor Thema: Dokumentengroessen aller DBs ermitteln  (Gelesen 955 mal)

Offline Gulliver

  • Junior Mitglied
  • **
  • Beiträge: 75
  • Geschlecht: Männlich
  • Das hat's alles früher teilweise gar nicht gegeben
Dokumentengroessen aller DBs ermitteln
« am: 04.07.02 - 13:30:23 »
Hi all!

Ich hab da mal so ein Problem, was es eigentlich nie geben würde, wenn da nicht die Kaufmänner ...

Zur Entscheidung, ob ein Archivsystem für unseren Notes-Server etwas bringt, soll eine Statistik über die Größe der Dokumente in allen Datenbanken angefertigt werden.

Kurz gesagt: ich suche ein Script, was mir alle DBs auf dem Server abklappert und die Durchschnittliche Doc - Größe festhällt.

hat jemand so etwas verrücktes schon einmal gesehen?  :-/
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.728
  • Geschlecht: Männlich
Re: Dokumentengroessen aller DBs ermitteln
« Antwort #1 am: 04.07.02 - 13:43:26 »
Was es nicht alles gibt.  ;D

nun, du kannst mit der NotesDatabaseClass und der NotesDocumentCollection Class die Anzahl der Documente ermitteln.
Und wenn du dann noch die Property "size" der NotesDocumentclass verwendest, kannst du für jede Datenbank die durchschnittliche Dokumenten grösse ermitteln.

Jetzt musst du nur noch dein Script über alle Datenbanken im Mailverzeichnis laufen lassen und schon biste fertig  ;D ;D ;D
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.728
  • Geschlecht: Männlich
Re: Dokumentengroessen aller DBs ermitteln
« Antwort #2 am: 04.07.02 - 13:46:57 »
hier schon mal beispielhaft der code um die Anzahl aller Dokumente in einer DB zu ermitteln

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim n As Integer
Set db = session.CurrentDatabase
Set collection = db.AllDocuments
n = collection.Count

« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz