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...
-OzzyOsbourne |