Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: 2Consultants am 20.01.03 - 14:07:51

Titel: Aktuelle Arbeitsumgebung feststellen
Beitrag von: 2Consultants am 20.01.03 - 14:07:51

Hallo,

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

Gruß Christian

Titel: Re:Aktuelle Arbeitsumgebung feststellen
Beitrag von: ata am 20.01.03 - 14:16:58

... 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

Titel: Re:Aktuelle Arbeitsumgebung feststellen
Beitrag von: ata am 21.01.03 - 13:44:29

... 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

Titel: Re:Aktuelle Arbeitsumgebung feststellen
Beitrag von: 2Consultants am 23.01.03 - 08:26:41

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

Titel: Re:Aktuelle Arbeitsumgebung feststellen
Beitrag von: ata am 23.01.03 - 08:28:56

... in der Eile des Gefechts...

ata  ;D