Discussion :

[SaeZ]

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

[Theocourant]

Salut,

Et quel est ton problème à ce niveau ?

+

Théo

[SaeZ]

Ben en fait quand tu fais un clic droit sur ton dossier, tu as l'onglet sécurité, j'aimerai modifier les groupes et utilisateurs,ainsi que lles paermissions. En MSDos, il y a Cacls, mais il doit y avoir des objects qui doivent etre parametables à ce niveau la dans les dossiers.

Help, il ne ma manque plus que ca pour finir mon projet. Merci quand meme

[SaeZ]

J'ai trouvé une solution temporaire : je lance un.bat

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
    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=GROUPES APPLICATIONS," & DomainName)
            Shell("c:\test.bat  " & FichierOffice & " " & username, AppWinStyle.Hide, True)
        End If
 
    End Function

et voici le bat :

Code :

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

1
2
3
echo o| cacls %1 /G "Admins du domaine":F
echo o| cacls %1 /E /G "%2":C
echo o| cacls %1 /E /G "SYSTEM":C

mais j'aimerai bien ne pas passer par le .bat, est ce possible de lancer une ligne de commande depuis VB?

[AlainTech]

J'ai trouvé ça sur le net:

http://www.computerperformance.co.uk/vbscript/vbscript_cacls_excel.htm

Il doit être possible d'en extraire ce que tu veux.

[SaeZ]

Merci bien je vais regarder

Je donnerai le code final que j'aurai fait pour ceux que ca interresse.

[SaeZ]

Je te remercie, j'ai fini, voici ce que j'ai fait.

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
 
    Public Function PutOffice()
        Dim objshell
        Dim Fso
        FichierOffice = CheminRessources & "\" & username
        Fso = CreateObject("Scripting.FileSystemObject")
        objshell = CreateObject("Wscript.Shell")
 
        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=GROUPES APPLICATIONS," & DomainName)
 
            objshell.Run("%COMSPEC% /c Echo o| cacls " & FichierOffice & " /G " & Chr(34) & "Admins du domaine" & Chr(34) & ":F " & username & ":C" & " SYSTEM:C > NULL")
 
        End If
 
    End Function