Obter Nome e IP do Host [Perl]

Obter Nome e IP do Host

Publicado por Dennis Henrique Leandro da Silva (última atualização em 11/11/2011)

[ Hits: 7.940 ]

Download InfoHost.pl

0 0

Denuncie Favoritos Indicar

Um script simples, mas muito util para saber o nome e ip do host local!
Pode ser adaptado para gravar num arquivo, ou então se conectar a um host remoto e enviar a ele o resultado!

Adapte-o conforme sua necessidade!

Abraço

Esconder código-fonte

#!/usr/bin/perl
use strict;
use warnings;
use Socket;
use Sys::Hostname;

#Script para obter nome e ip do computador que está executando o script!
#Simples mas muito util para algumas aplicações!

my $HostName = hostname();
my $IpAddr = inet_ntoa(scalar gethostbyname($HostName || 'localhost'));

print "\n\n$HostName\n";
print "$IpAddr\n\n";

Scripts recomendados

Script de conectividade wireless

UDP flood em Perl!

Carregando automaticamente wireless via ndiswrapper

Importação de IPs do Whatsapp como Objeto do Zentyal

Slowloris.pl (não foi feito por mim é apenas um compartilhamento.)

Comentários

[1] Comentário enviado por woc em 21/02/2014 - 10:49h

Muito bom seu script só faltava acrescentar o sleep, para que apos um tempo ele se feche sozinho...

#!/usr/bin/perl
use strict;
use warnings;
use Socket;
use Sys::Hostname;

#Script para obter nome e ip do computador que está executando o script!
#Simples mas muito util para algumas aplicações!

my $HostName = hostname();
my $IpAddr = inet_ntoa(scalar gethostbyname($HostName || 'localhost'));

print "\n\n$HostName\n\n";
print "$IpAddr\n\n";

sleep 3;

0 0

[2] Comentário enviado por woc em 21/02/2014 - 10:51h

ou o pause, para que fique aberto por tempo infinito até você fechar...

#!/usr/bin/perl
use strict;
use warnings;
use Socket;
use Sys::Hostname;

#Script para obter nome e ip do computador que está executando o script!
#Simples mas muito util para algumas aplicações!

my $HostName = hostname();
my $IpAddr = inet_ntoa(scalar gethostbyname($HostName || 'localhost'));

print "\n\n$HostName\n\n";
print "$IpAddr\n\n";

system "pause > nul";

0 0