Thanx Glenn Barnas

This time it did the Job !!

made some slight ammenmends

 Code:
 
Break on


Call "d:\kix\udf\ReadFile.udf"
Call "d:\kix\udf\ping.udf"
Call "d:\kix\udf\xlLib.udf"


Dim $Data[0]					

$oXL = xlInit()					
$0WB = xlBookCreate($oXl,1)			


$Hosts = ReadFile('d:\kix\MachineList.txt')

$Row = 2    
$head = 1	
$header1 = 'Computer Name'
$header2 = 'Responce'				
xlRangeValue($oXl, 'A'+CStr($head), $header1)
xlRangeValue($oXl, 'B'+CStr($head), $header2)


For Each $Host In $Hosts
  If Ping("$Host",0,5,1000)=1				
    			
      $Data[0] = $Host, 'Responds'
      xlRangeValue($oXl, 'A'+CStr($Row), $Data)	
      $Row = $Row + 1 
    
  Else                 
    $Data[0] = $Host, 'Fails'
    xlRangeValue($oXl, 'A'+CStr($Row), $Data)   
    $Row = $Row + 1  
  EndIf
Next


$ = xlFile($oXL, 1, 'd:\kix\log.xls')			

xlQuit($oXl)


Thanx again Glenn
_________________________
“I’ll not change you unless you don’t have intention to change yourself” --H:Quran