VB - INFORMACOES DO ACTIVE DIRECTORY

ALANCOSTA 08/05/2013 12:05:29
#423118

Boa tarde galera. Estou precisando basicamente o seguinte:
Validar se um usuário existe e me retornar o nome dele completo. Localizei o seguinte código na internet:

Porém sempre me retorna que o usuario não foi encontrado.
Obs. estou logado com o um usuário com permissão de administrador

Option Explicit
[ô]Para obter acesso aos métodos da classe (IADsUser), referencie
[ô]o componente (Active DS Type Library)
Dim usr As IADsUser


Private Sub cmd_checar_Click()
On Error GoTo Erro:
Set usr = GetObject([Ô]WinNT://MEUDOMINIO.com.br/[Ô] & txt_username.Text)
If usr.IsAccountLocked = True Then
chk_Travada.Value = 1
Else
chk_Travada.Value = 0
End If
txt_nome.Text = usr.FullName
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
Resume ProcExit
End If
End Sub