Este codigo te devuelve cierta informacion del usuario, entre ellos el username, y el nombre completo, ojala te sirva.
Cita: Protected Sub LoginButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim strDominio As String = ""
Dim strArray() As String
Dim i As Integer
Try
strArray = Split("xxx.xxx.xx", ".")
strDominio = "LDAP://DC=" & strArray(LBound(strArray))
For i = LBound(strArray) + 1 To UBound(strArray)
strDominio = strDominio & ",DC=" & strArray(i)
Next
Response.Write(strDominio)
Dim objDirectoryEntry As New DirectoryEntry(strDominio, Me.Login1.UserName.ToString, Me.Login1.Password.ToString)
Dim objDirectorySearcher As New DirectorySearcher(objDirectoryEntry)
'Dim objSearchResult As SearchResult
Dim results As SearchResultCollection
objDirectorySearcher.Filter = "(SAMAccountName=" & Me.Login1.UserName.ToString & ")"
results = objDirectorySearcher.FindAll()
Dim resultados As SearchResult
Dim Key As String
Dim value As Object
For Each resultados In results
Dim colProperties As ResultPropertyCollection
colProperties = resultados.Properties
For Each Key In colProperties.PropertyNames
For Each value In colProperties(Key)
Response.Write(Key.ToString())
Response.Write(": ")
Response.Write(value)
Response.Write("<br>")
Next
Next
Next
Me.lblError.Text = "Usuario aceptado."
Catch ex As System.Exception
Me.lblError.Text = "Error: " & ex.Message
End Try
End Sub