Discussion :

[simonT]

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

[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.

[simonT]

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