From 85f7c7127f6542850282a3f86451e8e4e16736c6 Mon Sep 17 00:00:00 2001
From: Michael Adam <obnox@samba.org>
Date: Wed, 4 Jul 2007 16:17:48 +0000
Subject: [PATCH] r23706: Add a script to create domainusers,-groups and
 -aliases. This is done via rpc client. The main purpose is to be able to fill
 a domain controller with a large number of users / groups easily. A the
 object names are built as <prefix><num> where number ranges from a given
 start number counting up until a given number of objects has been created.

In a next step, I will submit scripts to add (many) users to
a group and to add a user to (many) groups.

Michael
(This used to be commit 8b81fbb7d998eda65978a772f2194b4a3de467f9)
---
 .../scripts/users_and_groups/createdomobj.pl  | 155 ++++++++++++++++++
 1 file changed, 155 insertions(+)
 create mode 100755 examples/scripts/users_and_groups/createdomobj.pl

diff --git a/examples/scripts/users_and_groups/createdomobj.pl b/examples/scripts/users_and_groups/createdomobj.pl
new file mode 100755
index 00000000000..4bcfb8edf3e
--- /dev/null
+++ b/examples/scripts/users_and_groups/createdomobj.pl
@@ -0,0 +1,155 @@
+#!/usr/bin/perl
+
+#
+# createdomobj.pl
+#
+#    create single or continuously numbered domain 
+#    users/groups/aliases via rpc
+#
+# Copyright (C) Michael Adam <obnox@samba.org> 2007
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by the Free
+# Software Foundation; either version 2 of the License, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
+# more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# this program; if not, write to the Free Software Foundation, Inc., 675
+# Mass Ave, Cambridge, MA 02139, USA.
+#
+
+#
+# WARNING: This script is still rather crude.
+#
+
+use strict;
+use Getopt::Std;
+
+
+my $target_type	= "group";		# what type of object to create
+my $rpc_cmd	= "createdom".$target_type;
+my $rpccli_cmd	= "rpcclient";
+
+# defaults:
+
+my $server;
+my $num_targets	= 1;
+my $startnum;				# if empty, don't add numbers to prefix
+my $prefix	= $target_type;		# name-prefix
+my $path;				# path to rpcclient command
+my $rpccli_path	= $rpccli_cmd;
+my $creds;
+
+sub usage {
+	print "USAGE: $0 [-h] -S server -U user\%pass [-p prefix] \\\n"
+		. "\t[-t {alias|group|user}] [-s startnum] [-n numobjs] [-P path] \n";
+}
+
+# parse commandline:
+
+my %options = ();
+getopts("U:t:S:s:n:p:P:h", \%options);
+
+if (exists($options{h})) {
+	usage();
+	exit 0;
+}
+
+if (exists($options{t})) {
+	$target_type = $options{t};
+	if ($target_type !~ /^(alias|user|group)$/) {
+		print "ERROR: invalid target type given\n";
+		usage();
+		exit 1;
+	}
+	$rpc_cmd = "createdom".$target_type;
+}
+
+if (exists($options{U})) {
+	$creds = "-U $options{U}";
+	if ($creds !~ '%') {
+		print "ERROR: you need to specify credentials in the form -U user\%pass\n";
+		usage();
+		exit 1;
+	}
+}
+else {
+	print "ERROR: mandatory argument '-U' missing\n";
+	usage();
+	exit 1;
+}
+
+if (exists($options{S})) {
+	$server = $options{S};
+}
+else {
+	print "ERROR: madatory argument '-S' missing\n";
+	usage();
+	exit 1;
+}
+
+if (exists($options{s})) {
+	$startnum = $options{s};
+}
+
+if (exists($options{n})) {
+	$num_targets = $options{n};
+}
+
+if (exists($options{p})) {
+	$prefix = $options{p};
+}
+
+if (exists($options{P})) {
+	$path = $options{p};
+	$rpccli_path = "$path/$rpccli_cmd";
+}
+
+if (@ARGV) {
+	print "ERROR: junk on the command line ('" . join(" ", @ARGV) . "')...\n";
+	usage();
+	exit 1;
+}
+
+# rpc open/close functions:
+
+sub open_rpc_pipe {
+	print "opening rpc pipe\n";
+	open(IPC, "| $rpccli_cmd $server $creds -d0") or
+		die "error opening rpc pipe.";
+}
+
+sub close_rpc_pipe {
+	print "closing rpc pipe\n";
+	close(IPC);
+}
+
+# main:
+
+open_rpc_pipe();
+
+if ("x$startnum" eq "x") {
+	my $target_name = $prefix;
+	print "creating $target_type $target_name\n";
+	print IPC "$rpc_cmd $target_name\n";
+}
+else {
+	for (my $num = 1; $num <= $num_targets; ++$num) {
+		my $target_name = sprintf "%s%.05d", $prefix, $startnum + $num - 1;
+		print "creating $target_type $target_name\n";
+		print IPC "$rpc_cmd $target_name\n";
+		if (($num) % 500 == 0) {
+			printf("500 ".$target_type."s created\n");
+			close_rpc_pipe();
+			sleep 2;
+			open_rpc_pipe();
+		}
+	}
+}
+close_rpc_pipe();
+
-- 
2.34.1