XProfan

 {$cleq}
declare name$,hisp$
name$="NEC"//oder was auch immer
winexecwait( "cmd /c ping -n 1 "+name$+" >result" ,0)
assign #1,"result"
reset #1

while not(len(hisp$)) and not(eof(#1))

    input #1,hisp$
    hisp$=trim$(substr$(substr$(hisp$,2,"["),1,"]"))

wend

case eof(#1) : hisp$="N/A"
close #1
print name$+" = "+hisp$
waitkey