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"); -}
