Forum GLPI-Project

durand.jm

Member

Registered: 2009-11-25

Posts: 110

Aide eventcentral

Bonjour,

je cherche un forum pour l'aide sur eventcentral...n'ayant pas trouvé mais vu qu'on en parlait ici et en plugins glpi ..je demande donc un peu d'aide

mon eventcentral FONCTIONNE mais je voudrais juste modifier un truc pour que cela soit plus simple pour moi pour le rapatriement des logs

cela doit etre tout simple mais vu que je ne sais pas codé quoi que ce soit ...c'est pas si simple pour moi

je m'explique c'est en perl (deja pmoi juste perl ca me disait rien il y a 2 jours....enfin si 1 an avec fusioninventory mais j'ai jamais mis les pieds dedans)

pour ceux qui connaisse eventcentral, c'est basé sur un fichier dumpel.pl qui va scanner les machines ..voici le DEBUT DU code de ce fichier

#!/perl/bin/perl.exe

# Dump quotidien des journaux d'évènement win32
# v4 (c) 01/2007 X. Dusart
# Nécessite le programme psloglist de Sysinternals.com
# Changements :
#  les fichiers générés ne portent plus le nom du jour ; ils sont destinés à être quotidiennement injectés en BdD et supprimés

use strict;
use Win32::NetAdmin;
use Win32::TieRegistry;
use Win32::NetResource;
use HTTP::Date;
use File::Basename;
use DBI();
use FindBin;
use lib "$FindBin::Bin/html";
use EventLog;

sub usage
{
    my $commande = $0;

    $commande =~ s|.*\\(.*)|$1|;
    print "$commande - v4.6 (c)01/2007 X.Dusart\n";
    print "Base sur psloglist.exe (http://www.sysinternals.com)\n";
    print "Usage : $commande <domaine[,login,password]> [domaine...]\n\n";
    print "Recupere les journaux d'evenement sur les serveurs du ou des domaines donnes,\n";
    print "en utilisant l'eventuel login du domaine sur chaque serveur.\n";
    print "Seuls les noms NetBIOS des domaines sont acceptes (pas les noms DNS).\n";
    print "Ce programme est destine a etre execute en tant que tache planifiee\n";
    exit 0;
}

sub get_serveurs
{
   my @domaines = @_;
   my (@resultat, @machines, $userPassword);

   foreach my $domaine (@domaines)
   {
      $userPassword = "";
      if ($domaine =~ /(.*)(,.*,.*)/) { $domaine = $1; $userPassword = $2; }

      # Voir en fin de fichier les valeurs possibles du 3eme parametre
      if (!Win32::NetAdmin::GetServers(undef,$domaine,0xFFFFFFFF,\@machines)) {
          warn "Impossible de voir le voisinage réseau de $domaine\n";
      } else {
          foreach (@machines) { /^A.*[^AERS2]$/i && do { push @resultat, "$_.${domaine}${userPassword}";}};
          # format de cla chaîne résultante : serveur.domaine,user,password
        }
   }
   return @resultat;
}
................................etc ....................

ce qui m'interresse est cette ligne plus particulierement

if (!Win32::NetAdmin::GetServers(undef,$domaine,0xFFFFFFFF,\@machines)) {
          warn "Impossible de voir le voisinage réseau de $domaine\n";
      } else {
          foreach (@machines) { /^A.*[^AERS2]$/i && do { push @resultat, "$_.${domaine}${userPassword}";}};

c'est ici que l'on dit ..je veux toutes les machines commencant par A mais qui ne finisse pas par AERS2

je voudrais tout simplement pouvoir mettre un et 1  seul nom ici , un NOM complet genre : SERVEUR

je ne veux pas qu'il liste tous les serveurs...puis les tries selon les parametres

comment puis je modifier ses lignes ?

merci de votre aide ...

Jean14

Member

Registered: 2013-03-25

Posts: 6

Re: Aide eventcentral

Désolé mais je me je n'ai pas les compétences pour vous aider.

Bonne chance

---

Infos & conseils sur l'infogérance
Solution d' infogérance de serveur dédié