You can use AdminMisc's GetHostAddress($DNS_Name) this will supply you with the IP address.

I would keep all the servers host names in a text file list. Then I read the complete list into an array like this

open(srv,"c:/server.txt")|| die "$^E\n";
chomp ( my @servers =<srv>);
[download]

then foreach item in the list get the Ip address.

Foreach my $srv (sort @servers){
   my $ip = Win32::AdminMisc::GetHostAddress($srv);
   print "\nhost: $srv\tIp Address: $ip\n";}
[download]

Cheers,...Blackadder