IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

[langage] Recuperer la version de Java depuis perl


Sujet :

Langage Perl

  1. #1
    Nouveau Candidat au Club
    Inscrit en
    novembre 2006
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : novembre 2006
    Messages : 2
    Points : 1
    Points
    1
    Par défaut [langage] Recuperer la version de Java depuis perl
    Bonjour,

    J'aurais besoin de récupérer la version, et donc le chemin de Java installé sur une machine WinXP.

    Je sais qu'en passant par les commande de lecture de la base de registre, je devrais m'en sortir, mais je suis perdu, complétement

    Si quelqu'un à une idée ou une solution (ce qui serait encore mieux), je suis preneur.

    SimonT

  2. #2
    Membre éclairé
    Avatar de GnuVince
    Profil pro
    Développeur informatique
    Inscrit en
    avril 2004
    Messages
    679
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : avril 2004
    Messages : 679
    Points : 803
    Points
    803
    Par défaut
    Le plus simple serait d'exécuter `java -version` et d'utiliser une expression régulière pour extraire le numéro de version.

  3. #3
    Nouveau Candidat au Club
    Inscrit en
    novembre 2006
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : novembre 2006
    Messages : 2
    Points : 1
    Points
    1
    Par défaut
    En fait, c'est bon, je suis passer par l'utilisation des WMI et une ch'tite requête type base de donnée...

    Ca donne un truc comme ce qui suit:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    use strict;
    use warnings;
    use Win32::OLE('in');
     
    # Programme principal (pas de sous-fonctions))
    my $computer = Win32::NodeName;
     
    my $objWMIService = Win32::OLE->GetObject
      ("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
    my $colItems = $objWMIService->ExecQuery
      ("SELECT * FROM Win32_Product where Name like 'java%'");
     
    if (scalar(in($colItems)) lt "1") 
    { 
      print "Liste vide !!!\n";
      exit;
    }
     
     
    foreach my $objItem (in $colItems)
    {
      my $path;
      if (!defined($objItem->{InstallLocation}))
      {
        next;
      }
      else
      {
        $path=$objItem->{InstallLocation};
      }
      print "Machine\t:\t$computer\n
      Name\t:\t$objItem->{Name}\n
      Path\t:\t$path \n
      \tVersion:\t$objItem->{Version}\n";
    }

    Voili, voila...
    Merci qd même

Discussions similaires

  1. JAVA ou PERL : Quel langage utiliser ?
    Par nicolep dans le forum Développement de jobs
    Réponses: 2
    Dernier message: 30/12/2008, 21h01
  2. Utiliser du Java depuis un langage de script et + si affinité. . .
    Par Yannick_from_31 dans le forum Général Java
    Réponses: 5
    Dernier message: 03/11/2006, 19h22
  3. [PERL et JAVA] Appeler PERL depuis JAVA
    Par krusty dans le forum Modules
    Réponses: 4
    Dernier message: 05/04/2006, 22h49
  4. Réponses: 10
    Dernier message: 24/05/2005, 17h00
  5. [langage] recuperer le dernier mot dune ligne
    Par kacedda dans le forum Langage
    Réponses: 6
    Dernier message: 29/04/2003, 15h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo