liaison nouveau dossier avec FTP

**marioTimax** · 03/05/2012, 09h38

Salut !
je suis en stage en info réseau et on m'as demander un petit script qui permet de créer un nouvel utilisateur dans l'active directory si il n'existe pas deja et ensuite créer un dossier pour cette utilisateur et finalement lier ce dossier au FTP.

je vous montre ce que j'ai deja fait jusqu'à la liaison qui me pose problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
'------------------CREATION D'UN COMPTE UTILISATEUR DANS L'ACTIVE DIRECTORY
 
Set objOU = GetObject("LDAP://OU=FAMILY,OU=LAUSANNE USERS,OU=WITHERS USERS,dc=withers,dc=net")
 
Set objUser = objOU.Create("User", "cn=Test Test")
objUser.Put "sAMAccountName", "test"
objUser.Put "userPrincipalName", "test@test.net"
objUser.SetInfo
 
 
 
'------------------ATTRIBUTION D'UN MOT DE PASSE DE BASE A L'UTILISATEUR
 
Set objUser = GetObject _
("LDAP://cn=Test Test,OU=FAMILY,OU=LAUSANNE USERS,OU=WITHERS USERS,dc=withers,dc=net")
 
objUser.SetPassword "Passw0rd"
 
 
 
'------------------FORCE L'UTILISATEUR A CHANGER DE MOT DE PASSE A LA PREMIERE CONNECTION
 
Set objUser = GetObject _
("LDAP://cn=Test Test,OU=FAMILY,OU=LAUSANNE USERS,OU=WITHERS USERS,dc=withers,dc=net")
 
objUser.Put "pwdLastSet", 0
objUser.SetInfo
 
 
 
'------------------ACTIVE L'UTILISATEUR DANS L'ACTIVE DIRECTORY
 
Set objUser = GetObject _
("LDAP://cn=Test Test,OU=FAMILY,OU=Lausanne USERS,OU=WITHERS USERS,dc=withers,dc=net")
 
objUser.AccountDisabled = False
objUser.SetInfo
 
 
'------------------CREATION DU DOSSIER
 
If System.IO.Directory.Exists("dossier") = False Then
    System.IO.Directory.CreateDirectory("dossier")
 
 
 
'------------------LIAISON DOSSIER CREE -> FTP 
 
 
'????????????

voila si qqun peut m'aider
merci

**cubitus91** · 03/05/2012, 11h24

hello,
tu peux nous donner la version de ton IIS ?
Car la laison peux etre automatique selon la version de iis et la configuration.
Cordialement

**marioTimax** · 03/05/2012, 13h15

merci pour ta réponse !!

alors pour l'iis est ce que tu peux me dire ou je peux trouver cet info ?

je suis nouveau dans la boite et mon responsable n'est pas là.
merci
+

**cubitus91** · 03/05/2012, 13h23

hello,
Tu peux me donner la version du serveur (Système d'exploitation).
Cordialement

**marioTimax** · 03/05/2012, 13h41

alors les serveur sont sous server2003 et server2008 mais il faudrait que le script marche sur 2003, quitte a mettre la commande pour l'automatisation en commentaires à utiliser plus tard sur le 2008.

On me demande également de faire un petit formulaire pour décrire le nouvel utilisateur que je pensais faire en html

et ensuite lier le vbs avec mon formulaire

merci

**cubitus91** · 03/05/2012, 13h48

hello,
Voici les procédures pour réaliser l'isolation des utilisateurs FTP :
Sous 2003 :
http://www.microsoft.com/technet/pro....mspx?mfr=true

http://www.microsoft.com/technet/pro....mspx?mfr=true

Sous 2008:
http://learn.iis.net/page.aspx/305/c...tion-in-iis-7/

Pour ton formulaire, tout dépend si tu dois exposer à tout tes utilisateurs ou non. Mais sache que le pool d'application devra avoir les droits de modifications de ton active directory car il sera chargé d'executer ton script vbs.
Cordialement

**marioTimax** · 03/05/2012, 13h53

ok je vais regarder tout ça merci pour tes réponses rapides

**marioTimax** · 03/05/2012, 14h06

voila mon diagramme c'est plus explicite que moi lol !

**marioTimax** · 10/05/2012, 08h39

re Salut !!

J'ai toujours pa reussi a faire fonctionner mon script correctement
je vous ai mis mon diagramme et mnt mon code si qqun peut m'aider ou simplement me dire si je suis loin du compte ou pas ??

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
 
<html>
 
<head>
 
<script language="VBscript">
 
'SCRIPT VB POUR LA CREATION DE USER DANS L'AD AVEC LIAISON FTP
 
 
 
 
strPcName="Puck"
strDN="ou=Clients,DC=isclient,DC=local"
strImmoPoolFolder="\\ouck\immopool\"
strAnnexesFolder="\\puck\annexes\"
 
 
 
 
 
Set objetFSO = CreateObject("Scripting.FileSystemObjet)
 
 
 
 
 
 
 
'CONNECTION EN LOCAL ET AU FTP
 
 
set oDomain=GetObject("CreateLog.txt",8,true)
Set iisftp=GetObject("IIS://"& strPcName &"/MSFTPSVC/1/ROOT")
 
 
 
 
'L'UTILISATEUR EST-IL CONNU ?
 
 
 
If objetFSO.FileExists(strUsers) Then
 
 
 
'SI L'UTILISATEUR N'EST PAS CONNU ON LE CREE
 
'CREATION D'UN COMPTE UTILISATEUR DANS L'ACTIVE DIRECTORY
 
 
 Set objOU = GetObject("LDAP://192.168.1.1/CN=users,dc=domainname,dc=com") 
Set objUser = objOU.Create("User", "cn=Test Test")
objUser.Put "sAMAccountName", "test"
objUser.Put "userPrincipalName", "test@test.net"
objUser.SetInfo
 
 
 
'ATTRIBUTION D'UN MOT DE PASSE DE BASE A L'UTILISATEUR
 
Set objUser = GetObject_
("LDAP://192.168.1.1/CN=users,dc=domainname,dc=com") 
 
objUser.SetPassword "Passw0rd"
 
 
'FORCE L'UTILISATEUR A CHANGER DE MOT DE PASSE A LA PREMIERE CONNECTION
 
Set objUser = GetObject_
("LDAP://192.168.1.1/CN=users,dc=domainname,dc=com") 
objUser.Put "pwdLastSet", 0
objUser.SetInfo
 
 
'ACTIVE L'UTILISATEUR DANS L'ACTIVE DIRECTORY
 
Set objUser = GetObject_
("LDAP://192.168.1.1/CN=users,dc=domainname,dc=com")
objUser.AccountDisabled = False
objUser.SetInfo
 
 
 
else
 
 
'CREATION DU REPERTOIRE VIRTUEL FTP 
 
 
if aUser<>""then
	on error resume next
	Set ftpDir=Nothing
	Set ftpDir=GetObject("IIS://&PcName & "/MSFTPSVC/1/ROOT" & aUser)
	If Not isNothing(ftpDir) Then
	Set ftpDir=iisftp.Create("IISFtpVirtualDir", aUser)
	End If
 
	if aUsers(i)<1000 then
		strDestFolder=strAnnexesFolder & aUsers(i)
		set fol=ofso.CreateFolder(strAnnexesFolder & aUsers(i))
		set fol=ofso.CreateFolder(strAnnexesFolder & aUsers(i) & "\images")
		ftpDir.Path=strAnnexesFolder & aUsers(i)
 
	else
 
		strDestFolder=strImmoPoolFolder & aUsers(i)
		set fol=ofso.CreateFolder(strImmoPoolFolder & aUsers(i))
		set fol=ofso.CreateFolder(strImmoPoolFolder & aUsers(i) & "\images")
		ftpDir.Path=strImmoPoolFolder & aUsers(i)
	end if
	ftpDir.AccessFlags=3
	ftpDir.SetInfo
 
 
 
 
 
 
 
'DONNE LES DROITS SUR LE REPERTOIRE
 
 
 
oShell.Exec"cacls.exe"""& strDestFolder& """/g"""aUser & """:c/e/t"
end if
Set aUsers=Nothing
 
 
 
 
 
 
'LIAISON DOSSIER CREE -> FTP
 
 
 
My.Computer.Network.UploadFile("C:\annexes\dossiertest", "ftp://MonServeurFTP/aaaaaa/dossiertest", "login", "Password")
 
 
 
</script>
</head>
 
<body>
 
 
<FORM method=post>
<b>Ajouter des utilisateurs dans l'Active Directory avec liaison FTP</b>
</br>
</br>
</br>
 
 
<TABLE BORDER=0>
<TR>
	<TD>Nom de l'agence</TD>
	<TD>
	<INPUT type=text name="nomagence">
	</TD>
</TR>
 
 
<TR>
	<TD>Adresse de l'agence</TD>
	<TD>
	<INPUT type=text name="adresseagence">
	</TD>
 
</TR>
 
<TR>
	<TD>Client</TD>
	<TD>
	Client S<INPUT type=radio name="sexe" value="M">
	<br>Client R<INPUT type=radio name="sexe" value="F">
	</TD>
</TR>
 
<TR>
	<TD>Système</TD>
	<TD>
	<SELECT name="fonction">
		<OPTION VALUE="Choix du système">Choix du système</OPTION>
		<OPTION VALUE="Alacasa.ch (IDX)">Alacasa.ch (IDX)</OPTION>
		<OPTION VALUE="Artionet Sàrl (IDX)">Artionet Sàrl (IDX)</OPTION>
		<OPTION VALUE="Begasoft">Begasoft</OPTION>
		<OPTION VALUE="Bluestar solutions Sàrl (idx)">Bluestar solutions Sàrl (idx)</OPTION>
		<OPTION VALUE="Bluesystem Sàrl (idx)">Bluesystem Sàrl (idx)</OPTION>
		<OPTION VALUE="Casasoft">Casasoft</OPTION>
		<OPTION VALUE="CITI">CITI</OPTION>
		<OPTION VALUE="Courtiers Partenaires">Courtiers Partenaires</OPTION>
		<OPTION VALUE="CQFD Informatique">CQFD Informatique</OPTION>
		<OPTION VALUE="CDPInformatique Sàrl (IDX 3.01)">CDPInformatique Sàrl (IDX 3.01)</OPTION>
		<OPTION VALUE="Edireal">Edireal</OPTION>
		<OPTION VALUE="Expose 732 (idx)">Expose 732 (idx)</OPTION>
		<OPTION VALUE="Flowfact">Flowfact</OPTION>
		<OPTION VALUE="Format-Z (IDX)">Format-Z (IDX)</OPTION>
		<OPTION VALUE="F4 Informatique (idx)">F4 Informatique (idx)</OPTION>
		<OPTION VALUE="Go!">Go!</OPTION>
		<OPTION VALUE="Geomatic (idx)">Geomatic (idx)</OPTION>
		<OPTION VALUE="Horat informatik systeme gmbH (idx)">Horat informatik systeme gmbH (idx)</OPTION>
		<OPTION VALUE="I.List / Mediafeeder">I.List / Mediafeeder</OPTION>
		<OPTION VALUE="IMMOMIG">IMMOMIG</OPTION>
		<OPTION VALUE="Immotop">Immotop</OPTION>
		<OPTION VALUE="Immoflow">Immoflow</OPTION>
		<OPTION VALUE="Infolog (idx)">Infolog (idx)</OPTION>
		<OPTION VALUE="Justimmo">Justimmo</OPTION>
		<OPTION VALUE="Mediafeeder / ilist">Mediafeeder / ilist</OPTION>
		<OPTION VALUE="Makler 2000, EstateOffice">Makler 2000, EstateOffice</OPTION>
		<OPTION VALUE="Mondaycoffee (idx)">Mondaycoffee (idx)</OPTION>
		<OPTION VALUE="onOffice">onOffice</OPTION>
		<OPTION VALUE="Ofisa">Ofisa</OPTION>
		<OPTION VALUE="Ohne-makler.ch (idx)">Ohne-makler.ch (idx)</OPTION>
		<OPTION VALUE="Point-i">Point-i</OPTION>
		<OPTION VALUE="Publimmo (acheter-louer)">Publimmo (acheter-louer)</OPTION>
		<OPTION VALUE="Platform 5">Platform 5</OPTION>
		<OPTION VALUE="Quorum">Quorum</OPTION>
		<OPTION VALUE="Rimo R4">Rimo R4</OPTION>
		<OPTION VALUE="REM (idx)">REM (idx)</OPTION>
		<OPTION VALUE="SAI Informatique">SAI Informatique</OPTION>
		<OPTION VALUE="Sesamnet (idx)">Sesamnet (idx)</OPTION>
		<OPTION VALUE="Serviceonline">Serviceonline</OPTION>
		<OPTION VALUE="Silverlink">Silverlink</OPTION>
		<OPTION VALUE="SwissRéseau">SwissRéseau</OPTION>
		<OPTION VALUE="Totalimmo">Totalimmo</OPTION>
		<OPTION VALUE="Unio">Unio</OPTION>
		<OPTION VALUE="Webside.ch (IDX)">Webside.ch (IDX)</OPTION>
		<OPTION VALUE="W&W Immo (IDX)">W&W Immo (IDX)</OPTION>
	</SELECT>
	</TD>
</TR>
 
<TR>
	<TD>Préfixe</TD>
	<TD>
	<SELECT name="fonction">
		<OPTION VALUE="--">--</OPTION>
		<OPTION VALUE="AG">AG</OPTION>
		<OPTION VALUE="AA">AA</OPTION>
		<OPTION VALUE="BB">BB</OPTION>
		<OPTION VALUE="CC">CC</OPTION>
		<OPTION VALUE="DD">DD</OPTION>
		<OPTION VALUE="EE">EE</OPTION>
		<OPTION VALUE="FF">FF</OPTION>
 
	</SELECT>
	</TD>
</TR>
<TR>
	<TD>Commentaires</TD>
	<TD>
	<TEXTAREA rows="3" name="commentaires">
	Tapez vos commentaires ici</TEXTAREA>
	</TD>
</TR>
 
<TR>
	<TD COLSPAN=2>
	<INPUT type="submit" value="Enregistrer un nouvel utilisateur">
	<INPUT type="submit" value="Annuler">
	</TD>
</TR>
</TABLE>
</FORM>
 
</body>
</html>

**cubitus91** · 10/05/2012, 11h02

Envoyé par marioTimax

re Salut !!

J'ai toujours pa reussi a faire fonctionner mon script correctement
je vous ai mis mon diagramme et mnt mon code si qqun peut m'aider ou simplement me dire si je suis loin du compte ou pas ??

merci

hello,
c'est quoi qui ne marche pas ?

**marioTimax** · 10/05/2012, 11h15

salut

bah c'est la connection entre mon vbs et mon formulaire enfait
que la creation de mes users dans l'AD et des reoertoires FTP se crée en fonction des données entrées ds le formulaire par le client

**cubitus91** · 10/05/2012, 11h43

Envoyé par marioTimax

salut

bah c'est la connection entre mon vbs et mon formulaire enfait
que la creation de mes users dans l'AD et des reoertoires FTP se crée en fonction des données entrées ds le formulaire par le client

Bonjour,

je pense que tu as fait une page asp. As tu déja testé tes vbs à part pour valider le bon résultat.
Voila :
http://florian.developpez.com/tutori...?page=sommaire

Cordialement

**ProgElecT** · 10/05/2012, 12h20

Salut

Si se n'est pas un problème de Copier/Coller, ligne 22 il manque un ".
D'où l'intérêt d'entourer le code avec les balises [code ][ /code]
Ligne 94 même problème.

**marioTimax** · 25/05/2012, 08h41

merci pour vos réponses

C'est régler

++

liaison nouveau dossier avec FTP

VBScript

Discussions similaires

Partager

Partager