Sample code
#!/usr/bin/perl -w
# This script calls the SOAP method " DeviceAssetInfoExport" on a N-able N-central server.
# The data structure returned is printed to stdout using Data::Dumper.
use strict;
use SOAP::Lite;
use Data::Dumper;
my $NableServer = SOAP::Lite ->uri("http://www.n-able.com/mickey")
->proxy("http://integration1.n-able.com/dms/services/ServerEI");
my $functionName = " DeviceAssetInfoExport";
my $result = $NableServer->$functionName(
SOAP::Data->name('Version' => SOAP::Data->type(string=>"1.0")),
SOAP::Data->name('Username' => "username"),
SOAP::Data->name('Password' => "password")
);
unless ($result->fault) {
my $deviceDataArray = $result->result();
print Dumper($deviceDataArray) , "\n";
} else {
print "Call returned fault\n";
print $result->faultstring . "\n";
exit 1;
}
exit 0;