Author: obnox Date: 2007-07-05 00:07:40 +0000 (Thu, 05 Jul 2007) New Revision: 23712
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=23712 Log: This script allows for adding lists of users (or other objects) to lists of groups (or aliases). Useful for creating large test scenarios. Michael Added: branches/SAMBA_3_0/examples/scripts/users_and_groups/addusertogroups.pl Changeset: Added: branches/SAMBA_3_0/examples/scripts/users_and_groups/addusertogroups.pl =================================================================== --- branches/SAMBA_3_0/examples/scripts/users_and_groups/addusertogroups.pl 2007-07-04 23:21:51 UTC (rev 23711) +++ branches/SAMBA_3_0/examples/scripts/users_and_groups/addusertogroups.pl 2007-07-05 00:07:40 UTC (rev 23712) @@ -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"); +} Property changes on: branches/SAMBA_3_0/examples/scripts/users_and_groups/addusertogroups.pl ___________________________________________________________________ Name: svn:executable + *
