I found it hard to understand tilly's script because I am pretty new to Perl (I really did try, though). The way I ended up solving this problem was:
# Created on 9/6/00 by Jonathan E. Dyer @servers=('server1','server2','server3','server4','server5','server6', +'server7','server8','server9'); use Win32::Process; sub ErrorReport{ print Win32::FormatMessage( Win32::GetLastError() ); } foreach $server (@servers){ Win32::Process::Create($ProcessObj, "c:\\perl\\bin\\perl.exe", "perl.exe c:\\findstuff6.pl -s$server", 0, NORMAL_PRIORITY_CLASS, ".")|| die ErrorReport(); #$ProcessObj->Suspend(); #$ProcessObj->Resume(); #$ProcessObj->Wait(INFINITE); }
The problem that caused me the biggest headache was the third variable in win32::process. I kept forgetting to put perl.exe before the script, assuming that this was covered by variable 2.
I hope this helps if anyone runs into the same issue...
In reply to RE: Opening simultaneous scripts
by OzzyOsbourne
in thread Opening simultaneous scripts
by OzzyOsbourne
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |