PC-Installation: Unattended-Setup Windows NT ... - Dr. Hubert Feyrer

3.1.5 Dateien & Verzeichnisse für die Bootfloppies 39
$cmd="net user $login $password /add"
." /active:YES"
." /comment:\"$fullname\""
." /fullname:\"$fullname\""
." /profilepath:$PROFILESDIR2\\$login"
." /scriptpath:UserLogon.cmd"
." /usercomment:\"$fullname\"";
$rc=system($cmd); print "net user /add rc=$rc\n";
$rc=system("mkdir $login"); print "mkdir rc=$rc\n";
$rc=system("cacls $login /e /p Jeder:R"); print "cacls1 rc=$rc\n";
$rc=system("cacls $login /e /p Administrator:F"); print "cacls2
rc=$rc\n";
$rc=system("cacls $login /e /p Administratoren:F"); print "cacls2
rc=$rc\n";
$rc=system("cacls $login /e /p System:F"); print "cacls2 rc=$rc\n";
$rc=system("cacls $login /e /p $login:F"); print "cacls2 rc=$rc\n";
system("copy $DEFAULTUSER\\NTUSER.man $login\\ntuser.man");
$rc=system("cacls $login\\ntuser.man /e /p Administrator:F"); print
"cacls2 rc=$rc\n";
$rc=system("cacls $login\\ntuser.man /e /p Administratoren:F"); print
"cacls2 rc=$rc\n";
$rc=system("cacls $login\\ntuser.man /e /p System:F"); print "cacls2
rc=$rc\n";
$rc=system("cacls $login\\ntuser.man /e /p $login:F"); print "cacls2
rc=$rc\n";
$rc=system("cacls $login"); print "cacls rc=$rc\n";
__END__
:endofperl
3.1.5.21 deluser.bat
@rem = '--*-Perl-*--
@echo off
perl -x -S %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
#!/usr/local/bin/perl -w
#line 8
$PROFILESDIR='C:/winnt/Profiles';
#$PROFILESDIR='y:/winnt/profiles';
#$PROFILESDIR='c:\hf\adduser';
#$PROFILESDIR2='\\bt-nt-server\profiles';
#$PROFILESDIR2=$PROFILESDIR;
#$DEFAULTUSER="Kurs";
if ($#ARGV < 0) {
die "Usage: $0 Login\n";
}
$login=shift(@ARGV);
chdir($PROFILESDIR);
(c) 1998 Hubert Feyrer Stand: 30. September 1998