blob: f3e1bee97721100a8a7658b5f1028d08bff532cb (
plain)
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");
}
|