définir les autorisations avec un script vbs

Question

J'ai un script VBS qui télécharge un fichier sur la connexion et le place dans un dossier donné, Il fonctionne brillamment dans certains endroits, mais dans d'autres, il tombe parce que le fichier a été créé par user1 et user2 Ne l'écrase pas.

Comment donner au groupe "Tout le monde" le contrôle total d'un fichier donné en utilisant un script VBS?

Answer 1

Une façon de le faire serait d'utiliser l'outil de ligne de commande CACLS. Exécutez-le simplement à partir de votre script en utilisant Shell.Run.

Voici une autre link pour savoir comment utiliser CACLS avec des exemples.

Answer 2

Quelque chose comme ceci:

Set WshShell = CreateObject("WScript.Shell") 
strFile = "c:\test_folder\test_file.txt" 
setPerms = "%COMSPEC% /c echo Y| C:\windows\system32\cacls.exe " & Chr(34) & strFile & Chr(34) & " /G domain\everyone:F" 

wscript.echo setPerms 
WshShell.run setPerms 

partiellement glanées ici: http://social.technet.microsoft.com/forums/en-us/ITCG/thread/6CDA091A-6B3D-4F58-8374-9A46F59F389A

Answer 3

Fonction giveFullPermissionToFolder (strFolder)

Dim objShell, strCmd, intRunError

Set objShell = CreateObject ("Wscript.Shell")

strCmd = "% comspec%/c echo Y | cacls "& strFolder &"/T/E Utilisateurs/C/G: F »

intRunError = objShell.Run (strCmd, 2, True)

Si intRunError <> 0 Then

Reporter.ReportEvent micFail, "giveFullPermissionToFolder" , "Unable to give full permission to " & strFolder 

End If

Set objShell = Nothing

End Function