From 459d01489fcebfe923328409d8ad5750c218cb18 Mon Sep 17 00:00:00 2001 From: Michael Adam Date: Thu, 5 Jul 2007 00:07:40 +0000 Subject: 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) --- examples/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 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"); +} -- cgit