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 

Alterar IP da máquina pelo Delphi [resolvido]

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


Registrado: Segunda-Feira, 12 de Mai de 2008
Mensagens: 354
Localização: São Paulo - SP

MensagemEnviada: Qui Mai 06, 2010 1:54 pm    Assunto: Alterar IP da máquina pelo Delphi [resolvido] Responder com Citação

Senhores(as)

Alguém já alterou ip, mascara de subrede e gateway de uma máquina pelo Delphi?

To montando um esquema com WinExec('netsh.exe'), mas será que não tem algo mais sutil, como por exemplo um componente Indy que faça isso?

Antes que alguém venha me perguntar pra que diabos eu quero isso, a empresa tem auditoria nas filiais e cada auditor tem seu notebook com o sistema de auditoria que usa a base que está nos servidores das filiais.

Pra não deixar as crianças mexerem no fogão, quero fazer algo automatico onde só tenho os endereços do servidor, a mascara e o gateway. Aí vou pingando e caçando um IP livre na rede.

Capiche?
_________________
Abs

Igor Rykovski


Editado pela última vez por IgorRyko em Qui Mai 06, 2010 5:44 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
IgorRyko
Membro Junior
Membro Junior


Registrado: Segunda-Feira, 12 de Mai de 2008
Mensagens: 354
Localização: São Paulo - SP

MensagemEnviada: Qui Mai 06, 2010 3:43 pm    Assunto: Responder com Citação

Código:
 
 WinExec(Pchar('cmd.exe /c netsh interface ip set address name=“Conexão Local” static 10.76.1.54 255.255.255.0 10.76.1.1 1'),SW_normal);


Não tá rolando, alguém imagina porque?

Detalhe, esse script jogado direto no cmd dá certo, claro que de netsh pra frente...
_________________
Abs

Igor Rykovski
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Qui Mai 06, 2010 4:35 pm    Assunto: Responder com Citação

Tente este links que utilizam a api do windows para mudar o IP.

http://www.delphi3000.com/articles/article_4388.asp?SK=
http://www.delphi3000.com/articles/article_4392.asp


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
IgorRyko
Membro Junior
Membro Junior


Registrado: Segunda-Feira, 12 de Mai de 2008
Mensagens: 354
Localização: São Paulo - SP

MensagemEnviada: Qui Mai 06, 2010 4:57 pm    Assunto: Responder com Citação

Vou tentar a segunda, a primeira já tentei.

O exemplo que dei de WinExec tá pegando é o Conexão Local. O ã não é interpretado pelo windows, aparece um caracter maluco. Joguei essa linha de comando em uma batch com pause e o erro é na interface Conex-o Local
_________________
Abs

Igor Rykovski
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
IgorRyko
Membro Junior
Membro Junior


Registrado: Segunda-Feira, 12 de Mai de 2008
Mensagens: 354
Localização: São Paulo - SP

MensagemEnviada: Qui Mai 06, 2010 5:43 pm    Assunto: Responder com Citação

Mr. Blue Label, não funfou os exemplos que você mandou e imagino que seja o mesmo problema do WinExec.

Como não tenho tempo pra perder, resolvi do outro lado. Vou orientar ao pessoal do nosso CPD aqui nomear a conexão de rede pra um nome padrão.

Fiz isso sem acentos e etc, o WinExec funcionou numa boa.

É isso aí, valeu pela ajuda...
_________________
Abs

Igor Rykovski
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