How can I query user attributes in ADSI?

How ADSI Query user attributes in?

<%
Dim X

On Error resume next
'Set x = GetObject ("winnt: // kenfilszwin2k/Allen ")
Strldap = "LDAP: // kenfilszwin2k/CN = Allen he, ou = kenfilsz, Dc = kenfilsz, Dc = com"

Set x = GetObject (strldap)
Response. Write "Object Name:" & X. Name & "<br>"
Response. Write "object class:" & X. Class & "<br>"

Set CLS = GetObject (X. schema)
For each op in Cls. mandatoryproperties

'Returns the attributes that must be set for the user object.
V = x. Get (OP)
Response. Write"Required: "& OP &" = "& V &" <br>"
Next
For each op in Cls. optionalproperties

' return the optional attributes of the user object
V = x. get (OP)
response. write " optional : "& OP &" = "& V &"
"
next
set CLS = nothing
set X = nothing
response. end
%>