Hello Vinod, i am using Win32::IProc to solve same problem. http://www.generation.net/~aminer/Perl/ ######### Code starts sub WaitUntilProcessFinished() { use Win32::IProc; #print "zu �berwachende PID: $PID\n"; my($obj)=new Win32::IProc || die; $obj->EnumProcesses(\@EnumInfo,NOPATH); my($size)=scalar(@EnumInfo); for($i=0;$i<$size;$i++) { #print "$EnumInfo[$i]->{ProcessName}\n"; if ($EnumInfo[$i]->{ProcessId} eq $PID) { print "Proze� $PID l�uft noch!\n"; return(1); } } return(0); } ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Nico Prenzel HORNBACH-Baumarkt AG Tel: +49-6348-60-00 Fax: +49-6348-60-4000 eMail: [EMAIL PROTECTED] Home Page: http://www.hornbach.com ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
