!n$ideR
Legacy Member
Goedenavond,
Ik zit met een vervelend probleempje. Ik moet voor mijn eindwerk vanuit een website de paswoorden van users kunnen veranderen in een Active Directory.
Dit is mijn code:
Private Sub cmdVerzend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVerzend.Click
Dim pas As String
Dim oudpas As String
Dim dom As New System.DirectoryServices.DirectoryEntry("LDAP://SERVER.BE", txtlog.Text, txtpas.Text, System.DirectoryServices.AuthenticationTypes.Secure)
If txtnewpas1.Text <> txtnewpas2.Text Then
lblfout.Visible = True
Else
pas = txtnewpas1.Text
oudpas = txtpas.Text
If entry.Password = txtpas.Text Then
entry.Invoke("ChangePassword", pas)
entry.CommitChanges()
Response.Write("successful")
mail()
addnewrecord()
Response.Redirect("succes.aspx")
Else
Response.Write("Username not found")
End If
Fout: het loopt mis bij entry.invoke daar geeft hij de fout
"Kan de mapeigenschap niet inde cache vinden"
Weet er iemand het probleem in men code?
thx!!!!
Ik zit met een vervelend probleempje. Ik moet voor mijn eindwerk vanuit een website de paswoorden van users kunnen veranderen in een Active Directory.
Dit is mijn code:
Private Sub cmdVerzend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVerzend.Click
Dim pas As String
Dim oudpas As String
Dim dom As New System.DirectoryServices.DirectoryEntry("LDAP://SERVER.BE", txtlog.Text, txtpas.Text, System.DirectoryServices.AuthenticationTypes.Secure)
If txtnewpas1.Text <> txtnewpas2.Text Then
lblfout.Visible = True
Else
pas = txtnewpas1.Text
oudpas = txtpas.Text
If entry.Password = txtpas.Text Then
entry.Invoke("ChangePassword", pas)
entry.CommitChanges()
Response.Write("successful")
mail()
addnewrecord()
Response.Redirect("succes.aspx")
Else
Response.Write("Username not found")
End If
Fout: het loopt mis bij entry.invoke daar geeft hij de fout
"Kan de mapeigenschap niet inde cache vinden"
Weet er iemand het probleem in men code?
thx!!!!

)
kweet nu waar ik moet gaan zoeken