This by request Vbs script will create multiple shares on the server specified. When the shares have been created you need to modify the effective user or group permissions for the newly created shares.
Vbs Script:
strShareName = InputBox ("Enter Share Name To Create")
strShareA = InputBox ("Enter First Directory Name")
strShareB = InputBox ("Enter Next Directory Name")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set strShareName = objFSO.CreateFolder(strShareName)
Set strShare = strShareName.SubFolders.Add(strShareA)
Set strShare = strShareName.SubFolders.Add(strShareB)
No Comments