use File::stat;
use File::Find;
use Win32::NetAdmin;
use Win32::OLE qw(in);
use Data::Dumper;

$computerName = "xxxxxxxx"; # Computername einfügen
$domainName = "xxxxxx.net"; # Domäne einfügen
$group = "Administrators";

SetGroupMembers();

sub SetGroupMembers
{
   my @users;

   print ("debug 10************************************\n");
   print Dumper(["$computerName.$domainName", $group, \@users]);
   if (Win32::NetAdmin::LocalGroupGetMembersWithDomain("$computerName.$domainName", $group, \@users)) {
      print Dumper(["$computerName.$domainName", $group, \@users]);
      print ("debug 11************************************\n");
   }
   else {
      print ("debug 12************************************\n");
      $errorCode = Win32::NetAdmin::GetError();
      print "LocalGroupGetMembers error: $errorCode\n";
   }
}