How can I query user attributes in ADSI?

HowADSIQuery 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

'Returns the optional attributes of a user object.
V = x. Get (op)
Response. Write"Optional: "& Op &" = "& v &" <br>"
Next
Set cls = nothing
Set x = nothing
Response. end
%>