|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Consultar informações de um usuário do Domínio ou Domain Controller(AD)
|
 |
|
|
|
Postada em 7/3/2004 por David Pomarico
dpomarico@deloitte.com
'Para ter acesso, deve-se adicionar a referencia Active DS Type Library.
on error Goto Erro
Dim usr As IADsUser
Set usr = GetObject("WinNT://DOMINIO/" & nome_usuario)
If usr.IsAccountLocked = True Then
checkbox.Value = 1
Else
checkbox.Value = 0
End If
txt_nome.Text = usr.FullName
clicou = True
ProcExit:
Exit Sub
Erro:
If Err.Number = -2147024843 Then
MsgBox "Usuário não encontrado!", vbOKOnly + vbExclamation, "Usuário"
txt_username.SetFocus
Resume ProcExit
Else
MsgBox "Erro número: " & Err.Number & Chr(13) & Chr(13) & "Descrição: " & Err.Description, vbOKOnly
txt_username.Enabled = True
cmdOK.Enabled = True
cmdCancel.Enabled = True
Resume ProcExit
End If
'Se voce quiser salvar alguma alteração basta adicionar a linha usr.SetInfo para 'comitar' as alterações.
|
|
|
|
|
