Re^4: Problem enumerating a foreach loop using Win32::OLE->GetObject

[t_rex_joe]

Discipulus

Thank you for the information


What is your amazon wishlist? PM me and
ill fulfill an item.


As you pointed out, windows is a pain when
returning errors. It appears the os will
allow the process to hang without any
reaper collection, which is a shame.

FYI: I'm using activestate perl with very
very little issue.

How I solved the issue.

I created a batch file that loops/start min
each ip address which points to the perl script.
If the perl script hangs, only the one instance
to the ip will halt. Not the entire script.
Since I insert a record into a mysql table
instead of a flat file, double feed/line
errors are not an issue.


Below is the intel.bat load file

@echo off

for /f "tokens=1,2 delims=:" %%a in ('time /t') do set "variable1=%%a"
+ & set "variable2=%%b"
for /f "tokens=1" %%a in ("%variable2%") do set "mn=%%a"
set hr=%variable1%
set time=%date:~10,4%-%date:~4,2%-%date:~7,2%-%hr%-%mn%

title SINGLE AUP -s=2 - %time% - %username% - %1

start /min cmd /c "perl intel-bug.pl -s=3 -misc=1 -z=%1"
    SET count=0
    FOR /f "tokens=*" %%G IN ('"tasklist | find /i "cmd.exe""') DO (ca
+ll :s_do_sums "%%G")
    GOTO :next

:s_do_sums
    set /a count+=1
    goto :eof
:next
ping 127.0.0.1 -n 3 -w 1000 > NUL
rem    echo %count%
    if %count% GEQ 100 Timeout /t 30
    if %count% GEQ 75 Timeout /t 20
    if %count% GEQ 50 Timeout /t 10
:end

Thanks again,

Joe