Good going!

One suggestion.. you don't need to define separate variables for your header..you can simplify it to this:
 Code:
; write the header
$Row = 1
$Data[0] = 'Computer Name', 'Responce'
xlRangeValue($oXl, 'A'+CStr($Row), $Data)
$Row = 2 ; get ready to write the data in row 2

Glenn
_________________________
Actually I am a Rocket Scientist! \:D