I have my possible code, but I would like the @group_list to be automatically generated, and the @uid_list will be generated from a flat text file (I think, it isn't defined by customer yet).

use strict;
use Win32::NetAdmin qw(LocalGroupIsMember LocalGroupAddUsers);

my $server = "Server";
my $newserver = "NewServer";

# this part is stumping me, so I'll just use an array for now
my @group_list = qw(group1 group2 group3 group4);

my @uid_list = qw(uid1 uid2 uid3 uid4);

foreach $uid (@uid_list) {
    foreach $group (@group_list) {
        LocalGroupAddUsers($newserver,$group,$uid) if (LocalGroupIsMem
+ber($server,$group,$uid));
    }
}
[download]

J. J. Horner

Linux, Perl, Apache, Stronghold, Unix

jhorner@knoxlug.org http://www.knoxlug.org