<html>
<head>
<title>ADSystemInfo groups</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")
objCommand.CommandText = _
"SELECT aDSPath," & Join(arrFields,",") & " FROM 'LDAP://dc=agde,dc=archon,dc=com' WHERE objectCategory='group'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
demande=inputbox("Group")
if demande="" then demande="MIS"
Do Until objRecordSet.EOF
n=n+1
If instr(Lcase(objRecordSet.Fields("name").Value),LCase(demande)) Then
d=d & "<tr>" & " <td>" & n & "</td>"
For Each a in arrFields
d=d & "<td>" & objRecordSet.Fields(a).Value & " </td> "
Next
grp=""
set objGroup = GetObject(objRecordSet.Fields("adspath").Value)
for each objMember in objGroup.Members
grp=grp & "<br>" & objmember.cn
next
d=d & "<td>" & grp & " </td> "
d=d & "</tr>"
'Exit Do
if n=43 then exit do
End If
objRecordSet.MoveNext
Loop
entete= " <td><b>N°</b></td>"
For Each a in arrFields
entete=entete & "<td> <b> " & a & " </b> </td> "
Next
entete=entete & "<td> <b> Membres </b> </td> "
DataArea.InnerHTML = " (" & Now & ")<br> <table border=1>" & _
"<tr>" & entete & "</tr>" & _
d & "</table>"
End Sub
</SCRIPT>
<body>
<h1>Group - Members</h1> from dc=agde,dc=archon,dc=com
<span id=DataArea></span>
</body>
</html>