All DSN connection Information

Hi All
With This Little Script You Can See All Information About Your DSN Connection. only Change the DSN Name And if exist username and pass word and See Resault

<%
Set AdoCon = Server.CreateObject("ADODB.Connection")
AdoCon.Open "DSN NAME",username,Password

For Each Obj in AdoCon.Properties
        response.Write Obj.Name & " : " & Obj.Value & "<BR>"
Next

AdoCon.close
Set AdoCon = Nothing

%>