# 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);
}