How to retrieve All info about AD Users ??

[L1nuxVb]

Well , searching around i found something that worked

Dim conn As New ADODB.Connection
Dim strRS As String
Dim RS As ADODB.Recordset
Dim strconn As String
Private Sub Form_Load()
 
'Set Conn = Server.CreateObject("ADODB.Connection")
'Set RS = Server.CreateObject("ADODB.Recordset")
'Conn.Provider = "ADsDSOObject"
'strconn = "Active Directory Provider"
conn.Open _
  "Data Source=Active Directory Provider;Provider=ADsDSOObject"
  
 strRS = "SELECT name, mail FROM 'LDAP://head.com' WHERE objectClass = 'user' "
 
Set RS = conn.Execute(strRS)
 While RS.EOF = False
MsgBox ("Name: " & RS("name") & " ,e-mail: " & RS("mail"))
RS.MoveNext
Wend
End Sub