svn commit: samba r23712 - in
branches/SAMBA_3_0/examples/scripts/users_and_groups: .
obnox at samba.org
obnox at samba.org
Thu Jul 5 00:07:41 GMT 2007
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
+ *
More information about the samba-cvs
mailing list