Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset
Comments Off

Création automatique des utilisateurs sous Windows

Your ads will be inserted here by

Easy AdSense.

Please go to the plugin admin page to paste your ad code.


Download

#!/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]

Comments are closed.

Sex Cams Movable Theme