Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Benutzername herausfinden
Autor: Sycamore
Datum: 19.02.03 20:18
So habe ich es bei uns in der Arbeit laufen, versuchs mal: USERID ist der Benutzername! Function GetCurrentUser() As String Dim Validated_by As Integer Dim UserID As String Dim UserIdLen As Integer Dim RetVal As Integer Screen.MousePointer = 11 UserID = Space(BUFLEN) UserIdLen = BUFLEN On Error GoTo Fehler ' RetVal = GCPU(Validated_by, UserID, UserIdLen) ->>> erzeugt bei NT4 einen Absturz If Validated_by = VALIDATED_BY_NT Then 'NT-Domänenbenutzer aktiv UserID = Trim$(Environ("USERNAME")) UserIdLen = Len(UserID) Else 'schneller Benutzerwechsel aktiv UserID = Trim$(Left$(UserID, UserIdLen)) End If If (UserIdLen = 0) Or (UserIdLen = BUFLEN) Then 'kein Benutzer angemeldet 'MsgBox "Der schnelle Benutzerwechsel ist aktiv, aber es ist kein Benutzer angemeldet", 64, "Benutzererkennung" UserID = "-1" Else 'Benutzer angemeldet UserID = Left$(UserID, UserIdLen) End If GetCurrentUser = CStr(RACF(UserID, Conn)) Exit Function Fehler: If err.Number = 53 Then 'schneller Benutzerwechsel ist nicht installiert. Es wird automatisch auf 'den in der Domäne angemeldeten Benutzer zurückgegriffen End If Resume Next End Function

Benutzername herausfinden	1.013	Lord Helmchen	19.02.03 12:00
Re: Benutzername herausfinden	566	Elwood	19.02.03 15:30
Re: Benutzername herausfinden	552	Sycamore	19.02.03 20:18
Re: Benutzername herausfinden	485	Lord Helmchen	23.02.03 17:38

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen