Das Notes Forum
Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: luna am 09.01.03 - 09:58:54
-
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
-
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
-
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
-
hallo,
kann mir jemand von euch helfen? ::)
danke und gruss,
daniela
-
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" ;-)
-
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
:-[