[CN] bei Server in Script

[bificypdog]

Hallo,

ich erhalte per "db.server" immer den langen Namen des Servers:
/CN=???/OU=?/O=???

Ich habe folgende Formel im Forum gefunden.
Aber halt nur für den Username. (in diesem Fall nur das Feld username)

commonName$ = notesSession.Evaluate(@Name([CN]; username))

Das funktioniert beim mir aber auch nicht richtig.
Ich erhalte folgende Fehlermeldung:
Initialize: 30: Unexpected: @; Expected:Exptression;,;);BYVAL

Zurück zur Ausgangsfrage:
Wie erhalte ich den [CN]-Namen eines Servers in Lotus Script?

[ata]

... probiers mal mit

commonName$ = notesSession.Evaluate("@Name([CN]; username)")

ata

[bificypdog]

Oh, wie peinlich.
Da habe ich wohl eine Kleinigkeit übersehen.
Ich probiere es direkt aus.

[ata]

... ich hab auch noch was übersehen - so siehts richtig aus

commonName$ = notesSession.Evaluate("@Name([CN]; @UserName)")

  ata

[bificypdog]

Gibt es denn keinen anderen (richtigen LS-) Weg den CN-Servernamen herauszufinden? Das Evaluate funktioniert nicht so richtig. Ich komm' echt nicht dahinter.

@Username (habe ich gelesen) soll ja per LS kein Problem sein.
commonusername oder ähnlich.

Geht das nicht per Script?

[ata]

... gibt es in Script als Eigenschaft in NotesSession:

Dim user as String
user = session.CommonUserName

... wenn du das suchst - nur warum das Evaluate nicht funktioniert kann ich trotzdem nicht verstehen - auch wenn die NotesSession-Eigenschaft die bessere ist...

ata

[bificypdog]

Ich habe mich in meinem letzten Beitrag ein wenig mißverständlich ausgedrückt.

Meine letzte Frage..
>>Geht das nicht per Script?
... bezog sich eigentlich auf den [CN]-Namen des Servers.
Ich warte mal bis morgen ab. Dann habe ich wieder meinen Client. Heute abend ist für mich Feierabend.

[ata]

... sorry, per Script musst du den Namen mit NotesName verwenden

Dim session As New NotesSession
Dim ServerName As New NotesName(session.CurrentDatabase.Server)
MsgBox ServerName.Common

... funktioniert...

ata

[bificypdog]

Altes Thema - neue Frage 

Ich habe im String "MailServer" den per Script ermittelten vollen Servernamen:
CN=*****/OU=***/O=*****

Wie wandel ich diesen in CommonName um?

[Glombi]

Das steht doch hier alles haarklein erklärt 

Heute werden wohl etliche Threads aus der Versenkung geholt....

Andreas

[bificypdog]

@Glombi:
Ja. Ich weiss.
Es wurde folgendes empfohlen:

commonName$ = notesSession.Evaluate("@Name([CN]; @UserName)")

Aber @Username soll es ja gar nicht sein. Sondern dort soll dann mein String "MailServer" stehen. Dieser String existiert nur im Script. Kann ich Script-Variablen im Evaluate integrieren?

Oder meintest du die folgende Lösung:

Dim session As New NotesSession
Dim ServerName As New NotesName(session.CurrentDatabase.Server)
MsgBox ServerName.Common

Aber wie kann ich da einen String (den ich übrigens hier ermittel) in den Commonname umwandeln.

[Glombi]

Hast Du 4.5.x oder 4.6.x ?

In 4.6.x ginge es einfach so:

dim mailserver as string
dim ret_eval as variant
mailserver = ....

ret_eval = Evaluate(|@Name([CN]; "| + mailserver + |")|)

commonName$ = ret_eval(0)

Andreas

[bificypdog]

Ich wag' kaum noch nachzufragen, aber ich habe einen kleinen Fehler:

EVALUATE argument must be a string constant

[Glombi]

Ich bin so mutig und frage nochmal:
Hast Du Notes 4.5 oder Notes 4.6.

Wegen der Meldung tippe ich auf 4.5

Andreas

[bificypdog]

Ich bin so mutig und frage nochmal:
Hast Du Notes 4.5 oder Notes 4.6.

Wegen der Meldung tippe ich auf 4.5

Andreas

RICHTIG. Notes 4.5.7g
Klingt nicht gut für mich, oder?

[Glombi]

Falls ja, lass es mit Evaluate und nimm das

Dim session As New NotesSession
Dim ServerName As New NotesName(mailserver)
commonName = ServerName.Common

Andreas

[bificypdog]

Heureka.
Danke für deine Unterstützung.

[Semeaphoros]

Im Best Practices gibt es dazu einen Artikel über das Namenssystem mit Hinweis auf das NotesName-Objekt

[koehlerbv]

Was ich nicht verstanden in dieser Neuauflage des Threads: In Posting #7 steht die Lösung, nach der in Posting #8 gefragt wird ...
Wo lag das Problem, Bifi ? Lesebrille verlegt ?  DesignerHelp aus Versehen gelöscht ? 

Bernhard

[bificypdog]

@koehlerbv:
Ja ich weiß ja.
Ich bin halt kein LotusScript-Profi.
Ich habe ein wenig Probleme mit der Herleitung, Struktur und der Logik in Lotus Script.
Und aus irgendeinem doofen Grund hat es mit der ersten Lösung nicht auf Anhieb geklappt.

Ich kopiere immer mehrere fremde Scripte zusammen, um dann eines zu erschaffen, dass ich benötige. Von Null bis Fertig schaffe ich es ohne "Abgucken" oder "Hilfe" nicht.   

Aber dennoch vielen Dank.