Change an AD Password

[Jérôme MAISETTI]

Hello,

I created this function but it doesn't change anything in the AD

Public Function ChangeADPassword(user As String)
Try
Dim objUser = GetObject("LDAP://194.7.23.169/CN" + user + ",OU=Users,OU=Operations,OU=Orange,DC=qconsulting,DC=local")
objUser.SetPassword("Test.1234")
'objUser.CommitChanges()
Catch ex As Exception
End Try
Return user
End Function



I don't see any errors on the console.

Can you please help me ?

Thanks !

Continue reading...