svn commit: samba r23713 - in
branches/SAMBA_3_0/examples/scripts/users_and_groups: .
obnox at samba.org
obnox at samba.org
Thu Jul 5 00:11:08 GMT 2007
Author: obnox
Date: 2007-07-05 00:11:07 +0000 (Thu, 05 Jul 2007)
New Revision: 23713
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=23713
Log:
Oops accidentially checked in the wrong file - sorry!
Michael
Removed:
branches/SAMBA_3_0/examples/scripts/users_and_groups/addusertogroups.pl
Changeset:
Deleted: branches/SAMBA_3_0/examples/scripts/users_and_groups/addusertogroups.pl
===================================================================
--- branches/SAMBA_3_0/examples/scripts/users_and_groups/addusertogroups.pl 2007-07-05 00:07:40 UTC (rev 23712)
+++ branches/SAMBA_3_0/examples/scripts/users_and_groups/addusertogroups.pl 2007-07-05 00:11:07 UTC (rev 23713)
@@ -1,17 +0,0 @@
-#!/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");
-}
More information about the samba-cvs
mailing list