From 459d01489fcebfe923328409d8ad5750c218cb18 Mon Sep 17 00:00:00 2001
From: Michael Adam <obnox@samba.org>
Date: Thu, 5 Jul 2007 00:07:40 +0000
Subject: [PATCH] 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)
---
 .../scripts/users_and_groups/addusertogroups.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100755 examples/scripts/users_and_groups/addusertogroups.pl

diff --git a/examples/scripts/users_and_groups/addusertogroups.pl b/examples/scripts/users_and_groups/addusertogroups.pl
new file mode 100755
index 00000000000..f3e1bee9772
--- /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");
+}