Domino 9 und frühere Versionen > ND6: Entwicklung
Servername leer
Driri:
--- Zitat ---aktuelle Servername ermitteln
' CurrentServer = session.CurrentDatabase.Server 'auskommentiert "" wird zurückgegeben
CurrentServer = session.CurrentDatabase.parent.username 'Nothilfe
--- Ende Zitat ---
Warum machst Du das so kompliziert ?
CurrentServer = session.ServerName wäre der direkte Weg.
Btw : CurrentServer ist nicht deklariert.
MadMetzger:
@Dirk2909: Genau das frage ich mich auch.
Und dass Alois das im Einsatz dann nicht mit der Konstante haben will ist mir auch klar, weil er das ja auch auf verschiedenen Servern laufen lassen will.
Aber wenn er sagt, er arbeitet lokal, dann geht das eben so nicht außer mit Konstante oder über die Userkrücke, die er gerade verwendet. Läuft der Code dann wirklich auf einem Server und nicht in lokalem Kontext, dann zieht er auch den Servernamen.
dirk_2909:
So...
Habe auf einem SERVER eine Test-DB erstellt. Dort ist ein Agent ( "Manuell aus dem Menü Aktionen" - Laufziel keins) erstellt. Code s.o. .....
Dort bekomme ich den Servernamen zurück........
Wenn Du in einer LOKALEN DB den Agenten startest, ist Server = "" ( logisch ).
Du willst in Deinem Script den Wert im Feld "MailServer" mit dem Namen des Servers vergleichen, auf den Dein Agent aufgerufen wird.....
Das kannst Du mit session.CurrentDataBase.Server und/oder
--- Code: ---Dim session As New NotesSession
Dim agent As NotesAgent
Dim server As String
Set agent = session.CurrentAgent
server = agent.ServerName
--- Ende Code ---
Gem. Deinen wiedersprüchlichen Angaben gibt es den SERVER-Namen zurück...
--- Zitat ---Wie schon geschrieben der Agent wird auf dem Server gestartet aus der Menü Aktionen in der Datenbank names.nsf.
--- Ende Zitat ---
dirk_2909:
@Markus
..es muss ja keine Konstante sein?!
Wenn er den Process sowieso über das Menü "Aktionen" startet, kann man ja den gewünschten Server abfragen, mit dem dann verglichen werden soll......
koehlerbv:
Ingo, NotesSession.ServerName ist "COM only".
Bernhard
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln