Nom d'utilisateur

  • Initiateur de la discussion KiZmAn
  • Date de début
K

KiZmAn

Guest
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
 
M

michael

Guest
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
 

Discussions similaires

Réponses
10
Affichages
504
Réponses
3
Affichages
682

Statistiques des forums

Discussions
314 645
Messages
2 111 536
Membres
111 184
dernier inscrit
amiko