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