Je cherche une instruction VB capable de récupérer le "nom" d'utilisateur sous Windows NT.

Declare Function GetUserName Lib "ADVAPI32.DLL" Alias
 "GetUserNameA" _
 (ByVal lpBuffer As String, nSize As Long) As Long
 
 Public Function UserName()
   Dim lngSize As Long
  Dim bRet As Boolean
  Dim strNTAccount As String
 
  lngSize = 20
  strNTAccount = Space(lngSize)
  bRet = GetUserName(strNTAccount, lngSize)
  If bRet Then
    UserName = Left(strNTAccount, lngSize - 1)
  Else
    UserName = "###"
  End If