code:

---

$PCList = readfile('c:\file.txt')

for each $PC in $PCList
	whatever...
	whatever...
	whatever...
	whatever...
	if @error
		$errlog=$errlog+'|'+$PC
	else
		$oklog =$oklog +'|'+$PC
		endif
	next

$=writefile('c:\file.err',split(substr($errlog,2),'|'))

$=writefile('c:\file.ok',split(substr($oklog,2),'|'))
  

---