ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Criar usario no windows com Delphi 7

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
minas
Novato
Novato


Registrado: Terça-Feira, 23 de Julho de 2013
Mensagens: 2
MensagemEnviada: Ter Jul 23, 2013 2:10 pm    Assunto: Criar usario no windows com Delphi 7 Responder com Citação
Ola pessoal !
Alguem conhece alguma API ou algo onde eu possa criar usuario local no Windows com Delphi 7 ?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
maizena
Colaborador
Colaborador


Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 1497
Localização: Laguna - SC
MensagemEnviada: Ter Jul 23, 2013 3:25 pm    Assunto: Responder com Citação
Não sei se já viu isso, mais em todo caso de uma olhada.
http://br.groups.yahoo.com/group/delphi-br/message/162880
http://www.devmedia.com.br/criar-usuario-no-active-directory/6597
_________________
Canal Delphi+ INSCREVA-SE: http://www.youtube.com/channel/UCnVF5ly5PRwZONE-U7xZM6w?feature=watch
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
minas
Novato
Novato


Registrado: Terça-Feira, 23 de Julho de 2013
Mensagens: 2
MensagemEnviada: Qua Jul 24, 2013 12:05 pm    Assunto: Responder com Citação
maizena escreveu:
Não sei se já viu isso, mais em todo caso de uma olhada.
http://br.groups.yahoo.com/group/delphi-br/message/162880
http://www.devmedia.com.br/criar-usuario-no-active-directory/6597



Opa obrigado...consultando o primeiro link e editando algumas coisas cheguei no script abaixo :

Código:

procedure TForm1.Button1Click(Sender: TObject);
var
strNome, strSenha, strDominio : string;
strComando : string;
numTipo : integer;
begin
if (Edit1.Text <> '') and (Edit2.Text <> '') then
begin
strNome := Edit1.Text;
strSenha := Edit2.Text;
if rbUsuario.Checked then
numTipo := 0
else if rbAdministrador.Checked then
numTipo := 1;

//executa a criação do usuário
try

strComando := ' user ' + strNome + ' ' + strSenha + ' /add ';

//se usuário está em um domínio
if strDominio <> '' then
strComando := strComando + ' /domain ';


ShellExecute(Application.Handle,'open',PChar('C:\WINNT\system32\net.exe'),PChar( strComando ),nil,SW_SHOWNORMAL);

//verifica se o usuário será adicionado ao grupo administradores ou usuários normais
if numTipo = 0 then
strComando := ' localgroup "Usuários avançados" ' + strNome + ' /add'
else
strComando := ' localgroup "Administradores" ' + strNome + ' /add';

//adiciona o usuário criado ao grupo correspondente

ShellExecute(Application.Handle,'open',PChar('C:\WINNT\system32\net.exe'),PChar( strComando ),nil,SW_SHOWNORMAL);

//ShowMessage('O(a) usuário(a)'+ strNome + 'foi criado(a) com sucesso!');

except

ShowMessage('Não foi possível criar o(a) usuário(a) "' + strNome +
'".');

end;
end
else
begin
MessageBox(Application.Handle,'Os campos Nome e Senha são obrigatórios.','Erro',MB_OK+MB_ICONWARNING);
if Edit1.Text = '' then
Edit1.SetFocus
else if Edit2.Text = '' then
Edit2.SetFocus;
end;
end;
end.


Ele até executa sem erros..mais a ação de "add" nao esta sendo feita.
Programei bastante emd delphi a alguns anos atras...perdi um pouco a noção

obrigado
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB