Hello,
here I have a strange problem.
I run this script on a lot of windows systems. on a few systems I am waiting for the foreach loop for more than 2 hours to complete on the others it takes 2 minutes.
when I try scriptomatic it is fast. I tried to run the script remotly and locally, same thing. there are the same amount of entries in eventlog as on the other machines.
does anyone know why I am waiting for such a long time?
my $query = "Select * from Win32_NTLogEvent where TimeGenerated > "."'".$EpochWmi."'";
my $WMI = Win32::OLE->new('WbemScripting.SWbemLocator');
my $Services = $WMI->ConnectServer($host, "root/cimv2", $User, $Pwd) or
die "Cannot access WMI on remote machine: ", Win32::OLE->LastError;
open OUTPUT, ">_eventlogxx.log" or die;
$Services->{Security_}->{ImpersonationLevel} = 3;
print OUTPUT ("Art\tDatum\tEventlog\tSource\tEvent\tComputer\tMessage\n");
print "\nexec Query\n";
my $Collect = $Services->ExecQuery($query); ------> the query will execute immediately
print "\n end Query\n";
foreach my $XY (in($Collect)) --------------> here it takes so long time
{
print ".";
#print $XY->{Category};
}
viele gr�sse
volker strasser
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Samstag, 13. November 2004 21:05
To: [EMAIL PROTECTED]
Subject: Perl-Win32-Admin Digest, Vol 10, Issue 7
Send Perl-Win32-Admin mailing list submissions to
[EMAIL PROTECTED]
To subscribe or unsubscribe via the World Wide Web, visit
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
or, via email, send a message with subject or body 'help' to
[EMAIL PROTECTED]
You can reach the person managing the list at
[EMAIL PROTECTED]
When replying, please edit your Subject line so it is more specific than "Re: Contents of Perl-Win32-Admin digest..."
Today's Topics:
1. Problem with File Versions using Win32-AdminMisc (Foster, Ken)
----------------------------------------------------------------------
Message: 1
Date: Fri, 12 Nov 2004 17:46:00 -0500
From: "Foster, Ken" <[EMAIL PROTECTED]>
Subject: Problem with File Versions using Win32-AdminMisc
To: <[EMAIL PROTECTED]>
Message-ID:
<[EMAIL PROTECTED]>
Content-Type: text/plain; charset="us-ascii"
> 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
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://ASPN.ActiveState.com/ASPN/Mail/Browse/Threaded/perl-win32-admin/attachments/20041112/0f7f23eb/attachment-0001.htm
------------------------------
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
End of Perl-Win32-Admin Digest, Vol 10, Issue 7
***********************************************
*** Diese Mail wurde nach gef�hrlichen Inhalten gescannt ***
*** WICHTIG: Bitte Vorsicht beim �ffnen von Mailanh�ngen von unbekannten oder verd�chtigen Absendern ***
*** eSafe scanned this email for malicious content ***
*** IMPORTANT: Do not open attachments from unrecognized senders ***
All for One Systemhaus AG, Abteilung Professional Services
_______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
