| 
 Ping an ipaddress                                                                                                       by Allan Greis Eriksen
 
 
 
   Ping an IP address by Allan Kim Eriksen
 
 This package can be used to ping a specific ip-address.
 
 Class properties:
 
  psIPAddress - Replying address
  piStatus - Reply status
  piRoundTripTime - Reply Round trip time, in milliseconds
  piTimeToLive - Time to live for the ping, in milliseconds
 
Use ping
Object oPing is a cPing
  
  Procedure DoPing
    Get Ping  "whateverip" to iResult
    If (iResult <> ICMP_SUCCESS) begin
        Get EvaluatePingResponse  iResult to sErrorText
        Error DFERR_PROGRAM sErrorText
    End
    Else begin
        Get piStatus to iResonsetime
    End
  End_Procedure
End_Object
  Download ping package  ~ 13kb
 |