Archive for the ‘Win32’ Category

Automation: Création automatique d’un graphique dans MS Excel

 set, stack
{filelink=13529}

#!/usr/bin/perl -w
 
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use strict;
 
# création d'un objet OLE sur MS Excel
my $xls_app = Win32::OLE->new( 'Excel.Application' )
	or die "Impossible de se connecter à MS Excel, $!";
 
# Lancer Excel.
$xls_app->{'Visible'} = 1;
 
my $workbook= $xls_app->Workbooks->Add();
 
# Graphique
my $feuil   = $workbook->Worksheets(1);
 
my $chart_range = $feuil->Range("B3:C3");
 
my $chart = $xls_app->Charts->Add();
 
# Type de graphique
$chart->{'ChartType'} = xlAreaStacked;
 
$chart->SetSourceData(
    {
    Source => $chart_range,
    PlotBy => xlColumns
    } );
 
$chart->{'HasTitle'} = 1;
$chart->ChartTitle->{'Text'} = "Rapport 2010";

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]

Automation: Ouvrir Microsoft Excel, créer un classeur et ajouter des données dans les cellules

classe
{filelink=13528}

#!/usr/bin/perl -w
 
use Win32::OLE;
use strict;
 
# création d'un objet OLE sur MS Excel
my $xls_app = Win32::OLE->new( 'Excel.Application' )
	or die "Impossible de se connecter à MS Excel, $!";
 
# Lancer Micosoft Excel.
$xls_app->{'Visible'} = 1;
 
# Créer un document.
$xls_app->Workbooks->Add();
 
# Ajouter des Informations dans certaines Cellules
$xls_app->Range("A1")->{'Value'} = "Janvier";
$xls_app->Range("B1")->{'Value'} = "Février";
$xls_app->Range("C1")->{'Value'} = "Mars";
$xls_app->Range("A2")->{'Value'} = 30;
$xls_app->Range("B2")->{'Value'} = 29;
$xls_app->Range("C2")->{'Value'} = 31;

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]

Lire les données du presse-papier windows


{filelink=13525}

#!/usr/bin/perl
 
use Win32::Clipboard;
 
my $presse_p = Win32::Clipboard->new();
 
$val = $presse_p->Get();
 
print "Voici le contenu du presse-papier: [ $val ]";

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]

Copier des informations dans le presse-papiers

 set
{filelink=13524}

#!/usr/bin/perl ?Cw
 
use Win32::Clipboard;
 
my $presse_p = Win32::Clipboard->new();
 
# Enregistrer le texte dans le presse-papier
$presse_p->Set( "Bienvenu sur perl.mesexemples.com" );

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]

Exécuter une formule sur Excel et afficher le résultat sur le console

 calcul
{filelink=13530}

#!/usr/bin/perl -w
 
use Win32::OLE;
 
$operand1 = '10';
$operand2 = '20';
 
$xls_app = Win32::OLE->new('Excel.Application');
 
# Lancer Micosoft Excel.
$xls_app->{'Visible'} = 1;
 
# Créer un document.
$xls_app->Workbooks->Add();
 
$xls_app->Cells(1,1)->{Value} = $operand1;
$xls_app->Cells(2,1)->{Value} = $operand2;
 
# Excéuter la formule
$xls_app->Cells(3,1)->{Formula} = '=somme(A1:A2)';
 
$somme = $xls_app->Cells(3,1)->{Value};
 
# Fermer MS Excel
$xls_app->Quit();
print "Excel a calculé et a retourné, $operand1 + $operand2 = $somme.";

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]

Obtenir le Système de fichier de OS

 fichier
{filelink=13532}

#!/usr/bin/perl -w
use Win32;
 
$fstype = Win32::FsType();
 
print "Votre Système de Fichier est: $fstype";

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]

Création automatique des utilisateurs sous Windows


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

Programme: Afficher la liste de tous les utilisateur d’un ordinateur ou un domaine

 list, list
{filelink=13538}

#!/usr/bin/perl -w
 
use Win32::NetAdmin;
 
$status = Win32::NetAdmin::GetUsers('', FILTER_NORMAL_ACCOUNT, %users);
 
if ($status) {
   print_hash( %users );
} else {
   print_error();
}
 
sub print_hash {
   my($hash_ref) = $_[0];
   my(@keys) = keys( %$hash_ref );
   my($key);
   my(@sorted) = sort( @keys );
   foreach $key (@sorted) {
      print "	 $key $$hash_ref{$key}";
   }
}
sub print_error {
    print Win32::FormatMessage( Win32::GetLastError() );
}

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]