Find no of objects currently running now

[kalyanrajsista]

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

[Anonymous Monk]

Win32::OLE->EnumAllObjects([CALLBACK])

[kalyanrajsista]

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;
    }
);