Foro - Perl en Español

Publicado: **2013-07-24 17:23 @766**

Buenas tardes.

Despues de años de inactividad vuelvo a las andadas

.

Mi problema es que deseo que me apoyen dándome una idea para obtener el sistema operativo de unos equipos de cómputo que haya en una red, esto mediante Perl. Ya investigué y encontré NMap, pero el problema es que esta aplicación que deseo hacer en Perl va a ser distribuida a varios usuarios y por lo que leí, se tiene que instalar NMap en los equipos donde se use mi aplicación. Así que yo creo que debe de haber una librería en CPAN que me diga esto.

Saludos y agradezco como siempre el apoyo que venga.

Publicado: **2013-07-24 17:59 @791**

Bueno, entrando en CPAN, y buscando por Nmap, salen dos coincidencias:

Nmap-Scanner (última versión, del 2007) (ejemplo) y
Nmap-Parser (última versión, hace cuatro meses).

Este último trae un programa llamado scan, que hace justamente lo que pides: averiguar todo lo que se pueda del sistema operativo de otra máquina. Utiliza para ello el ejecutable nmap, versión 3.49 o superior.

Bueno, el caso es que los dos sirven para lo mismo, aunque adoptan dos estrategias distintas a la hora de dialogar con nmap.

Y... estas no son las únicas soluciones en Perl para averiguar el sistema operativo remoto.

Publicado: **2013-07-27 14:22 @640**

Muchas gracias, explorer, tomo en cuenta tu recomendación y agradezco tu tiempo

Publicado: **2013-07-30 17:04 @752**

De nuevo, pues al analizar NMAP, me convenció y lo usé, ahora cualquier script que tiro me marca el error "The filename, directory name, or volume label syntax is incorrect".

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<nmap-error>
  <pid="5140"/>
  <cmdline="'C:\Program Files\Nmap\nmap.exe' -v -v -v -sS -p 1-1024 -O --max-rtt-timeout 200 MyServer -oX -"/>
  <nmap-err>
     The filename, directory name, or volume label syntax is incorrect.
  </nmap-msg>
</nmap-error>
 
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Estoy haciendo pruebas con el siguiente script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
 
use Nmap::Scanner;
 
my %network_status;
 
my $scanner = new Nmap::Scanner;
$scanner->register_scan_complete_event(\&scan_completed);
$scanner->guess_os();
 
$scanner->scan('-O 10.28.122.*');
 
foreach my $host ( keys %network_status ) {
    print "$host => $network_status{$host}\n";
}
 
 
sub scan_completed {
    my $self     = shift;
    my $host     = shift;
 
    my $hostname = $host->hostname();
    my $addresses = join(',', map {$_->addr()} $host->addresses());
    my $status = $host->status();
 
    print "$hostname ($addresses) is $status ";
 
    my $os_name = 'unknown OS';
    if ( $status eq 'up' ) {
        if ( $host->os() && $host->os()->osmatches() ) {
            my ($os_type) = $host->os()->osmatches();
            $os_name = $os_type->name();
        }
        print "($os_name)";
    }
    print "\n";
 
    $network_status{$addresses} = $os_name;
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

que es uno que bajé de Internet.

Saludos.

Publicado: **2013-07-30 18:12 @800**

Una pregunta: ¿el nmap.exe, en tu ordenador, está instalado en C:\Program Files\Nmap\? ¿No será en otro directorio?

Si no está ahí, debes llamar al método nmap_location(), para decirle dónde está, como se comenta al final de la página de manual de Nmap::Scanner::Scanner.

Publicado: **2013-07-30 21:19 @930**

Sí, es la ruta correcta, pero llamar al método de location lo haré más tarde, ya que no tengo el equipo a la mano, pero está en la ruta por defecto del nmap.exe.

Saludos

Publicado: **2013-08-06 17:36 @775**

Te confirmo que se encuentra instalado en C:\Program Files\Nmap\nmap.exe

Saludos.

Publicado: **2013-08-06 19:13 @842**

Parece que el problema está en las comillas.... Si ese es el caso, deberás modificar el código del propio módulo, o llamar a nmap_location(), con algo así:

nmap_location('"C:\Program Files\Nmap\nmap.exe"');

Bueno, no sé si hay que ponerle el resto de argumentos...

Edito: vale, el error está en esta línea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $cmd = "'$nmap' -v -v -v";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

de Scanner.pm. En tu caso, cámbialo a

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $cmd = qq("$nmap" -v -v -v);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y nos dices si funciona.

Foro - Perl en Español

Detectar sistema operativo de equipos en la red

Detectar sistema operativo de equipos en la red

Re: Detectar sistema operativo de equipos en la red

Re: Detectar sistema operativo de equipos en la red

Re: Detectar sistema operativo de equipos en la red

Re: Detectar sistema operativo de equipos en la red

Re: Detectar sistema operativo de equipos en la red

Re: Detectar sistema operativo de equipos en la red

Re: Detectar sistema operativo de equipos en la red