définir des autorisations avec un script vbs

J'ai un script VBS qui télécharge un fichier de connexion, et le place dans un dossier donné, Il fonctionne à merveille dans certains endroits, mais dans d'autres, il tombe parce que le fichier a été créé par user1 et user2 ne peut pas le remplacer.

Comment pourrais-je donner au groupe "tout le monde" contrôle complet d'un fichier à l'aide d'un script VBS?

InformationsquelleAutor Arcath | 2010-12-02
  1. 4

    Une seule façon de faire serait d'utiliser la CACLS outil de ligne de commande. Exécuter à partir de votre script à l'aide de Shell.Exécuter.

    Voici un autre lien à l'information sur la façon d'utiliser CACLS qui a des échantillons.

    InformationsquelleAutor Hans Olsson
  2. 4

    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 recueillies à partir d'ici:
    http://social.technet.microsoft.com/forums/en-us/ITCG/thread/6CDA091A-6B3D-4F58-8374-9A46F59F389A

    InformationsquelleAutor Marc
  3. 0

    Fonction giveFullPermissionToFolder(strFolder)

    Dim objShell, strCmd, intRunError

    Set objShell = CreateObject("Wscript.Shell")

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

    intRunError = objShell.Exécuter(strCmd, 2, True)

    Si intRunError<>0 then

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

    Fin Si

    Set objShell=Rien

    Fin De La Fonction

    InformationsquelleAutor tatzagata