Como Criar um usuário no windows XP

Importar a biblioteca ADSI (Active Directory Service Interface), Disponível no windows apartir da versão 2000.

1º Passo


2º Passo


3º Passo


4º Passo


5º Passo


Criar um novo projeto com um botão e adicionar o código abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
Usuario : IADsUser;
Conta : IADsContainer;
Grupo : IADsGroup;
Begin
try
Conta := GetObject('WinNT://'+DominioEdit.Text) as IADsContainer;

Grupo := GetObject('WinNT://'+DominioEdit.Text+'/'+GrupoEdit.Text) as IADsGroup;

Usuario := Conta.Create('user', UsuarioEdit.Text) as IADsUser;
Usuario.SetPassword(SenhaEdit.Text);
Usuario.SetInfo;

Grupo.Add('WinNT://'+DominioEdit.Text+'/'+UsuarioEdit.Text);

ShowMessage('Usuario criado com sucesso...');
except
on E:Exception do
ShowMessage('Erro ao criar usuario.'+#13+E.Message);
end;

End;

function TForm1.GetObject(const Name: string): IDispatch;
var
Moniker: IMoniker;
Eaten: integer;
BindContext: IBindCtx;
Dispatch: IDispatch;
begin
OleCheck(CreateBindCtx(0, BindContext));
OleCheck(MkParseDisplayName(BindContext,
PWideChar(WideString(Name)),
Eaten,
Moniker));
OleCheck(Moniker.BindToObject(BindContext, NIL, IDispatch,
Dispatch));

Result := Dispatch;
end;

Origem : http://www.devmedia.com.br/articles/viewcomp.asp?comp=6597&hl

Encaminhado por :
Daniel Diniz
Programador
daniel_s_diniz@hotmail.com