liaison nouveau dossier avec FTP
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:
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
