Lille script som finder "name" på brugere via ADO på AD

Hej Alle,

Håber i kan bruge det til et eller andet, her har i scriptet.
---------------------------------
Set objConnection = Server.CreateObject("ADODB.Connection")
Set objCommand = Server.CreateObject("ADODB.Command")

objConnection.Open "Provider=ADSDSOObject;" &_
          "User Id=xxxx;" & _
          "Password=xxxx;"
         
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<LDAP://ou=brugere,dc=adtest,dc=dk>;" & _
      "(&(objectCategory=person)(objectClass=user));" & _
          "name;subtree"
Set objRecordSet = objCommand.Execute

While Not objRecordSet.EOF       
        Response.Write objRecordSet.fields("name").Value & "<br>"   
objRecordset.MoveNext
wend
objConnection.Close
---------------------------------