{filelink=13537}

#!/usr/bin/perl -w

use Win32::NetAdmin;

$host = '';                         # Domaine

$username = "Sakoba";               # Utilisateur
$password = "******";               # Mot de passe
$password_expiration = 0;           # délai d'expiration de mot de passe

# Créer une description pour le compte
$description  = "compte créer par un programme Perl";

# Répertoire principal de l'utilisateur
$homedir = "C:\sakobaRep\" . $username;

 # Le type de Compte à créer
$flags = UF_SCRIPT | UF_NORMAL_ACCOUNT;

# créer l'utilisateur avec ses paramètres
$resultat = Win32::NetAdmin::UserCreate($host,
									 $username,
									 $password,
		                             $password_expiration,
                                     USER_PRIV_USER,
                                     $homedir,
                                     $description,
                                     $flags,
                                     '');

if ($resultat)
{
	# Si la création à réussi, Afficher un message
   print "L'utilisateur $username à été ajouté.";
} else {
   print_error();
}

sub print_error {
    print Win32::FormatMessage( Win32::GetLastError() );
}

########## Vérifier si l'utilisateur à été crée  """"""""""""

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]