Permissions NTFS

Question

Bonjour à tous, J'ai besoin de votre aide, je vous explique ( environnement NT) Je voudrais modifier les permissions sur un repertoire sur le reseau. [file://\nomduserveur\users omdudossier \nomduserveur\users omdudossier] A l'origine le repertoire "nomdudossier" est en "Controle Total" pour l'uti et en "Lister" pour Auditeurs Ce que je cherche à faire : Changer les permissions et mettre seulement Administrateurs en "Control Total" le repertoire entier plus fichiers plus sous repertoire. Pour cela je m'aide de xcacls (voir en dessous un bout de mon code ) mais j'ai un acces refusé pourtant j'ai une signature adm. Je crois que xcacls n'est pas assez puissant malheuresement Donc ma question : avez vous une solution de contournement ou un code VB6 qui permet de changer les permissions mais je voudrais qq chose de visuel car je voudrais savoir ou ca en ai. D'avance merci beaucoup. voici un bout du code "Appropriation". --------------------------------------------------------------------------------------------- Private Sub Appropriation_Click() ...... ... Chemin = "\" & VarDepart & "\Users" & VarUti & "" .... pid = Shell("cmd /k xcacls.exe " & Chemin & " /G Administrateurs:F /Y /T ", vbNormalFocus) If pid <> 0 Then phnd = OpenProcess(SYNCHRONIZE, 0, pid) If phnd <> 0 Then Call WaitForSingleObject(phnd, INFINITE) Call CloseHandle(phnd) End If ........

cs_Angus59 · Answer

Bonjour,

Pas d'id&#233;es ?

C'est important merci d'avance.

Permissions NTFS

1 réponse

Discussions similaires