Foro - Perl en Español

por **lnx_hg** » 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.

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.

por **lnx_hg** » 2013-07-27 14:22 @640

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

por **lnx_hg** » 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.001 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.005 segundos,  usando GeSHi 1.0.8.4

que es uno que bajé de Internet.

Saludos.

por **explorer** » 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.

por **lnx_hg** » 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

por **lnx_hg** » 2013-08-06 17:36 @775

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

Saludos.

por **explorer** » 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

Publicidad

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

¿Quién está conectado?