summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Adam <obnox@samba.org>2007-07-05 00:07:40 +0000
committerGerald (Jerry) Carter <jerry@samba.org>2007-10-10 12:23:47 -0500
commit459d01489fcebfe923328409d8ad5750c218cb18 (patch)
tree679fca8c9d9c794d4d52aec31ebb9fbf5e06ea3c
parent4b1fbd17c4de11e9da610e3ecd83a975a8e64df2 (diff)
downloadsamba-459d01489fcebfe923328409d8ad5750c218cb18.tar.gz
samba-459d01489fcebfe923328409d8ad5750c218cb18.tar.bz2
samba-459d01489fcebfe923328409d8ad5750c218cb18.zip
r23712: This script allows for adding lists of users (or other objects)
to lists of groups (or aliases). Useful for creating large test scenarios. Michael (This used to be commit 0c03c78af8f62ece2965e0f5a16c001aad61c8fa)
-rwxr-xr-xexamples/scripts/users_and_groups/addusertogroups.pl17
1 files changed, 17 insertions, 0 deletions
diff --git a/examples/scripts/users_and_groups/addusertogroups.pl b/examples/scripts/users_and_groups/addusertogroups.pl
new file mode 100755
index 0000000000..f3e1bee977
--- /dev/null
+++ b/examples/scripts/users_and_groups/addusertogroups.pl
@@ -0,0 +1,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");
+}