Récupérer le nom de l’utilisateur connecté au réseau

Cette rubrique contient une fonction définie par l’utilisateur, GetLogonName, qui retourne le nom d’utilisateur actuel. La fonction GetLogonName utilise l’API Windows GetUserNameA pour récupérer le nom d’utilisateur actuel.

' 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.