Script to share multiple folders

[originofsymmetry]

Hey all, I'm in need of a script that I can use to share alot of folders all in one directory. I have the following for example:
net share <sharename>=<path> /CACHE:no /GRANT:domain\user,READ|CHANGE|FULL

but obviously this requires me to type in each folder name, anyone have a script for automating this? Any help appreciated.

[kmount]

For each loop?

[SYNACK]

how good are you with VBS?

enumerate all subfolders in a folder:
Scripting Files and Folders using VBScript

use a for each loop that runs a command for each returned folder name
How to: Execute a file/program in VBScript - CRM Developer

dim folderpath
folderpath = "C\folder"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(folderpath)
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
    Wscript.Echo objSubfolder.Name
    Run "net share " & objSubfolder.Name & "=" & folderpath & "\" & objSubfolder.Name & " /CACHE:no /GRANT:domain\user,READ|CHANGE|FULL"
Next
Sub Run(ByVal sFile)
Dim shell

    Set shell = CreateObject("WScript.Shell")
    shell.Run Chr(34) & sFile & Chr(34), 1, false
    Set shell = Nothing
End Sub

Haven't tested it but it should be a good start if it does not work straight away.

[K.C.Leblanc]

Other way to do this if you're not very confident of your scripting it to use a spread. Use the CONCATENATE function to combine the variables with the rest of the code.

[Ric_]

Why don't you just share the root of all these folders? With the correct permissions, people would only be able to get into what they should be able to anyway.

If mapping drives off these shares, it is possible to map a subdirectory of a share as a drive letter too.

[box_l]

i use this:

FOR /D %%G IN (*.*) DO NET SHARE "%%G=%CD%\%%G" /GRANT:Everyone,FULL /CACHE:None

yours might look like this:

FOR /D %%G IN (*.*) DO net share <sharename>=<path> /CACHE:no /GRANT:domain\user,READ|CHANGE|FULL

run this bat file from the folder containing folders to be shared.
or *.* probably will not work

BoX

[originofsymmetry]

Thanks for these scripts guys, will try them out when I get home tonight

[originofsymmetry]

i use this:

FOR /D %%G IN (*.*) DO NET SHARE "%%G=%CD%\%%G" /GRANT:Everyone,FULL /CACHE:None

yours might look like this:

FOR /D %%G IN (*.*) DO net share <sharename>=<path> /CACHE:no /GRANT:domain\user,READ|CHANGE|FULL

run this bat file from the folder containing folders to be shared.
or *.* probably will not work

BoX

Thanks for that BoX, worked a treat

[box_l]

no problem.