cacls et les espace

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:

---

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.

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

Code:

---

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

---

ca marche super!

merci beaucoup !

je ne connaissais pas cette astuce.

Citation:

---

Envoyé par hageshii

je ne connaissais pas cette astuce.

---

:salut:
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 :zoubi:

Code:

---

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

---

:merci: à 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 :merci:
Bonne Programmation :pc:

@ 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.

Citation:

---

Envoyé par 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.

---

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