Guys,

I know you guys are too good at scripting. But for the newbies that are trying to learn something. Just in case, if they need something like this. This might be of little help.

VB Script to Change the permissions of a folder, copy contents of a folder and rename the folder

Dim objFSO

Dim objShell

Dim strSysDir

Dim Calcds

Dim FoldPerm

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objShell = CreateObject("WScript.Shell")

 

strSysDir = objFSO.GetSpecialFolder(1).Path

If Right(strSysDir,1) <> "\" Then strSysDir = strSysDir & "\"

Calcds = sSysDir & "cacls.exe"

 

FoldPerm = """" & Calcds &"""" & """RequiredFolderPath""" & "  /t /e /c /p " & """Users""" & ":F"

objShell.Run FoldPerm, 1, True

 

 

If objFSO.FolderExists("SOURCEPATH") Then

 

objFSO.CopyFolder "SOURCEPATH", "DESTINATIONPATH", True

End If

 

 

If objFSO.FolderExists("ORIGINALNAME") Then

 

objFSO.MoveFolder "ORIGINALNAME", "RENAMEDFOLDER"  

 

End If

 

WScript.Quit()