VBS to create folder with permissions

Does anyone have, or can anyone quickly knock up for me a script to create a folder in a number of folders and set the permissions on that folder?

Heres what I need...

Our directory structure is like this,

\\servername\userdirs\students\intakeyear\studentu sername\Files\

I need a folder called Cakewalk set up in every one of our students Files folder with our students global security group set to deny full control.


Im sure one of you clever people can do this in a few seconds!

Thanks
James

This should be a starting point. Look up the syntax for CACLS to make sure it does what you need. Alternatively, use ICACLS as it has more features.

Code:

---

for /d %%d in (*.) do (
        call :setperms %%d
)
goto :eof

:setperms
echo Setting permission on folder %1
cacls %1 /t /p %1:C
echo.

---

The *. assumes that this script is running from the root folder of the students - you should change it to an absolute path to be sure.

Thanks, dow this script create a folder?

I cant quite understand what its supposed to be doing?

Apologies, it was a bit rushed. I misunderstood what you wanted to do.

Try this.

Code:

---

set rootpath=\\servername\userdirs\students\intakeyear

for /d %%d in (%rootpath%\*.) do (
        :: for every subfolder folder in intakeyear, call a subroutine to make a new folder
        call :makefolder %%d
)
goto :eof

:makefolder
echo.
echo Creating Cakewalk subfolder in %1
md %1\Cakewalk
echo.

---

If your parent permissions are set to deny full control, you shouldn't need to worry about inherited permissions.

To test it does what you expect, put a 'PAUSE' statement after 'call :makefolder %%d'

This is exactly what I need but this is creating a folder called cakewalk in \\servername\userdirs\students\intakeyear\studentu sername\

I need it to create the folder in \\servername\userdirs\students\intakeyear\studentu sername\files

The files folder is already there and has documents and other folders in it

I also need to set the permissions on the folder to deny for the group gsgstudents


Thanks for your help with this.

Oops My goof, just change the first line to
set rootpath=\\servername\userdirs\students\intakeyear \files

I think you wanted to deny group gsgstudents access to this folder? The cacls line sets the security. It will deny the group gsgstudents rights to the folder. If you want different rights, you can configure cacls to do what you need.

Here's the lowdown on cacls.
Cacls - Modify Access Control List


...
So this should work.

Code:

---

set rootpath=\\servername\userdirs\students\intakeyear\files

for /d %%d in (%rootpath%\*.) do (
        :: for every subfolder folder in intakeyear, call a subroutine to make a new folder
        call :makefolder %%d
)
goto :eof

:makefolder
echo.
echo Creating Cakewalk subfolder in %1
md %1\Cakewalk
echo Setting permissions on folder %1\Cakewalk
echo Y | cacls %1\Cakewalk /d gsgstudents
echo.

---

The 'echo Y | ' bit is needed as cacls asks 'Are you sure?' when you run the command. We're piping a 'Y' character to the command, effectively pressing the Y key.