Obtenir le nom de la session locale windows ouverte
Bonjour;
j'aimerai pouvoir avoir l'utilisateur de la session windows ouverte. Voici un code que j'utilisais dans Access avec beaucoup de succès mais maintenant avec Visual Studio il ne fonctionne pas.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| ' Access the GetUserNameA function in advapi32.dll and
' call the function GetUserName.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Function GetLogonName() As String
' Dimension variables
Dim lpBuff As String * 255
Dim ret As Long
' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 255)
If ret > 0 Then
GetLogonName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
Else
GetLogonName = vbNullString
End If
End Function |
Merci d'avance pour celui qui pourrait m'aider.
Lendcap
