Compartir a través de

Introducción con ASP para ADSI

  • Artículo

ADSI se puede usar para acceder a los datos de directorio mediante una página ASP. Puede ser una manera cómoda de ejecutar tareas y consultas de administración desde una página web o proporcionar información a los empleados de una intranet.

Una ventaja de usar ADSI con ASP es que puede crear una experiencia de usuario más completa porque puede usar Visual Basic para crear una aplicación ADSI y ofrecerla a un usuario a través de una página web estándar. Por ejemplo, podría crear una página web que permita a los empleados escribir el apellido de un empleado y obtener un número de teléfono para ese empleado, o crear un formulario que permita a los empleados actualizar la información personal en una base de datos de recursos humanos de la empresa.

El código ASP comienza con '<%' y termina con '%>'. Puede agregar código ADSI como VBScript o Visual Basic.

Para crear una página ASP, puede usar un editor de páginas web, un Bloc de notas u otro editor de texto o el sistema de desarrollo de .NET de Microsoft Visual Studio.

Antes de ejecutar la página ASP, configure la aplicación o el servidor IIS según las instrucciones que se encuentran en Problemas de autenticación para ADSI con ASP.

Un ejemplo de ASP simple: enumerar objetos en un contenedor

Con un editor de páginas web, cree una nueva página html que acepte el nombre distintivo de un objeto contenedor. Escriba el ejemplo de código siguiente.

<html>
<body>

<form method="POST" action="https://localhost/Enum.asp" ID="Form1">
<p>Distinguished name of container:<input type="text" name="inpContainer" size="100" ID="Text2"></p>
<p><input type="SUBMIT" value="GO" ID="Submit1" NAME="Submit1"></p>
</form>

</body>
</html>

Esta página ahora puede aceptar un nombre de contenedor que se le pasa y usar ADSI para enumerar objetos en el contenedor.

Cree una página ASP denominada Enum.asp y escriba el siguiente ejemplo de código. Guarde esta página en la raíz del servidor web local.

<%@ Language=VBScript %>
<%
' Get the inputs.
containerName = Request.Form("inpContainer")
' Validate compName before using.

If Not ("" = containerName) Then
  ' Bind to the object.
  adsPath = "LDAP://" & containerName
  Set comp = GetObject(adsPath)

  ' Write the ADsPath of each of the child objects.
  Response.Write("<p>Enumeration:</p>")
  For Each obj in comp
    Response.Write(obj.ADsPath + "<BR>")
  Next
End If
%>