Sziasztok!

 

Tudja valaki, hogy lehet lekérdezni a hálózati felhasználói név ismeretében az ehhez tartozó valós nevet?

A felhasználói név lekérdezésére az alábbi kis rutint használom:

 

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

 

Function Username()

Dim strUserName As String

 

  strUserName = String(100, Chr$(0))

  GetUserName strUserName, 100

  strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

  Username = strUserName

 

End Function