Conexion LDAP vbscript dans une page html

Conexion LDAP vbscript dans une page html - VB/VBA/VBS - Programmation

Marsh Posté le 30-05-2007 à 10:59:57    

Bonjour,
 
Voila j'ai fait une page html qui me permet d'ajouter un utilisateur a Active directory.
 
J'ai donc ajouter le script Vbscript dans cette page mais la conexion LDAP ne se fait pas apparement.
Voici deja mon code:  
 

Citation :

<html>
<body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#800080" alink="#ff0000">
<font size="7">Active Directory - Ajout d'Utilisateurs</font>
<br><br><br>
<form action="" method="post" name="ecrire">
Nom:
<input type="text" name="nom" size="40" maxlength="256">
<br><br>
Prenom:
<input type="text" name="prenom" size="40" maxlength="256">
<br><br>
Unite d'Organisation:
<input type="text" name="uo" size="40" maxlength="256">
<br><br>
<input type="submit" name="add" value="Ajouter">
<SCRIPT FOR="add" EVENT="onClick" language="VBScript">
<!--
Set objLDAP = GetObject("LDAP:" )
objTest = objLDAP.OpenDSObject("LDAP://ou=test,dc=clement,dc=2tsrs,dc=local", "Administrateur", "bonjour-1", 1)
If Err.Number <> 0 Then
Msgbox "La connexion à l'annuaire d'Active Directory a échoué"
Else
 Set User = objLDAP.Create("User", "cn=martin.dupont" )
 User.samaccountname = "dupont"
 User.sn = "dupont"
 User.givenname = "martin"
 User.setinfo
 User.accountdisabled = FALSE
 User.setinfo
End If
-->
</SCRIPT>
</form>
</body>
</html>


 
Donc voila le script a la fin je l'ai tester dans un fichier vbs et sa marche nikel mais des que je l'ajoute a ma page html sa marche pas il passe pas la conexion LDAP.
Dans mon code les zone de text la ne serve a rien j'ai directement defini des parametre c'est juste pour tester deja.
 
Voila j'attends votre avis merci.

Reply

Marsh Posté le 30-05-2007 à 10:59:57   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed