Bonjour,

j'aimerai creer un dossier et y mettre des atributs spécifiques pour certain utilisateurs.

Sachant que je veux passer par Active Directory.

Merci

J'en suis ici :

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
    Public Function PutOffice()
        Dim Fso
        FichierOffice = CheminRessources & "\" & username
        Fso = CreateObject("Scripting.FileSystemObject")
 
        If Not Fso.FolderExists(FichierOffice) Then
            Fso.CreateFolder(FichierOffice)
        Else
            MsgBox("Fichier de ressources Office déja créé", 16, "Attention !")
        End If
        If Err.Number <> 0 Then
            MsgBox("probleme dans la création du repertoire Office " & FichierOffice)
        Else
            addToGroup("LDAP://CN=Microsoft OFFICE 2000,OU=GROUPESAPPLICATIONS," & DomainName)
        End If
 
    End Function