Tool zum Masseneintrag von Usern auf Windows-Server 2003 gesucht

#!/usr/bin/perl 

use strict;
use warnings;

# Zeichen, die in Passwörtern vorkommen können
my @chars=split("","abcdefghkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ123456789");  
# Länge des Passworts
my $len = 6;
# Benutzernamenpräfix
my $prefix="User";  
# Benutzernamen Nummerierung, von bis
my $first=601;
my $last=999;
# Ausgabedateien;
my $datafile="NeueBenutzer.csv";  
my $newusers="NeueBenutzer.bat";  
my $dirstructure="BenutzerVerzeichnisse.bat";  
my $permissions="Berechtigungen.bat";  
my $pwdneverexp="PassWdNeverExp.bat";  

# Server (IP oder Name)
my $server="192.168.188.250";  
# Profilepfad
my $profilepath="Profiles\\UserDefault";  
# Pfad für Benutzerdateien auf dem Server (absoluter Pfad)
my $userdata="c:\\Userdata";  



if (-e "$datafile") {  
    die "Neue Benutzerdatei \"$datafile\" schon vorhanden, STOP!\n";  
}

# csv datei mit Benutzername;Password
open DATA, ">$datafile" or die $!;  
open BATCH, ">$newusers" or die $!;  
for my $user ($first..$last) { 
    my $password;

    foreach (0..$len-1) { 
        $password .= $chars[int(rand(@chars))]; 
    } 
    print DATA $prefix, $user, ";", $password, "\n";  
    print BATCH $prefix, $user, " ", $password, " /profilepath:\\\\$server\\$profilepath /passwordchg:no /add\n";  
}
close DATA;
close BATCH;

# Ordnerstruktur erzeugen und Verzeichnis-Berechtigungen anpassen
open DIRBATCH, ">$dirstructure" or die $!;  
open ACLBATCH, ">$permissions" or die $!;  
for my $user ($first..$last) {
    my $username = $prefix . $user;
    print DIRBATCH "mkdir $userdata\\$username\n";  
    print ACLBATCH "xcacls.vbs \\$server\\$userdata\\$username /T /G $username:F administrator:F dozent:F\n";  
}
close DIRBATCH;
close ACLBATCH;

# Festlegen, dass das Benutzerkennwort niemals abläuft
open PWDBATCH, ">$pwdneverexp" or die $!;  
for my $user ($first..$last) {
    print PWDBATCH "netuser.exe -c $prefix$user /U:T /W:T\n";  
}
close PWDBATCH;