statistic reports - fehlermeldung 1 ($BusyName in resource DB)

[luna]

hallo,

in meiner statrep.nsf krieg ich jeden tag folgende fehlermeldung:

SchedMgr: Error processing calendar profile document (NoteID: NT0000095E) in database sanyo\SanyoRes.nsf: Can't find $BusyName field on profile

die SanyoRes.nsf ist meine resourcen datenbank, in der alle meeting raeume und autos und sport gebucht werden kann, location uebergreifend. diese datenbank funzt eigentlich seit ueber einem jahr nun richtig gut.

darum kann ich diese fehlermeldung ueberhaupt nicht verstehen. was soll ich damit anfangen?

vielen dank und gruss,
daniela

[Meff]

Hi Luna,

das $BusyName Feld enthält den vollständigen Usernamen des Besitzers oder Belegers einer entsprechenden Ressource. Bei Namensänderungen passt in der Regel der AdminP alle entsprechenden alten Namen an, kann aber mal passieren (fehlender Zugriff, falsche ACL Einstellung), dass dieser das nicht machen kann. Schreib Dir doch einen kleinen Agent, welcher alle Dokumente durchläuft und das $BusyName Feld auflistet, dann solltest Du den falschen Namen finden.

Meff

[luna]

hallo meff,

vielen dank fuer deine antwort. bin leider nicht eher dazugekommen. ich denke jetzt mal, dass diese fehlermeldung ja dann nicht so schlimm ist, aber nachdem sie jeden tag wieder in meinen statistic reports auftaucht, wuerde ich schon gerne wissen, woher die kommt (und evtl. wie ich sie wegbekomme).

ich hab probiert, einen agent zu erstellen, der das macht, was du vorschlaegst, aber ich komm nicht weiter. weiss nicht mal so recht, wie ich anfangen soll.

bist du so lieb   und hilfst mir, was ich wo eingeben muss? wenn du mal ein bisschen zeit uebrig haettest. ist ja nicht top urgent.

danke und gruss,
daniela

[luna]

hallo,

kann mir jemand von euch helfen?  

danke und gruss,
daniela

[jofa]

Hi Daniela,

ich verwende dazu folgenden Agenten:


Sub Initialize
   
   Dim session As New notessession
   Dim nab As New notesdatabase ("" , "")
   Dim view As notesview
   Dim pointer As notesdocument
   Dim mail As New notesdatabase ("" , "")
   Dim profile As notesdocument
   
   Dim session1 As New notessession
   Dim db1 As notesdatabase
   Dim profile1 As notesdocument
   
   Set db1 = session1.currentdatabase
   Set profile1 = db1.getprofiledocument("profile")
   server = profile1.AC_HS(0)
   
   If nab.open ("SERVER1" , "names.nsf") Then
      Set view = nab.getview("Personen")
      
      Set pointer = view.getfirstdocument()
      
      While Not pointer Is Nothing
         
         On Error Goto NoAccess      
         
         Print "Mailfile pointer.mailfile(0): " + "" +  pointer.mailfile(0) + ""
         
         Set mail = New NotesDatabase(server , "" + pointer.mailfile(0) + "")
         If mail.IsOpen Then
            
            Set profile = mail.getprofiledocument("CalendarProfile")
            If Not ( profile Is Nothing ) Then
               
               Print "Original profile.owner(0): " + profile.owner(0)
               Print "Would be pointer.fullname(0): " + pointer.fullname(0)
               profile.owner = pointer.fullname(0)
               Call profile.save(True,False)
            End If
            
         End If
         
LoopWhile:
         Set pointer = view.getnextdocument(pointer)
      Wend
      
   End If
   
   Goto end_sub
   
NoAccess:
   Print "########### E R R O R --- NO ACCESS ##############"
   Goto LoopWhile
   
end_sub:
   
End Sub


Den Server, auf dem die Mailfiles liegen ist in einem Profildokument hinterlegt, Du kannst Du aber den Server ja auch aus dem Personendokument ziehen.

Gruss JoFa

PS: Ist nicht sehr übersichtlich aber funktional und "gewachsen" ;-)

[luna]

hallo jofa,

vielen dank fuer dein script im agent. ich habs ausprobiert, veraendert, gemacht, getan, aber ich krieg kein ergebnis raus.

erstens scheint er diese meldung seit ein paar wochen nicht mehr zu bringen, und zweitens denke ich ist das ja nicht soooo schlimm, und drittens mach im mai/juni eine script schulung. vielleicht kann ich dann ja mehr mit den veraenderungen eines scripts anfangen.

inzwischen jedoch vielen lieben dank und gruss,
daniela