__toString());
}
?>
####
#!c:/perl/bin
use SOAP::Lite;
use strict;
use warnings;
my %domainArray = (
'AuthUserName' => 'xxxxxxxxxxxxxx@xxxxxxxx.com',
'AuthPassword' => 'xxxxxxxxxx',
'NewUsername' => 'xxxxxxxx',
'NewPassword' => 'xxxxxxxxxxxx',
'DomainName' => 'xxxxxxxxxxx.com',
'FirstName' => 'john',
'LastName' => 'doe',
'IsDomainAdmin' => 0
);
my $WSDL = 'http://SMARTERMAIL.com/services/svcUserAdmin.asmx?WSDL';
my $soap = new SOAP::Lite->service($WSDL);
my %output = $soap->AddUser(%domainArray);
print "Output: ". %output;