Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 632
  • Last Modified:

Displaying user's full name from active directory

Hi,

Can anyone tell me code that will allow me to display the current logon user's full name taken from the active directory and display it in a textbox or caption for my visual basic app ?
0
TechLad
Asked:
TechLad
1 Solution
 
khaledfCommented:
here is a sample code that may get you what you need
http://www.bigresource.com/VB-User-info-from-Active-Directory-evDBnWrl2w.html
0
 
rockiroadsCommented:
How about summat like this, add to a module then call GetLoggedInUserID


Private Declare Function GetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long

Public Function GetLoggedInUserID() As String

    Dim sBuffer As String
    Dim lSize As Long
   
    sBuffer = Space$(255)
    lSize = Len(sBuffer)
   
    If GetUserName(sBuffer, lSize) = 1 Then
        GetLoggedInUserID = Left$(sBuffer, lstrlenW(StrPtr(sBuffer)))
    Else
        GetLoggedInUserID = Environ("Username")
    End If

End Function

0
 
TechLadAuthor Commented:
Thats not going to work as that looks like it's going to display the username, i'm wanting to display the full name so for example

Username = 123654
Full name = Techlad
0
Problems using Powershell and Active Directory?

Managing Active Directory does not always have to be complicated.  If you are spending more time trying instead of doing, then it's time to look at something else. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why

 
Sigurdur HaraldssonSystem AdministratorCommented:
Check this out: http://groups.google.com/group/VBScript/browse_thread/thread/dfff2a978ff19fa7

I adapted the script there to this one:

Set objRootDSE = GetObject("LDAP://RootDSE")
If Err.Number = 0 Then
    strNamingContext = objRootDSE.Get("defaultNamingContext")
    WScript.Echo("Connected to:...... " & strNamingContext)
Else
    WScript.Echo("Unable to connect to Active Directory." & vbCrLf & 
"Exiting Script." & vbCrLf)
    objShell.Popup line, 10, vbTab & "Logon Script", 48
    objLogFile.Close
    Wscript.Quit
End If
Set objADSysInfo = CreateObject("ADSystemInfo")
strUserDN = objADSysInfo.username
WScript.Echo("DN:................ " & strUserDN)
' Bind to user object
Set objUser = Getobject("LDAP://" & strUserDN)

strFirstName = objUser.Get("givenName")
strInitials = objUser.Get("initials")
strLastName = objUser.Get("sn")
0
 
TechLadAuthor Commented:
how does that allow me to display the user's full name in a text box or lable or something ?
0
 
rockiroadsCommented:
I found code on the ms website which iterates all users but can be tweaked to get current user but sighar has already posted code which looks like it will work so unnecessary to post what I found.

the values you can get you just assign to a textbox textbox.value or use the variables like sighar has done
0
 
TechLadAuthor Commented:
This is the problem I don't know how to change the code to work with my Visual Basic 6 application
0
 
TechLadAuthor Commented:
I found a solution now

Set oADSystemInfo = CreateObject("ADSystemInfo")
Set oADsUser = GetObject("LDAP://" & oADSystemInfo.UserName)
GetLoggedInUserID = oADsUser.DisplayName
0
 
rockiroadsCommented:
ok, if you find sighar's code working then change it to a function to return the name
eg

public function GetFullName()

 ... sighar's code here

  'Return value
  GetFullName = strFirstName & " " & strLastName

end function


add it to a module

now in your form code you do this

mytextbox.value= GetFullName
0

Featured Post

Has Powershell sent you back into the Stone Age?

If managing Active Directory using Windows Powershell® is making you feel like you stepped back in time, you are not alone.  For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now