Partager via

Prise en main avec ASP pour ADSI

  • Article

ADSI peut être utilisé pour accéder aux données d’annuaire à l’aide d’une page ASP. Il peut s’agir d’un moyen pratique d’exécuter des tâches d’administration et des requêtes à partir d’une page web ou de fournir des informations aux employés sur un intranet.

L’un des avantages de l’utilisation d’ADSI avec ASP est que vous pouvez créer une expérience utilisateur plus riche, car vous pouvez utiliser Visual Basic pour créer une application ADSI et l’offrir à un utilisateur via une page web standard. Par exemple, vous pouvez créer une page web qui permet aux employés d’entrer le nom d’un employé et de récupérer un numéro de téléphone pour cet employé, ou créer un formulaire qui permet aux employés de mettre à jour leurs informations personnelles dans une base de données des ressources humaines de l’entreprise.

Le code ASP commence par «< % » et se termine par « %> ». Vous pouvez ajouter du code ADSI en tant que VBScript ou Visual Basic.

Pour créer une page ASP, vous pouvez utiliser un éditeur de page web, un Bloc-notes ou un autre éditeur de texte, ou le système de développement Microsoft Visual Studio .NET.

Avant d’exécuter votre page ASP, configurez votre application ou serveur IIS en fonction des instructions fournies dans Problèmes d’authentification pour ADSI avec ASP.

Exemple ASP simple : Énumération d’objets dans un conteneur

À l’aide d’un éditeur de page web, créez une page html qui accepte le nom unique d’un objet conteneur. Entrez l’exemple de code suivant.

<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>

Cette page peut maintenant accepter un nom de conteneur qui lui est passé et utiliser ADSI pour énumérer des objets dans le conteneur.

Créez une page ASP appelée Enum.asp et entrez l’exemple de code suivant. Enregistrez cette page à la racine du serveur 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
%>