Como descobri o nome da maquina pelo No do IP ?

19/11/2005

1-COMO DESCOBRIR O NOME DE UMA MAQUINA PELO Numero DO IP ?

Ex: 192.168.0.1 => SERVIDOR
192.168.0.2 => MICRO2 / TERMINAL-02
192.168.0.3 => MICRO3 / TERMINAL-03


2-É Possível fazer uma copia de um arquivo via IP, sem que a maquina
origem esteje mapeada ?

Exemplo: +- assim:
Copy 192.168.0.2:C:\ORIGEM\Nome_arquivo.TXT para C:\DESTINO\Nome_Arquivo.Txt


3: Como saber se uma máquina esta conectada, usando p/ exemplo
um ping ou algo parecido.

A quem puder responder, desde já meus agradecimentos.

T+

ANT.CARLOS/SP


[b:b9c2e3cbeb][color=blue:b9c2e3cbeb]Tópico movido por Vinicius2K:[/color:b9c2e3cbeb][/b:b9c2e3cbeb] [b:b9c2e3cbeb][color=red:b9c2e3cbeb][list:b9c2e3cbeb][*:b9c2e3cbeb]Fórum original: Interbase/Firebird[/list:u:b9c2e3cbeb][/color:b9c2e3cbeb][/b:b9c2e3cbeb]



Ant.carlos/sp

Respostas

19/11/2005

Afarias

|1-COMO DESCOBRIR O NOME DE UMA MAQUINA PELO Numero DO IP ?

remotamente? não tem como (e a princípio, nem pq)


|2-É Possível fazer uma copia de um arquivo via IP, sem que a maquina
|origem esteje mapeada ?

só é possível fazer isso usando algum aplicativo cliente/servidor. ou seja a máquina de origem deve ter um serviço rodando q permita isso, como exemplo um FTP, etc.


|3: Como saber se uma máquina esta conectada, usando p/ exemplo
|um ping ou algo parecido.

dê um ping e veja a resposta!


Agora veja, essa mensagem estaria melhor em outro lugar visto q nada disso tem a ver com o IB/FB


T+


Responder Citar

20/11/2005

Emerson

eu só gostaria de discordar da primeira resposta:
tem como pegar o nome de uma máquina remota pelo IP, desde que se tenha acesso à ela. prova disso é o ultravnc e outros programas de controle-remoto ou cavalos-de-tróia.

um código para ilustrar isso (retorna tanto o host local (da rede interna) quanto remoto (da internet)):

function GetHostName(strIPAddress : String) : String;
//
// Retorna o Host onde seu TCP/IP está conectado
// Requer a Winsock declarada na clausula uses da unit
//
var
  strHost: String;
  pszIPAddress: PChar ;
  pReturnedHostEnt: PHostEnt;
  InternetAddr: u_long;
  GInitData: TWSADATA;
begin
  strHost := ´´;
  if WSAStartup($101, GInitData) = 0 then
  begin
    pszIPAddress := StrAlloc( Length( strIPAddress ) + 1 );
    StrPCopy( pszIPAddress, strIPAddress );
    InternetAddr := Inet_Addr(pszIPAddress);
    StrDispose( pszIPAddress );
    pReturnedHostEnt := GetHostByAddr( PChar(@InternetAddr),4, PF_INET );
    try
      strHost := pReturnedHostEnt^.h_name;
      WSACleanup;
      Result := strHost;
    except
      Result := ´Host inválido ou não encontrado´;
    end;
  end;
end;



Responder Citar