Give Full Access This script gives everyone read and write permission to a folder. Rate this script:0 Stars - Lowest1 Star2 Stars3 Stars4 Stars5 Stars - Highest Added 283 days ago by Emnico		Download
		Review
		Back
	66	Views

This script has been successfully tested by Emnico and is verified to be working.

Source code

Dim strHomeFolder, strHome, strUser
Dim intRunError, objShell, objFSO

strHomeFolder = "C:\FOLDER"

Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strHomeFolder) Then
	intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " _
	& strHomeFolder & " /t /c /g everyone:F ", 2, True)
	
	If intRunError <> 0 Then
		Wscript.Echo "Error assigning permissions for user " _
		& strUser & " to home folder " & strHomeFolder
	End If
End If