Share Permissions 1

[w33mhz]

Does anyone know how to modify share permissions on a folder or set of folders? I know cacls and xcacls will do NTFS permissions, but will they do share permissions?

 

[w33mhz]

nevermind I found a post

http://www.tek-tips.com/viewthread.cfm?qid=1158235&page=1

 

[markdmac]

You can also more intuitively grant users access to shares with NET SHARE.

net share AccountingDept=D:\Departments\Accounting

net share AccountingDept=D:\Departments\Accounting /GRANT:domain\Accountants,FULL /GRANT:domain\Auditors,READ

I think the above is a lot easier to script.

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[markdmac]

A sample of how you might script this. You just need to edit the parts in [red]red[/red]

[green]
'==========================================================================
'
' NAME: CreateShareWithPermissions.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL   : [URL unfurl="true"]http://www.thespidersparlor.com[/URL]    
' COPYRIGHT (C) 2009 All rights reserved
' DATE  : 5/23/2009
'
' COMMENT: Creates a new share and assigns permissions.
'
'
'    THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
'    ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
'    THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
'    PARTICULAR PURPOSE.
'
'    IN NO EVENT SHALL THE SPIDER'S PARLOR AND/OR ITS RESPECTIVE SUPPLIERS 
'    BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY
'    DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
'    WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
'    ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
'    OF THIS CODE OR INFORMATION.
'==========================================================================

'Declare the arrays[/green]
Dim FullPermArray
Dim ReadPermArray
[green]
'Populate the data in the arrays[/green]
FullPermArray=Array([red]"domain\accounting","domain\acctmgr"[/red])
ReadPermArray=Array([red]"domain\auditors"[/red])
[green]
'Set our folder path and share name[/green]
strFolderPath = "[red]D:\DepartmentShares\Accounting"[/red]
strShareName = "[red]Accounting"[/red]
[green]
'Don't edit any further
'Create our Shell Object[/green]
Dim WshShell
Set WshShell = CreateObject("wscript.Shell")
On Error Resume Next
[green]
'Build our permissions string for full permissions[/green]
For Each User In FullPermArray[green]
        'Comment out the next line if there are no Full Perm users[/green]
	Perms = Perms & "/Grant:" & User & ",Full "
Next[green]
'Build our permissions string for read permissions[/green]
For Each User In ReadPermArray[green]
        'Comment out the next line if there are no READ Perm users[/green]
	Perms = Perms & "/Grant:" & User & ",Read "
Next[green]
On Error GoTo 0
'Execute the command[/green]
WshShell.Run ("CMD.EXE /C NET SHARE " & strShareName & "=" & strFolderPath & " " & Perms)

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[w33mhz]

Fantastic, that is much better thanks!