Array
(
)

Como descobri o nome da maquina pelo No do IP ?

Ant.carlos/sp
   - 19 nov 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



Citação:
Tópico movido por Vinicius2K:
[list:b9c2e3cbeb][*:b9c2e3cbeb]Fórum original: Interbase/Firebird[/list:u:b9c2e3cbeb]



Afarias
   - 19 nov 2005

|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+


Emerson
   - 20 nov 2005

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)):

#Código

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;