<html>
<head>
<title>AD Users</title>
</head>
<SCRIPT LANGUAGE="VBScript">
Sub Window_OnLoad
On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
arrFields=Array( _
"Name",_
"createTimeStamp",_
"homeDirectory",_
"homeDrive",_
"sn",_
"st",_
"l",_
"Name")
objCommand.CommandText = _
"SELECT " & Join(arrFields,",") & " FROM 'LDAP://dc=groult,dc=com' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
n=n+1
d=d & "<tr>" & " <td>" & n & "</td>"
For Each a in arrFields
d=d & "<td>" & objRecordSet.Fields(a).Value & " </td> "
Next
d=d & "</tr>"
objRecordSet.MoveNext
'Exit Do
Loop
entete= " <td><b>N°</b></td>"
For Each a in arrFields
entete=entete & "<td> <b> " & a & " </b> </td> "
Next
DataArea.InnerHTML = " (" & Now & ")<br> <table border=1>" & _
"<tr>" & entete & "</tr>" & _
d & "</table>"
End Sub
</SCRIPT>
<body>
<h1>Users</h1> from dc=groult,dc=com
<span id=DataArea></span>
</body>
</html>