Perl base de registre

Version imprimable

Bonjour,
J'ai un petit problème de script perl avec WMI, il n'affiche pas la valeur demander mais plutot ceci:

Win32::OLE=HASH(0x1aa7ee4)

Mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use strict;
use Win32::OLE;
 
 
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;
use XML::Dumper;
 
my @computers = ("localhost");
 
foreach my $computer (@computers) {
   my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
   my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_RegistryAction WHERE Hive='HKEY_LOCAL_MACHINE', Keypath='SYSTEM\\ControlSet001\\Control', Valuename = 'CurrentUser'", "WQL",
                  wbemFlagReturnImmediately | wbemFlagForwardOnly);
 
    print "%{$colItems}";
 
}sub WMIDateStringToDate(strDate)
 
{ 
   return "blah";
}

Normal, tu affiches une référence à un hash.
Ce bout de script provient du Scriptomatic, et a subi un copié / collé incomplet.

Voici la version complète et fonctionnelle :

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 Win32::OLE('in');
 
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;
 
my @computers = ("localhost");
foreach my $computer (@computers) {
   print "\n";
   print "==========================================\n";
   print "Computer: $computer\n";
   print "==========================================\n";
 
   my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
   my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_RegistryAction", "WQL",
                  wbemFlagReturnImmediately | wbemFlagForwardOnly);
 
   foreach my $objItem (in $colItems) {
      print "ActionID: $objItem->{ActionID}\n";
      print "Caption: $objItem->{Caption}\n";
      print "Description: $objItem->{Description}\n";
      print "Direction: $objItem->{Direction}\n";
      print "EntryName: $objItem->{EntryName}\n";
      print "EntryValue: $objItem->{EntryValue}\n";
      print "key: $objItem->{key}\n";
      print "Name: $objItem->{Name}\n";
      print "Registry: $objItem->{Registry}\n";
      print "Root: $objItem->{Root}\n";
      print "SoftwareElementID: $objItem->{SoftwareElementID}\n";
      print "SoftwareElementState: $objItem->{SoftwareElementState}\n";
      print "TargetOperatingSystem: $objItem->{TargetOperatingSystem}\n";
      print "Version: $objItem->{Version}\n";
      print "\n";
   }
}

20/01/2009, 21h11
smg257

Mais j'aurai voulu affiche qu'une seul valeur bien definie qui se trouve dans la base de registre
20/01/2009, 21h20
Invité

Change alors la requête WMI, comme par exemple:

Code:

SELECT * FROM Win32_RegistryAction WHERE Name=ma_valeur_au_choix

Et dans la boucle foreach, tu n'es pas obligé de faire un print de tous les champs.
20/01/2009, 21h23
smg257

Merci bien de ta réponse je vais voir ca de suite.
20/01/2009, 21h31
smg257

Sa ne fonctionne pas :(

J'ai remplacer name par key.

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
36
 
use strict;
use Win32::OLE('in');
 
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;
 
my @computers = ("localhost");
foreach my $computer (@computers) {
   print "\n";
   print "==========================================\n";
   print "Computer: $computer\n";
   print "==========================================\n";
 
   my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
   my $colItems = $objWMIService->ExecQuery("SELECT * FROM Win32_RegistryAction WHERE KEY=SYSTEM\ControlSet001\Control", "WQL",
                  wbemFlagReturnImmediately | wbemFlagForwardOnly);
 
   foreach my $objItem (in $colItems) {
      print "ActionID: $objItem->{ActionID}\n";
      print "Caption: $objItem->{Caption}\n";
      print "Description: $objItem->{Description}\n";
      print "Direction: $objItem->{Direction}\n";
      print "EntryName: $objItem->{EntryName}\n";
      print "EntryValue: $objItem->{EntryValue}\n";
      print "key: $objItem->{key}\n";
      print "Name: $objItem->{Name}\n";
      print "Registry: $objItem->{Registry}\n";
      print "Root: $objItem->{Root}\n";
      print "SoftwareElementID: $objItem->{SoftwareElementID}\n";
      print "SoftwareElementState: $objItem->{SoftwareElementState}\n";
      print "TargetOperatingSystem: $objItem->{TargetOperatingSystem}\n";
      print "Version: $objItem->{Version}\n";
      print "\n";
   }
}

Formule ta demande clairement !! :?
Que veux-tu faire au juste ?

Liste le contenu d'une clé de registre ? Utilise Win32::TieRegistry

Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use Win32::OLE('in');
use Win32::TieRegistry( Delimiter=>"#", ArrayValues=>0 );
 
 
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;
 
$pound= $Registry->Delimiter("/");
 
$softKey = $Registry->{"LMachine/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/"}
		or  die "Can't read LMachine/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall key: $^E\n";
 
	foreach(keys %$softKey) {
		$appNAME = $softKey->{$_}{'DisplayName'} || '---';
		$appVERSION = $softKey->{$_}{'DisplayVersion'} || '---';
		$appEDITEUR = $softKey->{$_}{'Publisher'} || '---';
 
        unless ($appNAME eq '---') {
			print "$appEDITEUR,$appNAME,$appVERSION";
		}
	}

20/01/2009, 21h53
smg257

Le but de mon script est de se connecter à distance donc en utilisant WMI, pour qu'il me donne la valeur de ceci:

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SystemBootDevice
21/01/2009, 07h47
Invité

Citation:

Envoyé par smg257

Le but de mon script est de se connecter à distance donc en utilisant WMI, pour qu'il me donne la valeur de ceci:

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SystemBootDevice

Oui je viens de te mettre cet exemple juste au dessus...