Abrufen des Namens des benutzers, der beim Netzwerk angemeldet ist

Dieses Thema enthält die benutzerdefinierte Funktion GetLogonName, die den aktuellen Benutzernamen zurückgibt. Die GetLogonName-Funktion verwendet die GetUserNameA Windows-API, um den aktuellen Benutzernamen abzurufen.

' Access the GetUserNameA function in advapi32.dll and 
' call the function GetUserName. 
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ 
 (ByVal lpBuffer As String, nSize As Long) As Long 
 
' Main routine to retrieve user name. 
Function GetLogonName() As String 
 
 ' Dimension variables 
 Dim lpBuff As String * 255 
 Dim ret As Long 
 
 ' Get the user name minus any trailing spaces found in the name. 
 ret = GetUserName(lpBuff, 255) 
 
 If ret > 0 Then 
 GetLogonName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) 
 Else 
 GetLogonName = vbNullString 
 End If 
End Function

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.