EXCELLENT - Script is still very useful over 10 years later (Oracle 11g and 12c). THANK YOU!
I took the supplied script and modified it to check the results for a "TNS-" response (which typically only occurs when unsuccessful). This was useful in my case as some tnsnames.ora files had many entries that made the results too tedious to visually scan.
