Sujet Précédent Sujet Suivant

VBScript dans formulaire HTML:création users

Fermé
Kaguya - 17 juin 2008 à 14:44
 kris95 - 26 mars 2009 à 14:02
Bonjour,

Je suis actuellement en stage pour terminer ma licence SIL, et je suis confrontée à un problème.
Mon maître de stage me demande de créer un script qui permettrait de créer des utilisateurs dans la base LDAP de Active Directory.
J'ai trouvé ce petit script VBS qui fonctionne très bien :

Const DOMAIN = "DC=toiptest,DC=fr"
Const SUFFIX = "@toiptest.fr"
Const UAC = 512
Dim In1,In2,In3,In4,In5,In6,In7,Login,FullLogin

In1 = InputBox("Saisissez le login :","login?","Entrez ici le login")
In2 = InputBox("Saisissez le mot de passe :","Mot de passe?","Entrez ici le mot de passe")
In3 = InputBox("Saisissez le nom :","Nom?","Entrez ici le nom")
In4 = InputBox("Saisissez le prénom :","PréNom?","Entrez ici le prénom")
In5 = InputBox("Saisissez l'OU :","OU?","Entrez ici l'OU")
In6 = InputBox("Saisissez une description :","Description?","Entrez ici la description")
In7 = InputBox("Saisissez l'étage :","Etage?","Entrez ici l'étage où se trouve l'utilisateur")

Login = In1
FullLogin = Login & SUFFIX

Set objOU = GetObject("LDAP://OU="& In5 &",dc=toiptest,dc=fr")
Set objUser = objOU.Create("User", "cn="&In1)
objUser.Put "sAMAccountName",Login
objUser.Put "sn",In3
objuser.Put "userPrincipalName",FullLogin
objUser.Put "givenName",In4
objUser.Put "displayName",Login
objUser.Put "userAccountControl",UAC
objUser.Put "physicalDeliveryOfficeName",In7
objUser.Put "description",In6
objUser.SetInfo
objUser.SetPassword "& In2 &"

Evidement, pour créer beaucoup d'utilisateurs ce n'est pas bien pratique de valider à chaque fois...surtout que je n'ai pas que 7 attributs à mettre....bref! J'ai donc appris que en VBS, les fenêtres multi-champs, ça n'existe pas.
La seule solution (apparement) est de créer un formulaire HTML, avec le script inclu dedans.
ça m'a donc donné ceci :
<HTML><HEAD>
<TITLE>Validation dans formulaire avec VBScript</TITLE>

<BODY LANGUAGE="VBScript" BGCOLOR="#bfbfff",OnLoad =Page_Initialize>

<CENTER><H1>...::: Création d'un utilisateur :::...</H1>
<FORM NAME = "frmuser" METHOD = "Post">
<table>
<form name="Formulaire">
<table>
<tr align = center>
<td><font color=#000000>Login : </font></td><td><input type="text" name="StringResultat1"></td>
</tr>
<tr align = center>
<td><font color=#ffffff>Mot de Passe : </font></td><td><input type="text" name="StringResultat2"></td>
</tr>
<tr align = center>
<td><font color=#ffffff>Nom : </font></td><td><input type="text" name="StringResultat3"></td>
</tr>
<tr align = center>
<td><font color=#ffffff>Prénom : </font></td><td><input type="texte" name="StringResultat4"></td>
</tr>
<tr align = center>
<td><font color=#ffffff>Unité d'Organisation : </font></td><td><input type="texte" name="StringResultat5"></td>
</tr><tr align = center>
<td><font color=#ffffff>Description : </font></td><td><input type="texte" name="StringResultat6"></td>
</tr>
<tr align = center>
<td><font color=#ffffff>Etage : </font></td><td><input type="" name="StringResultat7"></td>
</tr>
</table>
<INPUT TYPE="submit" VALUE="créer" Name ="create" Onclick="createuser">
<INPUT TYPE="reset" VALUE="Ré-Initialiser le Formulaire">
</FORM>
<SCRIPT LANGUAGE="VBscript">

Sub createuser

Const DOMAIN = "DC=toiptest,DC=fr"
Const SUFFIX = "@toiptest.fr"
Const UAC = 512

Dim StringResultat1
Dim StringResultat2
Dim StringResultat3
Dim StringResultat4
Dim StringResultat5
Dim StringResultat6
Dim StringResultat7

StringResultat1 = Document.frmuser.StringResultat1.Value
StringResultat2 = Document.frmuser.StringResultat2.Value
StringResultat3 = Document.frmuser.StringResultat3.Value
StringResultat4 = Document.frmuser.StringResultat4.Value
StringResultat5 = Document.frmuser.StringResultat5.Value
StringResultat6 = Document.frmuser.StringResultat6.Value
StringResultat7 = Document.frmuser.StringResultat7.Value

Const UAC = 512
Login = In1
FullLogin = Login & SUFFIX

Set objOU = GetObject("LDAP://OU="& StringResultat5 &",dc=toiptest,dc=fr")
Set objUser = objOU.Create("User", "cn="&StringResultat1)
objUser.Put "sAMAccountName",Login
objUser.Put "sn",StringResultat3
objuser.Put "userPrincipalName",FullLogin
objUser.Put "givenName",StringResultat4
objUser.Put "displayName",Login
objUser.Put "userAccountControl",UAC
objUser.Put "physicalDeliveryOfficeName",StringResultat7
objUser.Put "description",StringResultat6
objUser.SetInfo
objUser.SetPassword "& StringResultat2 &"

MsgBox "Utilisateur "& StringResultat1 &" créé dans l'OU "& StringResultat5 &"."

End Sub

</SCRIPT>
</HEAD>
</P></BODY></HTML>

Et là, ça ne marche pas :(
Apparement, il y a un problème au niveau de l'exécution de ma fonction "createuser"
J'ai essayé de mettre plein de MsgBox dedans pour voir à quel moment le script ne s'exécute plus...mais visiblement aucune ne s'affiche XD Pour moi ça veut dire qu'il ne s'exécute pas...:(

Je ne suis absolument pas développeuse, mes études sont d'ailleurs orientées réseau.
Je n'ai aucune connaissances en html ou vbs, même si là, je me suis penchée dessus, je pense que mes pauvres bases en algo ne sont pas suffisantes à ce stade.
Pourriez vous m'aider s'il vous plait? Qu'est ce qui ne va pas dans mon code?

4 réponses

Réponse 1 / 4
Kaguya
23 juin 2008 à 11:44
merci pour vos réponses.....nombreuses.

Finalement, j'ai laché l'affaire du formulaire.
Je passe par une feuille Excel .csv et j'importe les utilisateurs avec la commande ADDUSERS.

Merci quand même, si il y a des personnes qui avaient lu mon message et qui avaient (sans répondre) un peu réfléchi à mon problème.

A+
0
jackemon
30 juin 2008 à 20:03
salut Kaguya serait il possible d'avoir un examplaire de ton formulaire sous exel cordialement

brahim
0
Réponse 2 / 4
bilgeate Messages postés 5 Date d'inscription lundi 15 décembre 2008 Statut Membre Dernière intervention 18 février 2009
16 déc. 2008 à 14:47
salut j'ai besoins d'inserer un login dans un espace professeurs qui sera accessible seulements par les professeurs je suis entraind de créer un site d'école et je veux aussi faire un tableaux arrondi
merci
0
Réponse 3 / 4
Okonomiyaki
9 mars 2009 à 12:05
Bonjour,

Perso, ça fait un moment que je recherche ce que cette personne recherche.
Je voulais passer par un formulaire HTML avec du vbscript car je m'y connais un peu mais ça ne passe pas non plus car l'Internet Explorer ne prend pas en compte les credentials.
Donc, je boude, j'en ai marre car j'aimerai vraiment utiliser ce formulaire ... booo
Si quelqu'un a trouver la solution, je suis preneur.
Je pense qu'il faut creuser dans l'ADSI mais bon ... chaud quand même.

José.
0
Kaguya
12 mars 2009 à 16:47
Ouah je vois que personne n'a trouvé.
Je suis désolée, après mon dernier post je ne suis pas repassée sur le site pour voir vos réponses.
En effet, c'est chaud!
Par contre, un ami a essayé et m'a conseillé d'utiliser Firefox plutôt que Internet Explorer.
Je ne pense pas que cela solutionne le problème...à voir et à tester.

a+ :)
0
Réponse 4 / 4
kris95
26 mars 2009 à 14:02
excuses moi mais ton vbs ne fonctionne pas sur mon AD... erreur ligne 27
je ne comprends pas !
0

Discussions similaires

Civilité (Mr,Mme,Melle) n' apparait pas lors de l'exécution du formulaire
azixe -
cs_Le Pivert -

1 réponse
la balise <br> ou <br />
faamugol -
rwaness -

8 réponses
<br> ou <br /> ou </br>
corentin.93 -
jessy006 -

11 réponses
Balise </br>
erf -
erf -

3 réponses
Saut de lignes sans <br/>
Rapi-shiny -
Rapi-shiny -

13 réponses