Active Directory

[brianarvili]

Hola. Que tal?


Necesito checkear contra Active Directory si existe un usuario mandandole UNICAMENTE el nombre de usuario.

encontre en internet como hacer para loguearlo pero no para que me devuelva si existe o no mandandole solo el UserName.

Luego de checkear si existe me gustaria traer el nombre y apellido.

Si alguien tiene data, bienvenido sea.

Gracias

[hasan]

Este codigo te devuelve cierta informacion del usuario, entre ellos el username, y el nombre completo, ojala te sirva.

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