Création automatique des utilisateurs sous Windows

#!/usr/bin/perl -w
 
use Win32::NetAdmin;
 
$host = '';                         # Domaine
 
$username =


{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]

Be the first to leave a comment. Don’t be shy.

Join the Discussion

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>