AdapterType       DeviceID  MACAddress         Name
Ethernet 802.3    1         xx:xx:xx:xx:xx:xx  Intel(R) PRO/1000 PL Ne
Ethernet 802.3    2         xx:xx:xx:xx:xx:xx  Intel(R) PRO/Wireless 3
                  3                            Infrared Port
Ethernet 802.3    4         xx:xx:xx:xx:xx:xx  Packet Scheduler Minipo
                  6                            Bluetooth Device (Perso
                  7                            RAS Async Adapter
                  8                            WAN Miniport (L2TP)
Wide Area Network 9         xx:xx:xx:xx:xx:xx  WAN Miniport (PPTP)
Wide Area Network 10        xx:xx:xx:xx:xx:xx  WAN Miniport (PPPOE)
                  11                           Direct Parallel
                  12                           WAN Miniport (IP)
Ethernet 802.3    13        xx:xx:xx:xx:xx:xx  Packet Scheduler Minipo
Ethernet 802.3    14        xx:xx:xx:xx:xx:xx  Packet Scheduler Minipo
Ethernet 802.3    15        xx:xx:xx:xx:xx:xx  Lucent VPN Miniport
Ethernet 802.3    16        xx:xx:xx:xx:xx:xx  Lucent VPN Miniport
Ethernet 802.3    17        xx:xx:xx:xx:xx:xx  Lucent VPN Miniport
                  18                           WAN Miniport (Network
Ethernet 802.3    19        xx:xx:xx:xx:xx:xx  Packet Scheduler Minipo
                  20                           Linksys Etherfast USB
                  21                           Packet Scheduler Minipo
                  22                           Lucent VPN Miniport

##</code><code>##

use strict;
use Win32::TieRegistry;
use Data::Dumper;

my $dev="LMachine/SOFTWARE/Microsoft/Windows NT/CurrentVersion/NetworkCards/";
my $key= $Registry->Open($dev, { Access => "KEY_READ", Delimiter => "/" } );

print Dumper($key);

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

  '21/' => bless( {
    '/ServiceName' => '{15B70374-1CD7-416E-A08A-22F96A502A54}',
    '/Description' => 'Linksys Etherfast USB 10/100 Ethernet Adapter'
  }, 'Win32::TieRegistry' ),

  '3/' => bless( {
    '/ServiceName' => '{7F8B1DE7-B0AA-40C0-8D89-D0325F269899}',
    '/Description' => 'Intel(R) PRO/Wireless 3945ABG Network Connectn'
  }, 'Win32::TieRegistry' )
}, 'Win32::TieRegistry' );