Obter Nome e IP do Host

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

dennis.leandro

Por Dennis Henrique Leandro da Silva em 11/11/2011

Hits: 8.102 Categoria: Perl Subcategoria: Rede

Descrição

Download InfoHost.pl Enviar nova versã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";

Leitura recomendada

Script para Detectar rede Wireless

Carregando automaticamente wireless via ndiswrapper II

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

CRIAR CBQ

Smb Network

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;

#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";

Descrição

Leitura recomendada

Comentários

Contribuir com comentário