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 : 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
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";
}