sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2024-12-23 17:34:34 +03:00
Code

r11645: mklogon updates from Ricky Nance

Browse Source
This commit is contained in:
Gerald Carter 2005-11-10 14:30:39 +00:00 committed by Gerald (Jerry) Carter
parent 37d2bf02f3
commit 5bfa88225c
2 changed files with 68 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
examples/logon/mklogon/mklogon.conf
View File

@ -6,72 +6,73 @@
# infront of your # on a comment it breaks ...
# logging = yes # Should Logging be enabled (YES,ON,1 or NO,OFF,0)(if not specified defaults to no)
# logdir = "/root/perl" # What is the base directory the logs should be stored.
# logfile = "userlogs.txt" # What should the file be named.
# logtype = file (default) # file will log to the file specified, syslog is well... the system logs ;)
# logfile = "userlist.txt" # What should the file be named.
# VERY IMPORTANT anything that has a "\" (backslash) in it ex. "C:\" MUST be changed to a double "\\" for
# it to be used in the script. ex. "C:\\"
[global]
logging = yes
logdir = "/home/samba/netlogon"
logfile = "UserLogs.txt"
logtype = system
mkprofile = 1
timesync = yes
sambaconf = "/etc/samba/smb.conf"
logtype = file
# Change and uncomment the below value to force the servername, some clients ocassionally
# have trouble picking up the right servername so it may need to be set. It CANNOT be left blank AND uncommented.
# servername = staticservername
servername = "TIGER"
[common]
public = P:, public
home = H:, /home
[groupmap]
admin = Y:, UTILS
adm = R:, NETLOGON
adm = R:, NETLOGON, Y:, ARCHIVES
teachers = S:, RECORDS, X:, SIS
plato = T:, PLATO
webpage = W:, WEB
hsoffice = N:, HSOFFICE, Q:, COMMON, X:, SIS
suoffice = N:, super, Q:, COMMON, X:, SIS
emoffice = N:, emOFFICE, Q:, COMMON, X:, SIS
tech = O:, utils
yearbook = Y:, yearbook
[usermap]
user1 = G:, GHOST
beanbags = Q:, STAR
avinst = P:\\vexira\\vexprof.bat
rnance = G:, GHOST, I:, TTL, Y:, ARCHIVES, R:, NETLOGON, X:, SIS
lwatts = G:, GHOST, I:, TTL, Y:, ARCHIVES, R:, NETLOGON, X:, SIS
droot = U:, stuhomes
2007mbk = Y:, yearbook
2008mll = Y:, yearbook
2008jtj = Y:, yearbook
2007tja = Y:, yearbook
2007hms = Y:, yearbook
2006dpv = Y:, yearbook
2006jwb2 = Y:, yearbook
2007npd = Y:, yearbook
astewart = Y:, yearbook
# Here is where things get confusing, you can assign a computer, or make a group of computers.
# The same context will go for ip address's as well.
# The same context will go for ip address's as well, however you can also specify ip ranges,
# but I have not yet figured out how to do multiple ranges.
# Use the following examples for help.
# To define a single computer to do commands
# mymachinename = command1, command2
# To define a group of computers to do commands
# mymachinegroup = machinename1, machinename2
# [preformcommands]
# [performcommands]
# mymachinegroup = command1,command2
# iprangegroup1 = 10.1.2.1 - 10.1.3.1
[machines]
#emints 1 is jf
emints1 = school-w88zfod9, school-o8axvv6t, school-mmtudgbo, school-dpokmajd, school-m84hx4iw, school-74548k1j, school-vou4gdap, school-qfuw5uho
#emints 2 is kh
emints2 = school-w7loulcx, school-2tbh64eu, school-uunqieuz, school-pow35do4, school-x0v0cbiz, school-zu5qyjhw, school-l4q4j32o
[ip]
ipgroup1 = 10.5.1.1 - 10.5.1.10, 10.1.1.255/24
ipgroup2 = 10.1.1.1
sixthemints = 10.1.5.201 - 10.1.5.215
# This is the section where you can specify things according to the operating system of the client.
# The clients OS -- Windows 95/98/ME (Win95), Windows NT (WinNT),
# Windows 2000 (Win2K), Windows XP (WinXP), and Windows 2003
# (Win2K3). Anything else will be known as ``UNKNOWN''
# That snippet is directly from man smb.conf.
#
[os]
Win95 = REM your computer is windows 9x based
WinNT =
Win2K =
WinXP =
Win2K3 =
UNKNOWN =
[preformcommands]
emints1 = START \\\\JF-TEACHER\\Brother, START \\\\JF-TEACHER\\Canon, REGEDIT /S P:\\SETHOME-JF.REG, your in emints 1
emints2 = START \\\\s0034292474\\Brother, START \\\\s0034292474\\Canon, REGEDIT /S P:\\SETHOME-KH.REG
ipgroup1 = echo your in the ip group
ipgroup2 = echo your in the ip group 2, start command.com
[performcommands]
common = "XCOPY P:\\TYPEN32.INI C:\\WINDOWS\\ /Y \>NUL", "XCOPY P:\\ARPROGRAMS\\DBLOCATION\\\*\.\* C:\\WINDOWS\\ /Y \>NUL", "XCOPY P:\\EMACTIVITIES\\EMGAMESPREFS.INI C:\\WINDOWS\\ /Y \>NUL", "PATH\=\%PATH\%;p:\\PXPerl\parrot\\bin;p:\\PXPerl\\bin"
sixthemints = "start \\\\10.1.5.20\\printer"

50
examples/logon/mklogon/mklogon.pl
View File

@ -22,8 +22,8 @@
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
# Version: 1.1 Beta
# Revised: 06/28/2005
# Version: 1.0 (Stable)
# Revised: 07/28/2005
# Comments...
# Working on logging to the system logs, Logs user activity, but not errors yet.
@ -144,11 +144,11 @@ if ( defined($smbprof) ) {
print "$smbprof \n";
print "$dir2 \n";
if ( !-e $dir2 ) {
print "Creating " . $user . "'s profile \n";
print "Creating " . $user . "'s profile with a uid of $uid\n";
mkdir $smbprof;
mkdir $dir2;
chomp($user);
chown $uid, $gid, $smbprof;
# chown $uid, $gid, $smbprof;
chown $uid, $gid, $dir2;
} else {
print $user . "'s profile already exists \n";
@ -174,6 +174,13 @@ for my $key ( keys %$common ) {
drive_map( @{ $common->{$key} } );
}
my @perform_common = $cfg->param("performcommands.common");
if ( defined( $perform_common[0] ) ) {
foreach (@perform_common) {
print LOGON "$_ \r\n";
}
}
# Map shares on a per user basis.
drive_map(@username);
@ -195,30 +202,33 @@ for my $key ( keys %$compname ) {
if ( ref $test eq 'ARRAY' ) {
foreach (@$test) {
if ( $_ eq $machine ) {
my $preformit = $cfg->param("preformcommands.$key");
if ( defined($preformit) ) {
if ( ref $preformit ) {
foreach (@$preformit) { print LOGON "$_ \r\n"; }
my $performit = $cfg->param("performcommands.$key");
if ( defined($performit) ) {
if ( ref $performit ) {
foreach (@$performit) { print LOGON "$_ \r\n"; }
} else {
print LOGON "$preformit \r\n";
print LOGON "$performit \r\n";
}
}
}
}
}
elsif ( $test eq $machine ) {
my $preformit = $cfg->param("preformcommands.$key");
if ( defined($preformit) ) {
if ( ref $preformit ) {
foreach (@$preformit) { print LOGON "$_ \r\n"; }
my $performit = $cfg->param("performcommands.$key");
if ( defined($performit) ) {
if ( ref $performit ) {
foreach (@$performit) { print LOGON "$_ \r\n"; }
} else {
print LOGON "$preformit \r\n";
print LOGON "$performit \r\n";
}
}
}
}
# Here is where we test the ip address against the client to see if they have "Special Mapping"
# A huge portion of the ip matching code was made by
# Carsten Schaub (rcsu in the #samba chan on freenode.net)
my $val;
for my $key ( sort keys %$ipname ) {
if ( ref $ipname->{$key} eq 'ARRAY' ) {
@ -234,12 +244,12 @@ sub getipval {
my ( $range, $rangename ) = @_;
if ( parse( $ip, ipmap($range) ) ) {
if ( $val eq 'true' ) {
my $preformit = $cfg->param("preformcommands.$rangename");
if ( defined($preformit) ) {
if ( ref $preformit ) {
foreach (@$preformit) { print LOGON "$_ \r\n"; }
my $performit = $cfg->param("performcommands.$rangename");
if ( defined($performit) ) {
if ( ref $performit ) {
foreach (@$performit) { print LOGON "$_ \r\n"; }
} else {
print LOGON "$preformit \r\n";
print LOGON "$performit \r\n";
}
}
} elsif ( $val eq 'false' ) {
@ -307,7 +317,7 @@ sub drive_map {
my $sharename = $data[$i];
$i++;
if ( $sharename eq '/home' ) {
print LOGON uc("NET USE $driveletter $sharename \/Y \r\n");
print LOGON uc("NET USE $driveletter \\\\$server\\$user \/Y \r\n");
} else {
print LOGON
uc("NET USE $driveletter \\\\$server\\$sharename \/Y \r\n");