use Net::SecurityCenter;
my $sc = Net::SecurityCenter('sc.example.org') or die "Error: $@";
$sc->login(username => 'secman', password => 's3cr3t');
if ($sc->error) {
print "Failed login: " . $sc->error;
exit 0;
}
my $running_scans = $sc->scan_result->list_running;
if ($sc->scan_result->status( id => 1337 ) eq 'completed') {
$sc->scan_result->download( id => 1337,
filename => '/tmp/1337.nessus' );
}
$sc->logout();
Using Makefile.PL:
To install Net::SecurityCenter
distribution, run the following commands.
perl Makefile.PL
make
make test
make install
Using App::cpanminus:
cpanm Net::SecurityCenter
perldoc Net::SecurityCenter
- https://metacpan.org/release/Net-SecurityCenter
- https://giterlizzi.github.io/perl-Net-SecurityCenter
- Copyright 2018-2021 © Giuseppe Di Terlizzi
- Nessus®, Tenable.sc® and SecurityCenter® is a Registered Trademark of Tenable®, Inc.