Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
272
Assunto : Visual Basic
Titulo: Alterando a senha do usuário via ADSI

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Ai vamos a mais um truque do ADSI : Como alterar a senha do usuário.

Teremos que fazer referencia à active DS Type library, após isso o código é simples :


Dim usr As IADsUser
Set usr = GetObject("WinNT://nomeDominio/nomeUsuario")
usr.ChangePassword oldPassWord, newPassword

Define-se uma variável como sendo da interface IADsUser e utiliza-se a instrução GetObject para capturar o objeto referente ao usuário, em seguida aplica-se o método changePassword para fazer a alteração.

É realmente possível fazer, mas recomendo utilizarem com cautela. Cada detalhe da aplicação Windows é estudado para que a senha digitada pelo usuário nas caixas de login e senha não possa ser roubada por um clone da tela de login e senha ou por outra aplicação qualquer. Assim sendo não é muito recomendável criar uma interface para alteração de senhas.


Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 8/19/2005 12:53:00 AM
nome: Dennes Torres
email: dennes@bufaloinfo.com.br
comentário:

A sua aplicação está rodando com alguma identidade e provavelmente esta identidade não tem permissão de alterar a senha no outro domínio. Investigue mais o automation error, procure códigos específicos.



data: 8/17/2005 3:47:00 PM
nome: garcez
email: analista.rj@bol.com.br
comentário:
Prezado

O código funciona qdo o usuário é do mesmo domínio, mas como fazer para domínios diferentes?

'rotina muda senha, mas para um mesmo domínio -> sig
Dim usr As IADsUser
Set usr = GetObject("WinNT://sig/teste1")
usr.ChangePassword "123456", "654321"

'rotina não muda senha, estou no domínio "sig" e quero alterar senha de um
' usuário no domínio adm, não funciona, apresentando erro "Automation error"
Dim usr As IADsUser
Set usr = GetObject("WinNT://adm/teste2")
usr.ChangePassword "123456", "654321"

Obrigado,

Garcez



 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br