examples/scripts/users_and_groups/addusertogroups.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl

use strict;

my $dc 		= "192.168.45.44";
my $adminuser 	= "administrator";
my $adminpw 	= "geheim";
my $maxgroups 	= 5000;
my $startgroup  = 0;
my $rpccli_cmd	= "/usr/bin/rpcclient";
my $testuser	= "testgroups";

for (my $num = $startgroup; $num <= $maxgroups; ++$num) {
	my $group = sprintf "%s%.05d", "group", $num;
	print "adding user $testuser to group $group\n";
	system("net rpc -I $dc -U$adminuser\%$adminpw group addmem $group $testuser");
}