> Hello there.
>
> I've got some old script which manage the NT useradministration. In this
> script the module AdminMisc is used.
> I saw in the ActivePerl Version 5 AdminMisc is no longer implemeted.
>
> So, which Module has now the functions of AdminMisc ?
>
> Or is there any ready actual script which can control the WinNT - 2000
> user and group administration ?
>
> The part of AdminMisc in the script looks like that:
>
> sub CreateUser {
> my ($server, $userName, $FullName, $comment, @groups) = @_;
> my $allgroups = '<UL>';
> my $groups;
>
> # Benutzerkonto anlegen
> if (Win32::NetAdmin::UserCreate($server, $userName, $password,
> $passwordAge, $privilege,
> $homeDir, $comment, $flags, $scriptpath) == 1) {
>
> # Vollständigen Namen hinzufügen
> if (Win32::AdminMisc::UserSetMiscAttributes($server, $userName,
> USER_FULL_NAME=>$FullName) == 1) {
>
> # Flag setzen - 'Benutzer muß Kennwort beim nächsten Log-In
> ändern'
> if (Win32::AdminMisc::UserSetMiscAttributes($server,
> $userName, USER_PASSWORD_EXPIRED=>1) == 1) {
> foreach $groups(@groups) {
>
> # Benutzer zu Gruppe hinzufügen
> if (Win32::NetAdmin::LocalGroupAddUsers($server,
> $groups, $userName)) {
> $allgroups .= "<DD><LI>$groups";
> }
> else {
> $allgroups .= "<DD><LI> $statustxt{nogrpadd}:
> $groups $warn_end";
> }
> }
> $status = "<B>$statustxt{'success'}</B><UL>";
> $status .= "<LI><B>Benutzername:</B> $userName\n";
> $status .= "<LI><B>Vollständiger Name:</B> $FullName\n";
> $status .= "<LI><B>Beschreibung:</B> $comment\n";
> $status .= "<LI><B>Basisverzeichnis:</B> $homeDir\n";
> $status .= "<LI><B>Anmeldeskript:</B> $scriptpath\n";
> $status .=
> "<LI><B>Gruppe(n):</B><BR>$allgroups</UL></UL>\n";
> }
> }
> }
> else {
> $status = $statustxt{'error'};
> }
> return($status);
> }
>
> Greets from Germany
>
> Thomas Neemann
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
