Hromadne pridavani uzivatelu do Samby

[Janek]

myslite neco jako:

#!/usr/bin/perl

$user = shift or &syntax;
$group = shift or $user;
$pass = shift;

if ($group ne $user) {
	$result = `groupadd $group 2>&1 >/dev/null`;
}

print "Skupina $group byla zalozena\n" if !$result;

print "Pridavam uzivatele $user ... \n";

$result = `adduser -nd /home/users/$user $user -G $group`;

if (!$pass) {
	print "Zadej heslo: ";
	$pass = <>;		
	print "OK\n";
	if (!$pass) {
		die "Eh? co takhle heslo !";
	}
}
print "Nastavuji heslo pro linux...\n";

$result = `echo "$pass" | passwd $user --stdin`;

print "Nastavuji heslo pro sambu...\n";

$result = `smbpasswd -a $user $pass`;

print "Hotovo\n";

sub syntax {
	print "newuser by yanek <janek\@centrum.cz>\n";
	print "Syntax: $0 <user> [group] [pass]\n";
	exit(0);
}

__EOF__

p.s. jestli tam mam chyby, tak za to nemuzu :)


-----Original Message-----
From: Igi <igi na wo.cz>
Sent: Fri, May 18, 2001 at 09:41:13PM +0200
To: To linux na linux.cz
Subject: Hromadne pridavani uzivatelu do Samby

# Zdravim !
# 
# Nemohl by nekdo dodat nejaky jednoduchy skript, kde bych jako parametr uvedl
# uziv. jmeno a ono by to zalozilo ucet v Linuxu (nejlip s podobnym
# nastavenim jako kdybych ho pridaval pres linuxconf, tj. vcetne home
# directory...) a zaroven i ucet pro Sambu (smbpasswd) ?
# 
# Nejake skripty jsem nasel, ale slo vzdy o automaty, ktere vytvorily
# stovky uctu typu PC01, PC02, PC03... a to ja nechci.
# 
# Predem diky, s pozdravem Igi
# 

-- 
[^~^~^~^~^~^ Janek ^~^~^~^~^~^T^~^~^~^~^~^~^~ yanek ~^~^~^~^~^~^]
|     janek na isse.lipniknb.cz  | http://isse.lipniknb.cz/~janek/ |
|         PERL/CGI/WWW        |            yanek na IRCNet         |
[____________________________ ! ________________________________]
Antivirus alert: file .signature infected by signature virus.
Hi! I'm a signature virus! Copy me into your signature file to help me spread!