#!perl
use Win32::AdminMisc ;
#
print "\n\tT E S T starts\n" ;

if ($IP = Win32::AdminMisc::GetHostAddress('PC8627') ) {
   print "\n\tThe IP Add for PC8627 is $IP\n" ;
}
else
{
   print "\n\tUnable to resolve the address!\n" ;
}

print "\n\tT E S T ends\n" ;