J'essai de lire une cl=E9 de registre sur un ordinateur distant mais mon
programme ne marche pas.
use strict;
use Win32::OLE;
my $HKLM =3D 0x80000002;
my $strComputer =3D "SRVMSG";
my $strKeyPath =3D "SOFTWARE\\Network Associates\\McAfee
GroupShield\\SystemState";
my $strValueName =3D "DATVersion";
my $strValue =3D "";
my $strOut;
my $objReg =3D
Win32::OLE->GetObject('winmgmts:{impersonationLevel=3Dimpersonate}!\\\\'
. $strComputer . '\\root\\default:StdRegProv') or die "Erreur 1";
$strOut =3D $objReg->GetStringValue($HKLM, $strKeyPath, $strValueName,
$strValue) or die "Erreur 2";
print "version DAT : $strValue\n";