#! perl -slw
use strict;
use Win32::API;

Win32::API->Import( 'Kernel32', 'HANDLE GetCurrentProcess( )' );
Win32::API->Import(
    'Kernel32', 'BOOL GetProcessHandleCount(HANDLE h, LPDWORD c)'
);
my $hProcess = GetCurrentProcess();
my $count = 0;
GetProcessHandleCount( $hProcess, $count ) or die $^E;

printf "This process is using %d handles\n", $count;

__END__
P:\test>479539
This process is using 16 handles
[download]

Thanks a bunch! I even asked a bunch of windows programmers at work and no one could tell me how. DotNet programmers seem to only know the interface, not the underlying language anymore...

http://www.basgetti.com

Here is my implimentation of the same code..

#! perl -slw
use strict;
use Win32::API;
my $hProcess = getCurrentProcess();
my $cnt=getProcessHandleCount($hProcess);
print "handle count=$cnt\n";

###############
sub getCurrentProcess{
    my $GetCurrentProcess = new Win32::API("Kernel32", "GetCurrentProc
+ess", [], 'N') || return $^E;
    my $hProcess=$GetCurrentProcess->Call();
    return $hProcess;
    }
###############
sub getProcessHandleCount{
    my $hProcess = shift;
    print "hProcess=$hProcess\n";
    my $GetProcessHandleCount = new Win32::API("Kernel32", "GetProcess
+HandleCount", ['N','P'], 'N') || return $^E;
    my $rtn=' 'x12;
    my $ok=$GetProcessHandleCount->Call( $hProcess,$rtn);
    my $count=unpack("II", $rtn);
    return $count;
    }
[download]


http://www.basgetti.com