How to Change Permission in VBScript

[Quattro]

I have some files of which security permissions have set for "no access" to everyone and i wanted to remove those permission and to allow "read only" permission on each temp folder, and could we apply this to the number of computer, such as I have 20 to 25 computer in each workgroup, and am trying to give this permission with the help of VBscript.... please suggest your opinion.

[Shell]

The following Xcacls.vbs are the VBScript commands that provide some examples of Xcacls.vbs usage.

xcacls.vbs c:\test\ /g domain\testuser1:f /f /t /e

This command edits existing permissions. It grants Domain\TestUser1 full control on all files under C:\Test, it traverses subfolders under C:\Test, and then it changes any files that are found. This command does not touch directories.

xcacls.vbs c:\test\ /g domain\testuser1:f /s /l "c:\xcacls.log"

This command replaces existing permissions. It grants Domain\TestUser1 full control on all subfolders under C:\Test, and it logs to C:\Xcacls.log. This command does not touch files, and it does not traverse directories.
xcacls.vbs c:\test\readme.txt /o "machinea\group1". This command changes the owner of Readme.txt to be the group MachineA\Group1.

[Adley]

It is not that hard for VBScript which grant permissions on folder/file NTFS formatted drive. You Just need to modify/tweak the script as per the requirements and follow various options available with CACLS.

This script will assign Modify/C-Change (write) Permission To Power User on "C:\MyFolder" using cacls on NTFS formatted drive

Dim oShell, FoldPerm, Calcds, oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")

sSysDir = oFSO.GetSpecialFolder(1).Path
If Right(sSysDir,1) <> "\" Then sSysDir = sSysDir & "\"

Calcds = sSysDir & "cacls.exe" 

'Chang The folder Name, User and Access rights in the following line of code  

FoldPerm = """" & Calcds &"""" & """C:\MyFolder""" & " /E /T /C /G " & """Power Users""" & ":C" 

oShell.Run FoldPerm, 1 ,True

[Alejandro]

xcacls.vbs \\servera\sharez\testpage.htm /p "domain\group2":14

This command remotely connects to \\ServerA\ShareZ by using Windows Management Instrumentation (WMI). It then obtains the local path for that share, and under that path, it changes the permissions on Testpage.htm. It leaves the existing permissions of Domain\Group2 intact, but it adds permissions 1 (read data) and 4 (read extended attributes). The command drops other permissions on the file because the /e switch was not used.

xcacls.vbs d:\default.htm /g "domain\group2":f /server servera /user servera\admin /pass password /e

This command uses WMI to remotely connect as ServerA\Admin to ServerA and then grants full permissions on Default.htm to Domain\Group2. Existing permissions for Domain\Group2 are lost and other permissions on the file