Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
' Routine principale pour dimensionner les variables
' puis afficher le nom de l'utilisateur courant
Sub Get_User_Name()
' Dimension des variables
Dim lpBuff As String * 25
Dim ret As Long, UserName As String
' Obtenir le nom de l'utilisateur en supprimant les espaces.
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
' Afficher le nom de l'utilisateur
MsgBox UserName
End Sub