Aktuelle Arbeitsumgebung feststellen

[2Consultants]

Hallo,

hat jemand eine Idee wie man mit Lotus Script die aktuelle Arbeitumgebung des Notes Clients feststellen kann?

Gruß Christian

[ata]

... du kannst die aktuelle Arbeitsumgebung aus der Notes.ini auslesen mit

Dim session As New NotesSession
Dim sLocation As String
sLocation = session.GetEnvironment("Location" , True)

... wenn ich mich nicht irre...

ata

[ata]

... ich habe noch einen kleinen Fehler entdeckt, hier eine Function die funktioniert

Code

Function GetLocation() As String
' # Die aktuelle Arbeisumgebung auslesen...
   Dim session As New NotesSession
   Dim sValue As String
   '
   sValue = session.GetEnvironmentString("Location" , True)
   sValue = Left(sValue , Instr(sValue , ",")-1)
   GetLocation = sValue
End Function

ata

[2Consultants]

Der fehlende String war mir auch gleich aufgefallen, die letzte Lösung trifft es dann auch noch genauer. Danke!

[ata]

... in der Eile des Gefechts...

ata