LPARAMETERS vDestIp as String, vSilent as Boolean LOCAL lnDst as Integer, lnHop as Integer, lnRTT as Integer, llReturn as Boolean DECLARE INTEGER GetRTTAndHopCount IN Iphlpapi; INTEGER DestIpAddress, LONG @HopCount,; INTEGER MaxHops, LONG @RTT DECLARE INTEGER inet_addr IN ws2_32 STRING cp WITH This ._errorcode = [] ._destinationip = m.vDestIp lnDst = inet_addr(._destinationip) lnHop = 0 lnRTT = 0 llReturn = .F. IF GetRTTAndHopCount(lnDst, @lnHop, 5, @lnRTT) = 0 TEXT TO lcMsg TEXTMERGE NOSHOW PRETEXT 3 IP-Adress <<._destinationip>> doesn't respond ENDTEXT ELSE TEXT TO lcMsg TEXTMERGE NOSHOW PRETEXT 3 IP-Adresse <<._destinationip>> responded. (<<m.lnRTT>> MSek / <<m.lnHop>> Hops) ENDTEXT llReturn = .T. ENDIF IF !vSilent MESSAGEBOX(lcMsg,0+64+0,[Programminformation]) ENDIF ._errorcode = lcMsg ENDWITH * Returnvalue is .T. if Ping was successful RETURN llReturn