|
 |
 |
 |
| |
 Nom d'utilisateur
A copier dans un module :
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function NomUtilisateur() As String
Buffer$ = Space$(256)
guLen& = Len(Buffer$)
A% = GetUserName(Buffer$, guLen&)
NomUtilisateur = Left$(Buffer$, guLen& - 1)
End Function
Le code pour recevoir le Nom d'utilisateur :
MsgBox NomUtilisateur()
|
|
 |
 |
 |
|