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