Comment recuperer le username windows sous VBA?

Comment recuperer le username windows sous VBA? - VB/VBA/VBS - Programmation

Marsh Posté le 16-12-2008 à 17:27:58    

Hello
 
J'utilise actuellement le code suivant dans une macro XL:
 

Code :
  1. Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  3. Function Get_Login() As String
  5. 'Récupération et renvoi du login windows
  7.     Dim lpBuff As String * 25
  8.     Dim ret As Long
  9.    
  10.     'Extraction du login
  11.     ret = GetUserName(lpBuff, 25)
  12.    
  13.     'Renvoi
  14.     Get_Login = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
  15.    
  16. End Function


 
Mais ceci me retourne le login (par exemple pnom), plutot que le full name qui est renseigne sur le domaine.
 
Y a-t-il une solution pour recuperer le full name?


---------------
Autonomie, Excellence, But
Reply

Marsh Posté le 16-12-2008 à 17:27:58   

Reply

Marsh Posté le 16-12-2008 à 22:54:35    

Bonsoir
 
Utilise Environ() qui renvoit la valeur d'une variable d'environnement.
 
Pour avoir le user 'simple' :

Citation :

user = Environ("username" )


 
 
Ensuite pour le domaine c'est userdomain :

Citation :

dom=Environ("userdomain" )


 
C'est plus simple je trouve.
 
Cordialement


Message édité par SuppotDeSaTante le 16-12-2008 à 22:57:14

---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed