tnsping pour instant client

tnsping manque à Oracle Instant Client.
Un hack de Laurent Schneider pour le remplacer :

whence tnsping >/dev/null 2>&1 ||
tnsping() {
:| sqlplus -L -s x/x@$1 | grep ORA- | (grep -v ORA-01017 || echo OK)
}