[langage] Recuperer la version de Java depuis perl

Version imprimable

09/11/2006, 14h45
simonT

[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 :oops:

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

SimonT
09/11/2006, 15h08
GnuVince

Le plus simple serait d'exécuter `java -version` et d'utiliser une expression régulière pour extraire le numéro de version.

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:

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