print RESULT "$computer	",&versioncheck("\\\\$computer\\c\$\\windows\\system32\\msi.dll"),"\n";

use Win32::Exe qw(); 
sub versioncheck{ 
	my $exe = Win32::Exe->new(@_); 
	my @exe = $exe->version_info->get('FileVersion'); 
	return $exe[0]; 
}

 
 
use Win32::Exe qw();  
use strict; 
use warnings; 
 
my @files = ('c:\some\where\','c:\somewhere\else'); 
 
print versioncheck(\@files); 
 
sub versioncheck{  
    #this supports an array of files to search 
     for  my $file (@_){ 
	my $exe = Win32::Exe->new($file);  
	return $exe->version_info->get('FileVersion');  
     } 
}

 use Win32::File::VersionInfo; sub versioncheck{    
 my $file=GetFileVersionInfo ("c:\\windows\\system32\\msi.dll");    
 if ($file){    
  return $file->{'FileVersion'}, "\n";    
  # return $file->{FileVersion};    
 } else {    
  return 0;    
 }    
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Win32::File::VersionInfo; 
 
my @servers = qw(fishmonger foo bar); 
my $file = 'c$\windows\system32\msi.dll'; 
 
foreach my $server (@servers) { 
    my $path = "\\\\$server\\$file"; 
    print "$path\n"; 
     
    my $file_info = versioncheck($path); 
    if ($file_info) { 
        print "\t$file_info\n"; 
    } 
    else { 
        print "\tfile is unreachable\n"; 
    } 
} 
 
sub versioncheck { 
    my $path = shift; 
    my $file_info = GetFileVersionInfo($path); 
    if ($file_info) { 
        return $file_info->{'FileVersion'}; 
    } 
    else { 
        return 0; 
    } 
}