I have been using Win32-AdminMisc to get file versions for several years. I have a new installation of ActivePerl 5.8.4.810, where I can get the file versions for some files but not others. However, if I run the same script on Perl 5.005 built for MSWin32-x86-object, it returns the file versions for all files.
I tried downloading several versions of AdminMisc from Dave Roth's site (AdminMisc_5008.Zip, AdminMisc_5005.Zip, AdminMisc_5005_AS.Zip), but none return the file versions for certain files (example below).
Both Perl versions 5005 & 5.8.4 return the file version for this file:
$patch_03_008_file = "\\\\" . $pc . "\\admin\$\\system32\\jdbgmgr.exe";
if (Win32::AdminMisc::GetFileInfo( $patch_03_008_file, \%Attribute)){
$jdbgmgr_ver = "$Attribute{FileVersion}";
Only Perl version 5005 returns the file version for this file (v5.8.4 returns nothing):
$patch_04_028_file = "\\\\" . $pc . "\\c\$\\PROGRA~1\\Common~1\\Micros~1\\Office10\\mso.dll";
if (Win32::AdminMisc::GetFileInfo($patch_04_028_file, \%Attribute)){
$mso_dll_ver = "$Attribute{FileVersion}";
Can anyone help with this? I really need to be able to run this script on ActivePerl 5.8.4.810, because my new servers are running it. Thanks.
-Ken Foster
_______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
