怎样获知数据库的连接属性？

<%@ Language=VBScript %>

<%

    Option Explicit

    dim objCNN

    dim intCTProps

    dim item

    dim vbCRLF

    vbCRLF = chr(10)

    Response.Write "" & vbCRLF

    Response.Write "

春风精彩之查看数据库属性

    Response.Write vbCRLF

    set objCNN = Server.CreateObject("ADODB.connection")

    objCNN.Open "DSN=VicTest"

    Response.Write "

    Response.Write "

    intCTProps = 0

    for each item in objCNN.Properties

        intCTProps = intCTProps + 1

        Response.Write "

        Response.Write "

        Response.Write "

    next

    Response.Write "

    Response.Write vbCRLF

    Response.Write "" & vbCRLF

    set objCNN = Nothing

    set intCTProps = nothing

    set item = nothing

    set vbCRLF = nothing

%>