Descrição
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
[ 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";
Scripts recomendados
R4tz - Portscan basicão
Smb Network
Script para Detectar rede Wireless
Port scanner
ping Aviso
Comentários
| Nenhum comentário foi encontrado. |
Indicar para um amigo
Escrever um script