jlondon

@lbue_cookeh, have you put in a TAC about the dropping connection on your Macbook?

I did the free AP and the 3 year license as well. No catch.

David, Thank you for all of the effort you put forth in sharing your knowlege both of Vb scripting but also of cacls. I am not a programmer by trade so to answer your question, yes I was looking for sample code to paste and test (Hoping it works) Kind Regards, Joe London

Success! I am passing along this script for others to use. Let me give you some history on these user folders. Nested in the user folder, you have three sub folders that allow for one to be private where only the user and admins have access, one to be a dropbox where other users can put files but not access, and one to be completely public where other users can put files but not delete them. A huge thank you to Matthew Beattie on Technet for writing this script! I can now put the vb book away.. for now :-) The sample user file and script are attached. Best Regards, Joe userfolder_3sub.vbs UserNames.txt

Ok, I have a script here that creates the folders, now does anyone have experience with calcs that will help me set permissions ? Option Explicit Dim objFSO On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") ProcessScript If Err.Number <> 0 Then Wscript.Quit End If On Error Goto 0 '------------------------------------------------------------------------------------------------- 'Functions Processing Section '------------------------------------------------------------------------------------------------- 'Name : ProcessScript -> Primary Function that controls all other script processing. 'Parameters : None -> 'Return : None -> '------------------------------------------------------------------------------------------------- Function ProcessScript Dim userNames, userName Dim folderSpec, folderNames, folderName folderSpec = "C:\Data\Homedrives" userNames = Array("user1","user2","user3") folderNames = Array("Public","Private","Dropbox") '---------------------------------------------------------------------------------------------- 'Create the folder structure for each user. '---------------------------------------------------------------------------------------------- For Each userName In userNames Do If Not CreateFolder(folderSpec & "\" & userName) Then Exit Do End If For Each folderName In folderNames Do If Not CreateFolder(folderSpec & "\" & userName & "\" & folderName) Then Exit Do End If Loop Until True Next Loop Until True Next End Function '------------------------------------------------------------------------------------------------- 'Name : CreateFolder -> Recursive Function to Create a directory structure or single folder. 'Parameters : folderSpec -> Path of folder\folders to create. 'Return : CreateFolder -> Returns True if the directory structure was successfully created otherwise False. '------------------------------------------------------------------------------------------------- Function CreateFolder(folderSpec) CreateFolder = False If Not objFSO.FolderExists(folderSpec) Then If InStrRev(folderSpec, "\") <> 0 Then If Not CreateFolder(Left(folderSpec, InStrRev(folderSpec, "\") - 1)) Then Exit Function End If End If On Error Resume Next objFSO.CreateFolder folderSpec If Err.Number <> 0 Then Exit Function End If On Error Goto 0 End If CreateFolder = True End Function

David, If you are wanting to quote me please note the entire posting was this: David, I am not up on setting cacls but if it would work would be happy to try. Is this how you set your users folder up? I am trying to get examples of how other Network Managers go about setting up their users folders. If you don't have experience with including cacls in scripting, please accept my thanks for your time and I will let you know what comes of this.

I have this nice script now thanks to Matthew Beattie on Technet Forums What I now need is to get the permissions set for each folder. Any scripting gurus out there willing to take a look? Thank you thank you for your help and time!! Option Explicit Dim objFSO On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") ProcessScript If Err.Number <> 0 Then Wscript.Quit End If On Error Goto 0 '------------------------------------------------------------------------------------------------- 'Functions Processing Section '------------------------------------------------------------------------------------------------- 'Name : ProcessScript -> Primary Function that controls all other script processing. 'Parameters : None -> 'Return : None -> '------------------------------------------------------------------------------------------------- Function ProcessScript Dim userNames, userName Dim folderSpec, folderNames, folderName folderSpec = "C:\Data\Homedrives" userNames = Array("user1","user2","user3") folderNames = Array("Public","Private","Dropbox") '---------------------------------------------------------------------------------------------- 'Create the folder structure for each user. '---------------------------------------------------------------------------------------------- For Each userName In userNames Do If Not CreateFolder(folderSpec & "\" & userName) Then Exit Do End If For Each folderName In folderNames Do If Not CreateFolder(folderSpec & "\" & userName & "\" & folderName) Then Exit Do End If Loop Until True Next Loop Until True Next End Function '------------------------------------------------------------------------------------------------- 'Name : CreateFolder -> Recursive Function to Create a directory structure or single folder. 'Parameters : folderSpec -> Path of folder\folders to create. 'Return : CreateFolder -> Returns True if the directory structure was successfully created otherwise False. '------------------------------------------------------------------------------------------------- Function CreateFolder(folderSpec) CreateFolder = False If Not objFSO.FolderExists(folderSpec) Then If InStrRev(folderSpec, "\") <> 0 Then If Not CreateFolder(Left(folderSpec, InStrRev(folderSpec, "\") - 1)) Then Exit Function End If End If On Error Resume Next objFSO.CreateFolder folderSpec If Err.Number <> 0 Then Exit Function End If On Error Goto 0 End If CreateFolder = True End Function '-------------------------------------------------------------------------------------------------

David, I am not up on setting cacls but if it would work would be happy to try. Is this how you set your users folder up? I am trying to get examples of how other Network Managers go about setting up their users folders. Thank you for your help! Sincerely, Joe

Yes it hosts the windows shares and also hosts printer shares for mac users.

I am looking to do all of this on the server. ExtremeZ-IP does not have that capability it only takes the shares and perms the server has for the windows shares and hosts them as afp shares. There has surely been someone else that has scripted out the creation of their users folders with some nested folders out there :-) Setting up a script that will create the folders below and set appropriate permissions for each folder. Username <-- All have list with domain admins as folder owner Public <-- All have read and write access on this folder Private <--only the user has access READ, WRITE, EDIT Dropbox <-- user has full access others can only write to this folder Best Regards, Joe

The source of the csv is output from a database. I am looking to create these folders, share them out on my windows server running 2008, and then pass along the smb shares for ExtremeZ-IP to handle sharing to the Mac users. This is my end goal. Cheers and thanks for your input! Joe

David, You are correct that this is a DC but the shares are created and live on this server. The server used to be 2003 STD but is the new server is SVR 2008 R2. With Server 2008 support for mac shares has gone away. We are using ExtremeZ-IP to handle the AFP shares. I can still make folders but the challenging part is that now to set perms, will need to do this with NTFS permissions. I thought I would throw this out on the edugeek forums to see what other admins use to make their student folders every year. So to be clear, the shares do live on this server, it is a windows box, and the end goal is to run a script against a csv file that will build a nested series of folders with specific rights for each user. Best Regards, Joe

David, That is correct. It can be done with a script I have accomplished simple folder creation in the past with software like dovestones, and had success in the past with creating not only the users folders and a nested heirarchy from a perl script. My perl script was for setting security on afp shares so it is now broken. Thank you for responding and will take a look at this resource. What is such a bummer is the script that i have not only made folders but also would parse out an nt file to feed into ad to create the accounts, build a bat file to run on the server to make their user folders, and then created a script to build their FirstClass email accounts. It was very slick and for 1100 accounts, pretty important :-) Thanks a lot for reading and replying. Your time it is much appreciated. Best Regards, Joe London

Hello All, I am absolutely new to this forum but feel like I have done due diligence and looked through for this particular issue. If you find something I missed my apologies.. So with that said... Looking to create a folder for each user with the following perms in place on each folder Username <-- All have list with domain admins as folder owner Public <-- All have read and write access on this folder Private <--only the user has access READ, WRITE, EDIT Dropbox <-- user has full access others can only write to this folder I would like to be able to script this but am open to software solutions as well. My previous solution of creating these folders with a good old perl script don't work any longer on server 2008 help!! I would even be fine with getting the basics of how to append to my initial script and be able to add the command to my broken perl script. On my pre Server 2008 boxes, could create and set up these shares but alas now it bombs out. mkdir E:\Faculty\username macfile directory /path:E:\Faculty\username /owner:"USAdmins" /group:username /permissions:11111111010 mkdir E:\Faculty\username\public macfile directory /path:E:\Faculty\username\public /owner:"USAdmins" /group:username /permissions:11111111010 mkdir E:\Faculty\username\private macfile directory /path:E:\Faculty\username\private /owner:"USAdmins" /group:username /permissions:11111100010 mkdir E:\Faculty\username\dropbox macfile directory /path:E:\Faculty\username\dropbox /owner:"USAdmins" /group:username /permissions:11111100110mkdir E:\Faculty\username macfile directory /path:E:\Faculty\username /owner:"USAdmins" /group:username /permissions:11111111010 mkdir E:\Faculty\username\public macfile directory /path:E:\Faculty\username\public /owner:"USAdmins" /group:username /permissions:11111111010 mkdir E:\Faculty\username\private macfile directory /path:E:\Faculty\username\private /owner:"USAdmins" /group:username /permissions:11111100010 mkdir E:\Faculty\username\dropbox macfile directory /path:E:\Faculty\username\dropbox /owner:"USAdmins" /group:username /permissions:11111100110 while macfile is no longer a usable or recognizable command for Windows 2008 with the support of AFP going away, I would appreciate the commands to set the permissions for the SMB share. We are now using ExtremeZ-IP and it wil handle the sharing portion for our MAC users. Thank you for your time!! Joe