Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1387 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Comment recuperer le username windows sous VBA?

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Comment recuperer le username windows sous VBA?

n°1828096
Anteus
Mieux vaut prévenir que guérir
Posté le 16-12-2008 à 17:27:58  profilanswer
 

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
  2. Function Get_Login() As String
  3. 'Récupération et renvoi du login windows
  4.     Dim lpBuff As String * 25
  5.     Dim ret As Long
  6.    
  7.     'Extraction du login
  8.     ret = GetUserName(lpBuff, 25)
  9.    
  10.     'Renvoi
  11.     Get_Login = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
  12.    
  13. 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
mood
Publicité
Posté le 16-12-2008 à 17:27:58  profilanswer
 

n°1828253
SuppotDeSa​Tante
Aka dje69r
Posté le 16-12-2008 à 22:54:35  profilanswer
 

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

---------------
GreenBrown Energy, avec notre partenaire historique greenpeacefr, nous lançons le 1er fournisseur d'électricité SANS nucléaire. Une offre 100% EnR + backup transitoire

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Comment recuperer le username windows sous VBA?

 

Sujets relatifs
[Perl] Récupérer le résultat d'une requète SQLUrgent SVP : Comment renomer un fichier récupérer par FTP
tutoriel turbo pascal for windows[VBA Excel] Envoi mail puis reprendre la main...
WYSIWYG - Enregistrer code HTML - Recuperer format interprétéeBoucler un solveur VBA
Récuperer des emails, problèmes d'encodagesRecuperer valeur inputbox.
faire des macros avec l'operateur << windows et linuxRécupérer la saisie sur userform dans la macro
Plus de sujets relatifs à : Comment recuperer le username windows sous VBA?


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR