Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Find no of objects currently running now

by kalyanrajsista (Scribe)
on Feb 18, 2010 at 11:21 UTC ( #823915=perlquestion: print w/replies, xml ) Need Help??
kalyanrajsista has asked for the wisdom of the Perl Monks concerning the following question:

Hello all

I'm using Win32::OLE module to invoke 'imacros' object. FYI 'imacros' is an automation tool and I'm using Perl to do automation tasks with help of 'imacros'. Is there any way that I can know how many 'imacros' objects or instances that are currently running now so that I can set MAX_PARALLEL_JOBS to any configuration value so that my system wouldn't end up with any memory issues

  • Comment on Find no of objects currently running now

Replies are listed 'Best First'.
Re: Find no of objects currently running now
by Anonymous Monk on Feb 18, 2010 at 11:38 UTC

      I'm trying with the following code

      use strict; use warnings; use Win32::OLE; my $GlobalMacro; for ( 1 .. 2 ) { $GlobalMacro = Win32::OLE->new('imacros') or die "Win32:OLE proble +m\n"; $GlobalMacro->{Visible} = 1; $GlobalMacro->iimInit(); } Win32::OLE->EnumAllObjects($GlobalMacro); my $Count = Win32::OLE->EnumAllObjects( sub { my $Object = shift;; my $Class = Win32::OLE->QueryObjectType($Object); printf "# Object=%s Class=%s\n", $Object, $Class; } );

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://823915]
Approved by BioLion
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2017-07-21 20:47 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (335 votes). Check out past polls.