Haha...here it is:
Code:
$arraycomputers='computers'
$processes='processes'
For Each $computer in $ArrayComputers
	If Ping($Computer)
		For Each $proc in $processes
			EnumProcess($proc, , $Computer)
			$=SendMessage(@wksta,$computer +' is running '+ $proc)
		Next
	Else
		$=SendMessage(@WKSTA,$computer +' was not able to be pinged. It is unavailable.')
	EndIf
Next
Exit 1

I did not include the UDF's in this but I assure you they are there.