my $dbh = DBI->connect('dbi:WMI:');


my $stmt = "
SELECT Name, NetConnectionID 
FROM Win32_NetworkAdapter 
WHERE  Manufacturer != 'Microsoft' 
AND NOT PNPDeviceID LIKE 'ROOT\\\\%'
";

my $sth = $dbh->prepare($stmt);

$sth->execute();
while (my @row = $sth->fetchrow_array) {
   print "Name:\t\t\t$row[0]\Interface:\t$row[1]\n\n";
}