Comment recuperer le username windows sous VBA?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment recuperer le username windows sous VBA?

Anteus

Mieux vaut prévenir que guérir

Hello

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

Code :

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function Get_Login() As String
'Récupération et renvoi du login windows
Dim lpBuff As String * 25
Dim ret As Long
'Extraction du login
ret = GetUserName(lpBuff, 25)
'Renvoi
Get_Login = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
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

Publicité

SuppotDeSaTante

Aka dje69r

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 !

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 SQL	Urgent 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ée	Boucler un solveur VBA
Récuperer des emails, problèmes d'encodages	Recuperer valeur inputbox.
faire des macros avec l'operateur << windows et linux	Récupérer la saisie sur userform dans la macro
Plus de sujets relatifs à : Comment recuperer le username windows sous VBA?

Page générée en 0.034 secondes