proc SendPing { port srcIp destIp } { # port format = 1/3. Not 1/1/3 # srcIp = The srcIp address of the port to ping from. # destIp = The destIp address to ping to. # # Passed (return 0) = ::ixNet::OK-{kString,Response received from 1.1.1.3. Sequence Number 3} # Failed (return 1) = ::ixNet::OK-{kString,Ping request to 1.1.1.6 failed: Ping request timed out} # Verify for proper port format. If incorrect, fix it. if {[regexp "\[0-9]+/(\[0-9]+/\[0-9]+)" $port - port2]} { set port $port2 } set vport [GetVportMapping $port] foreach vportInterface [ixNet getList $vport interface] { set currentIpv4 [ixNet getAttribute $vportInterface/ipv4 -ip] if {$currentIpv4 == $srcIp} { set interfaceObj $vportInterface } } set result [ixNet exec sendPing $interfaceObj $destIp] if {[regexp "Ping request timed out" $result]} { return 1 } else { return 0 } }