Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1555 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBscript et NTFS

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

VBscript et NTFS

n°998508
karon2005
Posté le 02-03-2005 à 17:37:29  profilanswer
 

Bonjour,
 
Je recherches un script qui me permettrait de modifier les droits sur un fichier ou un répertoire en vbscript.
 
Merci par avance.


---------------
KARON
mood
Publicité
Posté le 02-03-2005 à 17:37:29  profilanswer
 

n°998518
karon2005
Posté le 02-03-2005 à 17:51:52  profilanswer
 

karon2005 a écrit :

Bonjour,
 
Je recherches un script qui me permettrait de modifier les droits sur un fichier ou un répertoire en vbscript.
 
Merci par avance.


 
Sans utiliser un exe extérieur...


---------------
KARON
n°998526
knakes
Posté le 02-03-2005 à 17:56:14  profilanswer
 

Tu peux être un peu plus précis ?

n°998533
karon2005
Posté le 02-03-2005 à 18:01:59  profilanswer
 

knakes a écrit :

Tu peux être un peu plus précis ?


 
 
J'ai déjà trouver un script qui me liste les utilisateurs ayant des droits sur un fichier :
 

Code :
  1. On Error Resume Next
  2. Dim strComputer   'Nom de l'ordinateur
  3. Dim ColItems   'Objet
  4. Dim wmiSecurityDescriptor
  5. Dim RetVal    'Valeur de retour
  6. Dim DACL
  7. Dim wmiAce
  8. strComputer = "."
  9. 'Set objWMIService = GetObject( _
  10. ' "winmgmts:\\" & strComputer & "\root\cimv2" )
  11. 'Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalFileSecuritySetting",,48)
  12. Set ColItems = GetObject ( _
  13. "winmgmts:Win32_LogicalFileSecuritySetting." & _
  14. "path='D:\\administration\\wsh\\nouveau.txt'" )
  15. Wscript.Echo ColItems.Caption & ":" & vbCrlf
  16. RetVal = ColItems.GetSecurityDescriptor(wmiSecurityDescriptor)
  17. If Err <> 0 Then
  18. Wscript.Echo "GetSecurityDescriptor failed" &_
  19.  vbCrlf & Err.Number & vbCrlf & ErrDescription
  20. Wscript.Quit
  21. Else
  22. Wscript.Echo "GetSecurityDescriptor suceeded"
  23. End If
  24. DACL = wmiSecurityDescriptor.DACL
  25. Wscript.Echo "Control Flags: " & wmiSecurityDescriptor.ControlFlags
  26. Set wmiAce = CreateObject("Scripting.Dictionary" )
  27. For Each wmiAce In DACL
  28. Set Trustee = wmiAce.Trustee
  29. Wscript.Echo "Trustee Name: " & Trustee.Name
  30. Wscript.echo "Access Mask: "  & Trustee.AccessMask
  31. wmiAce.AccessMask = 37892 '131072
  32. Wscript.Echo "Access Mask: "  & Trustee.AccessMask
  33. Next
  34. RetVal = wmiFileSecSetting.SetSecurityDescriptor(wmiSecurityDescriptor)
  35. Wscript.Echo "ReturnValue is: " & RetVal


 
---------------------
 
J'aimerais pouvoir modifier ces droits...
 


---------------
KARON
n°998565
knakes
Posté le 02-03-2005 à 18:32:13  profilanswer
 

karon2005 a écrit :


For Each wmiAce In DACL
 
 Set Trustee = wmiAce.Trustee
 Wscript.Echo "Trustee Name: " & Trustee.Name
 Wscript.echo "Access Mask: "  & Trustee.AccessMask
 
 wmiAce.AccessMask = 37892 '131072  <<<<
 
 Wscript.Echo "Access Mask: "  & Trustee.AccessMask
Next


Le fait de mettre cette ligne ne modifie pas les droits d'accès ?

n°998783
c_moa
Posté le 02-03-2005 à 22:23:11  profilanswer
 

C'est dommage que tu ne souhaite pas exécuter un .exe car il y a  
setacl.exe
( je le trouve nettement plus pratique que cacls )

n°999223
karon2005
Posté le 03-03-2005 à 09:49:25  profilanswer
 

knakes a écrit :

Le fait de mettre cette ligne ne modifie pas les droits d'accès ?


 
 
Malheureusement, NON. Mais je ne sais pas pourquoi.


---------------
KARON
n°999224
karon2005
Posté le 03-03-2005 à 09:50:52  profilanswer
 

c_moa a écrit :

C'est dommage que tu ne souhaite pas exécuter un .exe car il y a  
setacl.exe
( je le trouve nettement plus pratique que cacls )


 
 
Ah ! Les défis.


---------------
KARON

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  VBscript et NTFS

 

Sujets relatifs
VBSCRIPT, tri/suppression fichiersDonner les droits ntfs à un utilisateur???
[ASP VBSCRIPT] URl rewriting > une alternative?Je veux modifier les droits NTFS !?
Modifier le status d'un utilisateur grave a vbscript. (SOS!!)VBscript problème de syntaxe
SQL server, VBscript et Access expliquez moivbscript + fichier INI
VBScript || Probleme de variable et chaine de caractere[VBScript] Utilisation des Array
Plus de sujets relatifs à : VBscript et NTFS


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR