actualizar base de datos asp.net

[figoni]

hola queria saber si algien sabe como actualizar active directory con asp.net


gracias

[Fann_Lavigne]

Podrias ser mas especifico, ke necesitas realmente?

[figoni]

ok primero lo que tengo


traigo los datos de active directory y los muestro en cajas de texto con este codigo los datos que estan basios en active directory los valida e = los muestra

Public Shared Function GetFullAssistan(ByVal Assistan As String, ByVal UserName As String) As String
Dim oDirectory As New DirectoryEntry("LDAP://" & Assistan)
Dim mySearcher As New DirectorySearcher(oDirectory)
Dim oResult1 As SearchResult
Dim sResult3 As String = ""

mySearcher.SearchScope = SearchScope.Subtree
mySearcher.ReferralChasing = ReferralChasingOption.All
mySearcher.Filter = "(&(objectClass=user)(sAMAccountName=" & UserName & "))"

Try
oResult1 = mySearcher.FindOne
If oResult1.Properties("extensionattribute1").Count = 0 Then
sResult3 = ""
Else
sResult3 = oResult1.GetDirectoryEntry.Properties.Item("extens ionattribute1").Value.ToString()
End If


Catch ex As Exception
Throw ex
End Try

oResult1 = Nothing
mySearcher.Dispose()
oDirectory.Dispose()
Return sResult3
End Function

y se muestra en esta caja de texto :

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim aux As String
aux = Request.ServerVariables("LOGON_USER").ToString().R emove(0, 15)

Asistencia_txt.Text = funciones.GetFullAssistan("RED", aux)

End Sub
End Class


ahora lo que nesesito es esos datos que se cargan en la caja de texto con un boton actualizar modificar la informacion del usuario que estan obiamente en el active directory



y los datos que traigo a la pagina asp.net son:

department
company
title
postalcode
physicaldeliveryofficename
telephoneNumber
extensionattribute1
mobile

y tengo un dropdownlist con los datos de todos los usuarios para poder llenar al superovisor

manager ese es el ultimo campo

punto aparte si alguien quiere llenar un dropdownlist o (listbox) en asp.net con datos de active directory es asi


Public Shared Function GetGroups()
Dim oDirectory As New DirectoryServices.DirectoryEntry("LDAP://RED_COLLAHUASI")
Dim ds As New DirectoryServices.DirectorySearcher(oDirectory)

ds.SearchScope = SearchScope.Subtree
ds.ReferralChasing = ReferralChasingOption.All
ds.PageSize = 1000
ds.Filter = "(&(objectCategory=person)(objectClass=user)(Sn=*) )"

Dim colServers As ArrayList = New ArrayList
Dim result As DirectoryServices.SearchResult

For Each result In ds.FindAll()
colServers.Add(result.Properties("cn").Item(0))
Next result
colServers.Sort()
oDirectory.Dispose()
Return colServers
End Function

[figoni]

Protected Sub Actualizar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Actualizar.Click

Dim aux As String
aux = Request.ServerVariables("LOGON_USER").ToString().R emove(0, 15)

Dim Entry_ldap As New DirectoryEntry("LDAP://RED")
Dim lista_atr() As String = {"department"}
Dim Filter As String = ("(&(sAMAccountName=" & aux & ")(objectclass=" & "user" & "))")
Dim my_ldap_user As DirectorySearcher = New DirectorySearcher(Entry_ldap, Filter, lista_atr)


my_ldap_user.PropertyNamesOnly = True
Dim result As SearchResult

result = my_ldap_user.FindOne()
result.GetDirectoryEntry.Properties.Item("departme nt").Value = Departamento_txt.Text
result.GetDirectoryEntry.CommitChanges()
End Sub


y con esto estoy tratando de actualizar el active directory

pero = no me resulta quiero decir no me manda error pero cuando preciono el boton actualizar no ase nada es como si la caja de texto no mabiara su contenido
no se si me ago entender bien