• Home
 · 
• Windows System Services
 · 
• Get the username of a logged use in a domain

Get the username of a logged use in a domain

Get the username of a logged use in a domain

Rate Get the username of a logged use in a domain

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Function NetWorkUser() As String
   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Egbert Nierop
   ' * Web Site         : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail           : [email protected]
   ' * Date             : 1/02/99
   ' * Time             : 09:51
   ' * Procedure Name   : NetWorkUser
   ' * Parameters       :
   ' **********************************************************************
   ' * Comments         : It is possible to use the fact that
   ' *    a user has already logged on to a domain and has a
   ' *    Windows user name
   ' *
   ' *
   ' **********************************************************************
   
   Static strUser As String
   
   If Len(strUser) Then
      NetWorkUser = strUser
      Exit Function
   End If
   
   Dim lpUserName As String * 64
   
   If Wnetgetuser("", lpUserName, Len(lpUserName)) Then
      strUser = CurrentUser()
   Else
      strUser = Left(lpUserName, InStr(lpUserName, Chr(0)) - 1)
   End If
   
   NetWorkUser = strUser
   
End Function