per LScript Anzahl und Dateinamen der Mailboxen herausfinden

[DocNotes]

Hallo zusammen,

ich habe eine Anwendung, in der der Benutzer die Auswahl bekommen soll welche Mailboxen auf dem jeweiligen Server vorhanden sind und wie der Dateiname dazu lautet.

Ich habe schon versucht über DbDirectory zu arbeiten, aber dort bekomme ich die Mailboxen nicht  

Hat jemand eine Idee??

Code

Sub Click(Source As Button)
   On Error Goto ErrHandler
   
   Dim ws As New NotesUIWorkspace   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dbDir As NotesDbDirectory
   Dim uidoc As NotesUiDocument   
   Dim doc As NotesDocument
   
   Dim ServerName As String
   Dim FileName As String   
   Dim count As Integer
   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   
   ServerName = Trim(doc.FdServerName(0))
   If ( Ucase ( ServerName )= "LOKAL" ) Or  ( Ucase ( ServerName )= "LOCAL" ) Then ServerName = ""
   Print "Einlesen der Datenbanken von Server " & ServerName & " ... " 
   
   Set dbDir = New NotesDbDirectory ( ServerName )
   count = 0
   Set db = dbdir.GetFirstDatabase ( 1247 )
   While Not ( DB Is Nothing )
      FileName = db.FileName
      If Instr(1,FileName,".box",5) > 0 Then
                     'Hier würde ich gerne die Mailboxen als Database Objekte erhalten
                             Msgbox FileName
   
                             End If
      count = count + 1
      Set db = dbdir.GetNextDatabase    
   Wend   
   Print count & " Datenbanken gefunden!"
   Exit Sub
ErrHandler:
   Messagebox Error$ , 16, "Fehler"
   Exit Sub
End Sub

[Semeaphoros]

Zuverlässig nur möglich, indem man das Domino Directory auswertet.

[DocNotes]

wie meinst Du dass, über das FileSystem ?

Vielleicht hast Du ein kurzes Beispiel (Ansatz)

[Semeaphoros]

Domino Directory seit R5 war PubNAB, Public Name and Adressbook in R4, da steht alles im Personendokument drin.

[DocNotes]

ich meine nicht die Mailbox des Users, sondern die Mailboxen der Server (mail1.box, mail2.box, usw.)

[Semeaphoros]

Nicht zuverlässig machbar

[DocNotes]

schade  

[eknori]

na, jetzt enttäuscht ihr mich aber; die Anzahl der Mailboxen steht im Konfigurationsdokument des Servers im Domino Directory.
Und die Namen der Mail.Box(en) lassen sich doch bestimmt aus der Anzahl ableiten. Oder kann man die benennen, wie man lustig ist?

Nein, kann man nicht. Mailbox 1 heißt mail1.box und MailBox 2 ?

Richtig: mail2.box !!

Ulrich

[Semeaphoros]

Dann sag mir mal, wie Du zuverlässig das Config-Dok des Servers (allgemeingültig) findest? Da gibts Wildcard und Global-Möglichkeiten. Und was, wenn mehrere Config-Docs existieren, welches gilt dann? Sofern ein eindeutiges Config-Doc existiert und gefunden werden kann, hast Du recht.

[eknori]

ist ne gute FRage, Toppt das * Document das individuelle Serverdokument ??

[Semeaphoros]

Wenn ich das richtig im Kopf habe, nein. Default ist fallback. Aber das ist nicht die einzige Schwierigkeit, darüber hinaus gibt es dann noch die Gruppen-Dokumente und dann noch individuelle Server-Konfig-Dokumente. Und dann ist es leider auch noch möglich, dass zwei oder mehr identisch benamste Konfig-Docs existieren und in diesem Fall ist man definitiv aufgeschmissen, weil nicht sicher ist, welches von diesen Docs der Server gefunden hat. Bin jetzt nicht sicher, ob darüber hinaus auch noch Wildcards im Servernamen erlaubt sind, oder ob das hier nicht geht (Muster */server/Ligonet/CH)

[eknori]

hmm, ich glaube, ich gebe mich geschlagen

Ulrich

[eknori]

die PMs von Jens haben mich gerade auf die Idee gebracht, es mal über die Console zu versuchen.

Tell router config

der Router macht dann ein compact auf ( bei mir eine ) mail.box

er sollte es dann auch mit allen anderen Boxen ebenso machen, so daß man aus dem RückgabeWert sowohl Anzahl als auch Namen entnehmen könnte.

Kann das mal jemand mit mailboxen > 1 testen ??

[Semeaphoros]

Das tut er:

25.03.2004 19:51:53   Router: Wird heruntergefahren
25.03.2004 19:51:53   Router: Komprimierung der Mailbox-Datei mail1.box wurde gestartet
25.03.2004 19:51:56   Router: Komprimierung der Mailbox-Datei mail1.box abgeschlossen
25.03.2004 19:51:56   Router: Komprimierung der Mailbox-Datei mail2.box wurde gestartet
25.03.2004 19:51:58   Router: Komprimierung der Mailbox-Datei mail2.box abgeschlossen
25.03.2004 19:51:58   Router: Komprimierung der Mailbox-Datei mail3.box wurde gestartet
25.03.2004 19:52:00   Router: Komprimierung der Mailbox-Datei mail3.box abgeschlossen
25.03.2004 19:52:00   Router: Komprimierung der Mailbox-Datei mail4.box wurde gestartet
25.03.2004 19:52:03   Router: Komprimierung der Mailbox-Datei mail4.box abgeschlossen
25.03.2004 19:52:03   Router: Komprimierung der Mailbox-Datei mail5.box wurde gestartet
25.03.2004 19:52:05   Router: Komprimierung der Mailbox-Datei mail5.box abgeschlossen
25.03.2004 19:52:05   Router wurde wieder aktiviert.



A-Bär, das ist nur ein Teil der Wahrheit, nebst den Meldungen in "Verschiedene Ereignisse" zeigt er auf der Konsole direkt auch noch diese Meldungen, die in den Routingereignissen protokolliert werden:


25.03.2004 19:51:52   Router: Löschrümpfe aus Mailbox-Datei mail1.box werden entfernt
25.03.2004 19:51:52   Router: Löschrümpfe aus Mailbox-Datei mail2.box werden entfernt
25.03.2004 19:51:52   Router: Löschrümpfe aus Mailbox-Datei mail3.box werden entfernt
25.03.2004 19:51:52   Router: Löschrümpfe aus Mailbox-Datei mail4.box werden entfernt
25.03.2004 19:51:52   Router: Löschrümpfe aus Mailbox-Datei mail5.box werden entfernt
25.03.2004 19:51:52   Router: Übertragungswarteschlangen werden freigegeben (0)
25.03.2004 19:51:52   Router: Warten, bis 3 Übertragungs-Thread(s) beendet wurden. Derzeit sind 0 Threads inaktiv.
25.03.2004 19:51:52   Router: Warten, bis 1 Zustell-Thread(s) beendet wurden. Derzeit sind 0 Threads inaktiv.
25.03.2004 19:51:52   Router: Übertragungs-Thread 00000005 wird deaktiviert; 1 inaktive Threads
25.03.2004 19:51:52   Router: Übertragungs-Thread 00000007 wird deaktiviert; 2 inaktive Threads
25.03.2004 19:51:52   Router: Übertragungs-Thread 00000004 wird deaktiviert; 3 inaktive Threads
25.03.2004 19:51:52   Router: Zustell-Thread 00000006 wird deaktiviert; 1 inaktive Threads
25.03.2004 19:51:53   Router: Wird heruntergefahren
25.03.2004 19:51:53   Router: Freigabe der Übertragungswarteschlangen abgeschlossen (1)
25.03.2004 19:51:53   Router: Nachrichtenwarteschlangen werden freigegeben
25.03.2004 19:51:53   Router: Komprimierung der Mailbox-Datei mail1.box wurde gestartet
25.03.2004 19:51:56   Router: Komprimierung der Mailbox-Datei mail1.box abgeschlossen
25.03.2004 19:51:56   Router: Komprimierung der Mailbox-Datei mail2.box wurde gestartet
25.03.2004 19:51:58   Router: Komprimierung der Mailbox-Datei mail2.box abgeschlossen
25.03.2004 19:51:58   Router: Komprimierung der Mailbox-Datei mail3.box wurde gestartet
25.03.2004 19:52:00   Router: Komprimierung der Mailbox-Datei mail3.box abgeschlossen
25.03.2004 19:52:00   Router: Komprimierung der Mailbox-Datei mail4.box wurde gestartet
25.03.2004 19:52:03   Router: Komprimierung der Mailbox-Datei mail4.box abgeschlossen
25.03.2004 19:52:03   Router: Komprimierung der Mailbox-Datei mail5.box wurde gestartet
25.03.2004 19:52:05   Router: Komprimierung der Mailbox-Datei mail5.box abgeschlossen
25.03.2004 19:52:05   Router: Übertragungswarteschlangen werden erstellt
25.03.2004 19:52:05   Router: Maximal 5 Übertragungs-Threads erlaubt
25.03.2004 19:52:05   Router: Maximal 2 gleichzeitige Übertragungs-Threads an dasselbe Ziel erlaubt
25.03.2004 19:52:05   Router: Maximal 5 Zustell-Threads erlaubt
25.03.2004 19:52:05   Router: 3 von 3 Übertragungs-Threads werden aktiviert
25.03.2004 19:52:05   Router: 1 von 1 Zustell-Threads werden aktiviert
25.03.2004 19:52:05   Router: Zustell-Thread 00000006 wird gestartet
25.03.2004 19:52:05   Router: Übertragungs-Thread 00000005 wird aktiviert
25.03.2004 19:52:05   Router: Übertragungs-Thread 00000007 wird aktiviert
25.03.2004 19:52:05   Router: Übertragungs-Thread 00000004 wird aktiviert
25.03.2004 19:52:05   Router: Zustell-Thread 00000006 sucht nach Arbeit
25.03.2004 19:52:05   Router: Übertragungs-Thread 00000007 sucht nach Arbeit
25.03.2004 19:52:05   Router: Übertragungs-Thread 00000005 sucht nach Arbeit
25.03.2004 19:52:05   Router: Übertragungs-Thread 00000004 sucht nach Arbeit
25.03.2004 19:52:05   Router wurde wieder aktiviert.


******


Mach das mal auf einem wirklichen busy, produktiven Server (also gerade die, die zu mehreren Boxen tendieren), ich glaub nicht, dass der Admin Dein Freund wird .......


Die Idee ist aber wirklich exzellent.

[eknori]

ok, verifiziert aber, daß es trotz gegensätlicher Aussage irgendwo was in der API geben muß... auch ohne den ganzen HeckMeck mit router runter und wieder hoch.

Andere Idee: Anzahl der MehlDosen über das FileSystem ermitteln, dann versuchen lokal zu öffnen. Wenn der Router die im Beschlag hat; Errorhandling...

[Semeaphoros]

Plattfussunabhängig?

[eknori]

wenn wir von Notes API Calls reden sollte das schon so sein...

[Semeaphoros]

Du redest aber vom Filesystem

[eknori]

ich fasse es nicht, selbst sh stat BlaBla bringt nicht zutage ...

[eknori]

>> Du redest aber vom Filesystem

eigentlich nur über db.IsOpen