Select Code to Download

$VAR1 = bless( {
     '/ServiceName' => '{8BAA28BF-8565-43BE-81C0-E7BBD94187D3}',
     '/Description' => 'Intel(R) PRO/1000 PL Network Connection'
}, 'Win32::TieRegistry' );

$VAR1 = {
          'DeviceID' => '2',
...
          'AdapterType' => 'Ethernet 802.3',
          'Name' => 'Intel(R) PRO/Wireless 3945ABG Network Connection'
        };

use strict;

...

my $key=$Registry->Open($dev, { Access => "KEY_READ", Delimiter => "/"
+ } );
print Dumper($key);

wmic nicconfig list /format:value