use Win32::OLE('in');
use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

$computer = "10.1.50.57";
$objWMIService = Win32::OLE->GetObject
    ("winmgmts:\\\\$computer\\root\\CIMV2") or die "WMI connection failed.\n";
$colItems = $objWMIService->ExecQuery
    ("SELECT * FROM Win32_NetworkAdapterConfiguration","WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly);

foreach my $objItem (in $colItems)
{
			next unless $objItem->{Description} eq "Intel 8255x-based Integrated Fast Ethernet";
      print "DNS Host Name: $objItem->{DNSHostName}\n";
      print "IP Address: " . join(",", (in $objItem->{IPAddress})) . "\n";
      print "MAC Address: $objItem->{MACAddress}\n";
      print "\n";

}

##</code><code>##

$pcname = "$objItem->{DNSHostName}"