Lá vai mais código de acesso à uma base LDAP.
Desta vez estarei publicando um código para alteração de senha de um usuário.
Lá vai:
Dim recurso As New DirectoryEntry("LDAP://10.190.1.25")
Dim busca As New DirectorySearcher(recurso)
Dim resultado As SearchResult
busca.Filter = "(sAMAccountName=RafaelMaia)"
resultado = busca.FindOne()
Dim oUser As DirectoryEntry = Resultado.GetDirectoryEntry
oUser.Invoke("SetPassword", New Object() {"NovaSenha"})
oUser.Close()
Bem simples. Como deve ser.
Um abraço e até a próxima!!
Nenhum comentário:
Postar um comentário