a como me choca esa gente que pide ayuda y quieren impresionar.......
Compañero, no te dejes intimidar con que no se puede con asp.. por favor.
Busca info. en buscadores sobre ADSI he aqui un ejemplo:hecho en vbs.solo hay que adaparlo, es decir quitar wscript.echo por response.write etc....
en vez de WinNT usar = Lightweight Directory Access Protocol (LDAP).
Function VerifyGroupMembers( strDomain, strGroup, strMemberList )
VerifyGroupMembers = False
Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")
arrUsers = Split( strMemberList, "," )
For Each objUser In objGroup.Members
WScript.Echo "Checkiing group member " & objUser.Name
bMemberFound = False
For i = 0 To UBound( arrUsers )
If( UCase( Trim( arrUsers(i) ) ) = UCase( Trim( objUser.Name ) ) ) Then
WScript.Echo "Member found: " & objUser.Name
bMemberFound = True
Exit For
End If
Next
If( Not bMemberFound ) Then
WScript.Echo "Member NOT found: " & objUser.Name
VerifyGroupMembers = False
Exit Function
End If
Next
VerifyGroupMembers = True
End Function