It's something along this line, can't test as I have not yet easy access to a Windows XP comuter.

code:
$svc = getObject('winmgmts:root\cimv2')
$objEnum = $svc.execQuery("select * from win32_pingStatus where (address =
'remotecomputer' or address = 'remotecomputer2') and statusCode = 0", "WQL", 32)

for each $obj in $objEnum
    ? 'Computer '+ $obj.address + ' replied to ping'
next
_________________________
There are two types of vessels, submarines and targets.