Zugriff auf die Notes.ini aller Mitarbeiter.......

[adminnaddel]

Morgen liebe Notes Gemeinde,

mal ne ganz dumme Frage!
Vor einiger Zeit hatte jemand ein Script geposted, welches mir über einen Eintrag in der Notes.ini die CurrentDatabase als Start-Homepage festlegt.
Hat mir sehr gut gefallen!
Kann ich dieses auch so einrichten, so das
1) ich auswählen kann, welche und nicht unbedingt immer die CurrentDb festgelegt wird?

Ich denke das muss nur in dem Bereich
Set db = s.CurrentDatabase geändert werden!

Kann mir bitte jemand helfen?
MfG

[Glombi]

Hi,
ich hatte mal was wegen des NOTES.INI Eintrags

StartupDB=<ReplikID>

gepostet. Du musst in Deinem Script die Replik-ID der gewünschten Datenbank ermitteln und dann in die NOTES.INI schreiben.
Aber Achtung: Die Script Methode

db.ReplicaID

liefert die Replik-ID ohne ":" zurück, also dann noch

strleft(replik,8) + ":" + strright(replik,8)

Du kannst ja mal im Forum nach StartupDB suchen...

Gruß
Andreas

[Glombi]

... und wieder bin ich mal auf die Smileys reingefallen  

strleft( replik , 8 ) + ":" + strright( replik , 8 )

[adminnaddel]

@Glombi

danke für Deine rasche Antwort.
Das Script von Dir habe ich und setze ich auch ein.
Verstehen tue ich das zwar nicht, war aber bisher auch egal. Jetzt aber nicht mehr, denn man will, dass ich einen ButtonDb mit mehreren Unterlegten Db einrichte.
Diese unterlegten Db enthalten nun Links oder Verknüpfungen zu den wichtigsten Db für den jeweiligen USER auf den Servern. Warum fragt man sich jetzt bestimmt? Ganz einfach: Ein neuer USER zb im Bereich Einkauf. Nun kann er die ButtonDb aufrufen, sich den Button mit den 10 wichtigsten Db für Einkauf aussuchen und starten. Beim nächsten starten von Notes wird dann also die von Ihm gewählte Datenbank mit den, also 10 wichtigsten Db-Verknüpfungen automatisch starten.
Jetzt mein Problem mit der raschen Antwort von Glombi:
Was ist LotusScript? Wäre es möglich, das jemand kurz in das alte Script von Glombi die neuen Änderungen einträgt?
Alter Code:
Dim s New NotesDatebase
Dim db As NotesDatabase
Dim replid As String
Set db = s.CurrentDatabase
replid = db.ReplicID
If Instr(replid,".") =0 Then
replid = Left$(replid,8) & ":" & Right$(replid,8)
Call s.SetEnvironmentVar("StartUpDb", replid,True)

Ich wäre Euch sehr verbunden, wenn mir jemand helfen könnte!
(@Rob_Green, das Du mir ja nicht wieder sagst, ich wäre faul )
Danke
MfG

[Glombi]

@adminnaddel,

warum arbeitest Du nicht nur mit einer Datenbank, die für alle Abteilungen die Buttons enthält?
Folgendes wäre aus meiner Sicht machbar:
Pro Abteilung wird ein Dokument erstellt, dass den Button mit den Datenbanken enthält. Diese Abteilungsdokumente sind nur für bestimmte Gruppen per Lesenamensfeld zugänglich.
Ein neuer User wird dann bspw. in die Gruppe EINKAUF eingetragen.
Alle User haben den gleichen NOTES.INI Eintrag für StartupDB,
sehen aber nur das für Sie bzw. Ihre Abteilung bestimmte Dokument.

Gruß
Andreas

[adminnaddel]

;)keine schlechte Idee.
Ich werde mir mal am Wochenende darüber gedanken machen, aber ich denke, das das ist guten Gedankengang von Dir ist, Danke!
Eigentlich sollte das ja mal alles ganz anderes aussehen! Das hatte ich auch schon mal geposted:
Man verlangte von mir ein Sript, welches die gewünschten Db für ein bestimmtes Team in die Arbeitsumgebung Notes und dort im Ordner Favoriten legt. Das heißt Team "A" klickt auf einem Button und die zB 10 wichtigsten Db für dieses Team werden unter Favoriten abgelegt. Das gleiche für Team "B" nur mit anderen Db! Schon eine geile Idee, jedoch anscheinend nicht umsetzbar!!! Zumindestens wusste nicht mal hier jemand darüber etwas.
Oder Du vieleicht @Glombi
Wenn nicht trotzdem danke für Deine raschen Antworten
Gruß