Abfragen des Anmeldenamens von W2K/NT

[Karotte]

Moins,

gibts irgendwo ne funktion in Lotus Notes womit man den "Nutzernamen" der am BS angemeldet ist abfragen kann?

Oder kann ich den Wert nur über die Registry auslesen ?

[eknori]

'Angemeldeten_Benutzer_ermitteln:

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (Byval lpBuffer As String, nSize As Long) As Long
Declare Function GetLastError Lib "kernel32" () As Long
Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (Byval dwFlags As Long, lpSource As Any, Byval dwMessageId As Long, Byval dwLanguageId As Long, Byval lpBuffer As String, Byval nSize As Long, Arguments As Long) As Long

Sub Click(Source As Button)
   Msgbox LNGetUserName
End Sub

Function LNGetUserName() As String
   Dim RetUserName As Long
   Dim lpUserName As String
   Dim nSize As Long
   Dim RetLastError As Long
   Dim RetVal As Long
   Dim lpMessageBuffer As String
   Dim varia As String
   lpUserName = Space(255)
   nSize = Len(lpUserName)
   RetUserName = GetUserName(lpUserName, nSize)
   If RetUserName <> 0 Then 'UserName ausgeben.
      varia = Left(lpUserName, nSize - 1)
   Else 'Username nicht verfügbar.
      RetLastError = GetLastError()
      lpMessageBuffer = Space(255)
      nSize = Len(lpMessageBuffer)
      RetVal = FormatMessage(0, 0, RetLastError, 0, lpMessageBuffer, nSize, 0)
      If RetVal <> 0 Then
         varia = "Fehler " & RetLastError & ": " & lpMessageBuffer
      Else
         varia = "Fehler " & RetLastError & ": kein angemeldeter Benutzer"
      End If
   End If
   
   LNGetUserName= Trim(varia)
End Function

[Karotte]

Argl, wieder lS  

das schau ich mir heut nachmittag bei ner frischen tasse kaffee und ner schachtel kippen an,

ich denk mal mit LF wirds wohl nur gehen mit nem vergleich von dem feld was die Version des BS ausliest und dann die registry-value auslesen..
ich glaub ich werd doch noch zu nem scripter

danke, eknori

[ata]

... ohne LS wirst du nicht weit kommen...

ata