Nom d'utilisateur

[KiZmAn]

Salut,

Comment peut-on déterminer le nom d'utilisateur avec VBA?
çàd, qu'une personne est connectée à son PC avec un certain login et un mot de passe, et j'aimerais trouver ce login avec VBA...


Merci!

KiZmAn

 

[michael]

Salut,

essaye ce code, trouver sur le site web d'un des intervenants du forum dont j'ai malheureusement oublié le nom :

'Ceci dans la partie déclaration du module
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long 'Windows API function
'Jusqu'ici

Function CurrentUserName() As String
Dim sBuffer As String * 25, lReturn As Long
lReturn = GetUserName(sBuffer, 25)
CurrentUserName = Left$(sBuffer, InStr(sBuffer, Chr(0)) - 1)
CurrentUserName = LCase(CurrentUserName)
End Function

Sub LoginUser()
Dim sUserName As String

sUserName = CurrentUserName()

MsgBox sUserName

End Sub



Michael

 

[KiZmAn]

Merci, ça marche super bien.

A ceci près que j'ai dû ajouter le mot-clé "private" devant "Declare Function" pour que ça fonctionne.