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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
package FusionInventory::Agent::Task::Inventory::Win32::Controllers;
use strict;
use warnings;
use FusionInventory::Agent::Tools::Generic;
use FusionInventory::Agent::Tools::Win32;
sub isEnabled {
return 1;
}
sub doInventory {
my (%params) = @_;
my $inventory = $params{inventory};
foreach my $controller (_getControllers(
logger => $params{logger},
datadir => $params{datadir}
)) {
$inventory->addEntry(
section => 'CONTROLLERS',
entry => $controller
);
}
}
sub _getControllers {
my @controllers;
my %seen;
foreach my $controller (_getControllersFromWMI(@_)) {
if ($controller->{deviceid} =~ /PCI\\VEN_(\S{4})&DEV_(\S{4})/) {
$controller->{VENDORID} = lc($1);
$controller->{PRODUCTID} = lc($2);
}
if ($controller->{deviceid} =~ /&SUBSYS_(\S{4})(\S{4})/) {
$controller->{PCISUBSYSTEMID} = lc($2 . ':' . $1);
}
# only devices with a PCIID sounds resonable
next unless $controller->{VENDORID} && $controller->{PRODUCTID};
# avoid duplicates
next if $seen{$controller->{VENDORID}}->{$controller->{PRODUCTID}}++;
delete $controller->{deviceid};
my $vendor_id = lc($controller->{VENDORID});
my $device_id = lc($controller->{PRODUCTID});
my $subdevice_id = lc($controller->{PCISUBSYSTEMID});
my $vendor = getPCIDeviceVendor(id => $vendor_id, @_);
if ($vendor) {
$controller->{MANUFACTURER} = $vendor->{name};
if ($vendor->{devices}->{$device_id}) {
my $entry = $vendor->{devices}->{$device_id};
$controller->{CAPTION} = $entry->{name};
$controller->{NAME} =
$subdevice_id && $entry->{subdevices}->{$subdevice_id} ?
$entry->{subdevices}->{$subdevice_id}->{name} :
$entry->{name};
}
}
push @controllers, $controller;
}
return @controllers;
}
sub _getControllersFromWMI {
my @controllers;
foreach my $class (qw/
Win32_FloppyController Win32_IDEController Win32_SCSIController
Win32_VideoController Win32_InfraredDevice Win32_USBController
Win32_1394Controller Win32_PCMCIAController CIM_LogicalDevice
/) {
foreach my $object (getWMIObjects(
class => $class,
properties => [ qw/
Name Manufacturer Caption DeviceID
/]
)) {
push @controllers, {
NAME => $object->{Name},
MANUFACTURER => $object->{Manufacturer},
CAPTION => $object->{Caption},
TYPE => $object->{Caption},
deviceid => $object->{DeviceID},
};
}
}
return @controllers;
}
1;
|
