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