ASP con Active Directory (LDAP)

[the_napster]

Hola a todos...estoy desarrollando una aplicacion WEb y el logueo es con Active Directory...hasta el logueo todo me sale bien...pero quiero implementar una funcion que mandandole como parametros el Path,El dominio y el Grupo...me devuelva todos los usuarios de ese grupo que yo envio....quisiera que me apoyen con eso urgente ok..?


Gracias.....

[RootK]

Código:

public string GetGroups()
{
  DirectorySearcher search = new DirectorySearcher(_path);
  search.Filter = "(cn=" + _filterAttribute + ")";
  search.PropertiesToLoad.Add("memberOf");
  StringBuilder groupNames = new StringBuilder();
  try
  {
    SearchResult result = search.FindOne();
    int propertyCount = result.Properties["memberOf"].Count;
    String dn;
    int equalsIndex, commaIndex;

    for( int propertyCounter = 0; propertyCounter < propertyCount;
         propertyCounter++)
    {
      dn = (String)result.Properties["memberOf"][propertyCounter];

      equalsIndex = dn.IndexOf("=", 1);
      commaIndex = dn.IndexOf(",", 1);
      if (-1 == equalsIndex)
      {
        return null;
      }
      groupNames.Append(dn.Substring((equalsIndex + 1), 
                        (commaIndex - equalsIndex) - 1));
      groupNames.Append("|");
    }
  }
  catch(Exception ex)
  {
    throw new Exception("Error obtaining group names. " +
      ex.Message);
  } 
  return groupNames.ToString();
}

referencia
http://msdn2.microsoft.com/en-us/library/aa302397.aspx

[the_napster]

Hola Rootk..gracias x tu ayuda...pero el codigo q publicaste es para listar los grupos de un usuario...lo q yo necesito es listar Los Usuarios de Un Grupo...si alguien conociera alguna funcion q me ayude..bienvenida sea...Gracias...

[elbolsa]

Usted esta un poco mas avanzado que yo!... podrias por favor publicar el codigo para realizar el logeo! de verdad me salvarias! me esta costando mucho conseguir la validacion!!! desde ya mucha gracias!!

[abassi]

Iniciado por elbolsa

Usted esta un poco mas avanzado que yo!... podrias por favor publicar el codigo para realizar el logeo! de verdad me salvarias! me esta costando mucho conseguir la validacion!!! desde ya mucha gracias!!

Set oRootDSE = GetObject("LDAP://RootDSE")
strPath = "LDAP://" & oRootDSE.Get("defaultNamingContext")


strEmail = "dominio\usuario"
strClave = "Pa$$w0rd"

Set objNamespaceLDAP = GetObject("LDAP:")

on error resume next
Set objMyObject = objNamespaceLDAP.OpenDSObject(strPath,strEmail,str Clave,0)

if err.number <> 0 then
response.write "<p>Error ingresando en Password Intentelo de nuevo (verifique las condiciones de su teclado)</p>"
else
response.write "<p>Satisfactorio!!!!!</p>"
end if