#!/usr/bin/perl -w

use strict ;
use Win32::AdminMisc  ;

# S C A L A R S
#----------------#

my $hostname  = undef ;
my $ipAddress = undef ;

my $Ifile  = "c:\\Perl\\RC\\PC_List\.txt" ;

# A R R A Y S
#-------------#

my @fields = () ;

#
# P R O C E S S I N G
#---------------------#

open IPF, "<$Ifile" or die "\n\tCan't open $Ifile :: $!\n" ;

while (<IPF>) {

   chomp ;
   @fields = split /\|/, $_ ;

   $hostname = $fields[0] ;

   print "\n\tProcessing PC $hostname\n" ;

   if ( $ipAddress = Win32::AdminMisc::GetHostAddress($hostname) ) {
      print "\n\tThe Ip address for $hostname is $ipAddress\n" ;
   }
   else
   {
      print "\n\tUnable to resolve IP address for $hostname\n" ;
   }

}

close IPF or die "\n\tCan't close $Ifile :: $!\n" ;

##</code><code>##

Can't load 'C:/Perl/site/lib/auto/Win32/AdminMisc/AdminMisc.dll' for module Win3
2::AdminMisc: load_file:The specified module could not be found at C:/Perl/lib/D
ynaLoader.pm line 230.
 at C:\Perl\RC\Get_PC_IP.pl line 4