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"; } }