Discussion :

[hageshii]

bonjour,

je cherche à gerer les droits sur des dossiers mais je n'y arrive pas quand le nom du groupe ou de l'utilisateur comporte des espace.

voila mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
' saisie du nouvel utilisateur
nomUtilisateur=inputbox("Saisissez le nom de l'utilisateur","Utilisateur")
' creation de l'utilisateur...
' ...
 
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Droits sur le dossier dossiertest 
 droitdossier = objShell.Run("%COMSPEC% /c Echo o| cacls c:\dossiertest /g " & nomUtilisateur &":f administrateurs:f", 2, True)
If droitdossier <> 0 Then
   Wscript.Echo "Permissions sur le dossier non fait"
End If

du moment que ma variable nomUtilisateur ne comporte pas d'espace, ca marche tres bien. mais si par exemple je veux partager mon dossier à "Utilisateurs du domaine" ou a une utilisateur qui pourrait s'appeler "toto 254" par exemple, le partage ne se fait pas.

je vois bien que ce sont les espaces qui posent probleme mais comment remedier a ca ?

par avance merci.

[l_autodidacte]

As-tu essayé de mettre des guillemets( Chr(34) ) comme ceci :

Code :

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

droitdossier = objShell.Run("%COMSPEC% /c Echo o| cacls c:\dossiertest /g " & Chr(34) & nomUtilisateur & Chr(34) & ":f administrateurs:f", 2, True)

[hageshii]

ca marche super!

merci beaucoup !

je ne connaissais pas cette astuce.

[hackoofr]

je ne connaissais pas cette astuce.

Voila vous pouvez aussi l'adapter cette astuce en tant que fonction comme par exemple ici
je l'ai modifié un peu ton script pour le tester chez moi et il est très intéressant de point de vue droits en lecture seule par exemple l’utilisateur ne peut pas écrire la-dessus comme ajouter (copier) ou bien créer autres fichiers ou autres dossiers

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
Set WshNetwork = CreateObject("WScript.Network")
 NomMachine = WshNetwork.ComputerName
 NomUtilisateur = WshNetwork.UserName
 MsgBox NomMachine,64,"Nom de la Machine"
 MsgBox NomUtilisateur,64,"Nom de l'utilisateur"
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists("c:\dossiertest") Then
objFSO.CreateFolder ("c:\dossiertest")
end if
'Droits sur le dossier "dossiertest" en lecture seule avec le paramètre "r"(pour la lecture seule) au lieu de "f"(pour le Contrôle totale)
 Command = "%COMSPEC% /c Echo o| cacls c:\dossiertest /g " & qq(NomUtilisateur) & ":r administrateurs:r > Permissions.txt" 'avec redirection dans un fichier pour voir le résultat de la commande
 Result = objShell.Run(Command,0,True)'exécution de la commande sans afficher la console MS-DOS
If Result <> 0 Then
   MsgBox "Permissions sur le dossier non fait",16,"Permissions sur le dossier non fait"
End If
 
Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function

à vous pour ce script car j'ai appris moi aussi quelques astuces de ce dernier ,et si vous ne trouviez pas d'inconvénient vous pouvez nous partager ton script final dans la section téléchargement
Bonne Programmation

[hageshii]

@ hackoofr

desolé de la réponse tardive.

je ne peux pas partager mon code entier car il comprend beaucoup d'information de mon entreprise mais si tu veux, je pourrai te lister les actions que j'ai mise en place si tu veux et te donner le bout de code qui va avec ce qui t'interesse.

[hackoofr]

@ hackoofr
desolé de la réponse tardive.
je ne peux pas partager mon code entier car il comprend beaucoup d'information de mon entreprise mais si tu veux, je pourrai te lister les actions que j'ai mise en place si tu veux et te donner le bout de code qui va avec ce qui t'interesse.

Ok tu enlève bien sur les info de ton entreprise et tu poste quelque chose de général