Technische Dokumentation zum Unix-Verbund ... - Dr. Hubert Feyrer

B.20 Adduser/lsoracleusers 312
}
$passwd=$p1
die "Can't use null-password.\n" if $passwd eq "";
$cpasswd=encrypt($passwd);
#print "\n";
#print "login: $login\n";
#print "passwd: $passwd\n";
#print "cpasswd: $cpasswd\n";
#die;
open(IN,"&1 >/dev/null ");
chomp($hostname=`uname -n`);
print "yellow pages passwd changed on $hostname\n";
exit 0;
B.20 Adduser/lsoracleusers
B.21 Adduser/lswin2kusers
#!/bin/sh
# $Id: lswin2kusers,v 1.1 2001/08/22 11:39:38 feyrer Exp $
##########################################################################
# The contents of this file are (c) Copyright 1996-1998 by Hubert Feyrer.
# Any use of the knowledge stored in this file may not be used outside
# of the Fachhochschule Regensburg without contacting me first.
###########################################################################
rsh bt-win2k-server -l Administrator \
"cscript f:verwaltungsskripten\\listusers.vbs //nologo $1"
B.22 Adduser/checkoracleusers
#!/soft/bin/perl
#
# Guckt nach wer keinen Oracle-Account hat
#
# list of oracle users holen
open (ORA, "./lsoracleusers | tr '[:upper:]' '[:lower:]' |") || die;
while() {
chomp;
if (/^(\w\w\w\d\d\d\d\d)/) {
$orauser{$1} = 1;
}
}
close(ORA);
(c) 1996-2003 Hubert Feyrer Stand: 21. Oktober 2003