Obter Nome e IP do Host

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

[ Hits: 7.305 ]

Download InfoHost.pl




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

Carregando automaticamente wireless via ndiswrapper II

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

Script de conectividade wireless

Simples [PortScanner]

Instalação automatizada do Squid 2.5 STABLE14


  

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


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts