Finding User NAME on NT

My problem is that once I get the logged-on user id, I need to get their full name from the NT security. Is this possible? For example:

UID: jsmith123
Name: John Smith or Smith, John (however names are stored)

The following VB code will get you what you want (VB 4.0-32/VB 5.0/VB 6.0):

Option ExplicitPrivate m_strUserName      As StringPrivate m_strServerName    As StringPrivate Declare Function GetUserName _   Lib "advapi32.dll" Alias "GetUserNameA" _   (ByVal lpBuffer As String, _    nSize As Long) As LongPrivate Declare Function NetUserGetInfo _   Lib "netapi32" _   (ServerName As Byte, _    UserName As Byte, _    ByVal Level As Long, _    lpBuffer As Long) As LongPrivate Declare Function NetGetDCName _   Lib "netapi32.dll" _   (ServerName As Byte, _    DomainName As Byte, _    Buffer As Long) As LongPrivate Declare Function NetApiBufferFree _   Lib "netapi32" _   (ByVal pBuffer As Long) As LongPrivate Declare Sub CopyMem _   Lib "kernel32" Alias "RtlMoveMemory" _   (pTo As Any, _    uFrom As Any, _    ByVal lSize As Long)Private Declare Function lstrlenW _   Lib "kernel32" _   (ByVal lpString As Long) As LongPrivate Declare Function lstrlen _   Lib "kernel32" _   (ByVal lpString As Long) As LongPrivate Const constUserInfo10       As Long = 10Private Type USER_INFO_10_API   Name As Long   Comment As Long   UserComment As Long   FullName As LongEnd TypePrivate Type USER_INFO_10   Name As String   Comment As String   UserComment As String   FullName As StringEnd TypePrivate Const NERR_Success As Long = 0&Private Const ERROR_MORE_DATA As Long = 234&Private Sub GetPDC(ByVal xi_strServer As String, _                   ByVal xi_strDomain As String, _                   ByRef xo_strPDC_Name As String)   Dim p_strTmp                        As String   Dim p_lngRtn                        As Long   Dim p_lngBufferPtr                  As Long   Dim p_astrTmp(100)                  As Byte   Dim p_abytServerName()              As Byte   Dim p_abytDomainName()              As Byte   Dim p_vntReplacementStrings         As Variant       ' ------------------------------------------   ' Move to byte array   ' ------------------------------------------   p_abytServerName = xi_strServer & vbNullChar   p_abytDomainName = xi_strDomain & vbNullChar               ' ------------------------------------------   ' Get the name of the PDC   ' ------------------------------------------   p_lngRtn = NetGetDCName(p_abytServerName(0), _                           p_abytDomainName(0), _                           p_lngBufferPtr)      ' ------------------------------------------   ' Set the return value (zero is success)   ' ------------------------------------------   If p_lngRtn <> 0 Then      Exit Sub   End If            ' Translate the name   If p_lngRtn = 0 Then      xo_strPDC_Name = PointerToStringW(p_lngBufferPtr)   Else      xo_strPDC_Name = ""   End If      ' Free the buffer   NetApiBufferFree p_lngBufferPtr   End SubPublic Function UserFullName() As String   Dim p_typUserInfo                   As USER_INFO_10   Dim p_typUserInfoAPI                As USER_INFO_10_API   Dim p_lngBuffer                     As Long   Dim p_bytServerName()               As Byte   Dim p_bytUserName()                 As Byte   Dim p_lngRtn                        As Long   ' Get the server name   If Len(Trim$(m_strServerName)) = 0 Then      GetPDC "", "", m_strServerName   End If      ' Convert string to a pointer   If Len(Trim$(m_strServerName)) = 0 Then      'p_lngPtrServerName = 0&      p_bytServerName = vbNullChar   Else      p_bytServerName = m_strServerName & vbNullChar      'p_lngPtrServerName = StrPtr(m_strServerName)   End If      ' Make sure we have a user name   If m_strUserName = vbNullString Then      m_strUserName = Module1.UserName()   End If      ' Convert the user name to a pointer   If Len(Trim$(m_strUserName)) = 0 Then      Exit Function 'Handle the error   Else      p_bytUserName = m_strUserName & vbNullChar   End If      ' Get the current info   p_lngRtn = NetUserGetInfo(p_bytServerName(0), _                             p_bytUserName(0), _                             constUserInfo10, _                             p_lngBuffer)                                If p_lngRtn = NERR_Success Then      CopyMem p_typUserInfoAPI, _              ByVal p_lngBuffer, _              Len(p_typUserInfoAPI)            p_typUserInfo.FullName = PointerToStringW(p_typUserInfoAPI.FullName)      p_typUserInfo.Comment = PointerToStringW(p_typUserInfoAPI.Comment)      p_typUserInfo.Name = PointerToStringW(p_typUserInfoAPI.Name)      p_typUserInfo.UserComment = PointerToStringW(p_typUserInfoAPI.UserComment)            UserFullName = p_typUserInfo.FullName   End If       If p_lngBuffer Then      Call NetApiBufferFree(p_lngBuffer)   End If   End FunctionPublic Function UserName() As String   Dim p_strBuffer                     As String   Dim p_lngBufSize                    As Long   Dim p_strName                       As String   Dim p_lngRtn                        As Long      ' ------------------------------------------   ' Retrieve the curent user's name from the   '     operating system   ' ------------------------------------------   p_strBuffer = Space$(255)   p_lngBufSize = Len(p_strBuffer)   p_lngRtn = GetUserName(p_strBuffer, p_lngBufSize)      ' ------------------------------------------   ' If failed, then just put in a blank   ' Otherwise, fill in user name on the form   ' ------------------------------------------   If p_lngRtn > 0 Then      m_strUserName = Left$(p_strBuffer, p_lngBufSize - 1)   Else      m_strUserName = vbNullString   End If      UserName = m_strUserName   End FunctionPrivate Function PointerToStringW(lpStringW As Long) As String   Dim Buffer() As Byte   Dim nLen As Long      If lpStringW Then      nLen = lstrlenW(lpStringW) * 2      If nLen Then         ReDim Buffer(0 To (nLen - 1)) As Byte         CopyMem Buffer(0), ByVal lpStringW, nLen         PointerToStringW = Buffer      End If   End IfEnd Function
Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: