On Fri, 12 Nov 2004 17:46:00 -0500 "Foster, Ken" <[EMAIL PROTECTED]> wrote:
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.
There have been numerous reports of strange behavior with Win32-AdminMisc module from Roth under newer versions of Perl. I had problems enumerating groups under Perl 5.8 and it's corresponding Admin-Misc module, and when I ran the script under 5.005 it worked just fine as well.
I'm not sure what the problem is, and it doesn't look like we'll find out as D. Roth hasn't addressed the questions that are being asked in regards to this behavior.
My suggestion: Look for another method to do what you're doing. The solution for my problem was to use vbscript - it wasn't what I wanted to do, but it works.
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
--------------------------------------------------------
Greg Foster Technology Services Center Indiana University of Pennsylvania Indiana, PA 15705
"There are only 10 types of people in the world, those who understand binary, and those who don't..."
_______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
