1

Тема: VBS: Создание папки, установка разрешений NTFS

Сразу говорю я в VBS мало понимаю.
Помогите пожалуйста доделать скрипт.

был написан скрипт для монтирования шары, алгоритм примерно такой
проверяется наличие папки
если папка существует подключается сетевой диск
если нет, создается папка и подключается диск

Необходимо добавить установку разрешений ntfs, в частности полный доступ владельцу и администраторам(группе).

Изначальный скрипт:

Dim WShell, WNetwork
Set WShell = WScript.CreateObject("WScript.Shell") 
Set WNetwork = WScript.CreateObject("WScript.Network") 
Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
DestFolder = "\\server\share\" & WShell.ExpandEnvironmentStrings("%USERNAME%")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = CreateObject("WScript.Network")
If Not FSO.FolderExists(DestFolder) Then    
    objFSO.CreateFolder DestFolder
    WNetwork.MapNetworkDrive "U:", DestFolder
    WScript.Quit
Else
    WNetwork.MapNetworkDrive "U:", DestFolder
    WScript.Quit
End If

2

Re: VBS: Создание папки, установка разрешений NTFS

вот Вам в помощь...

Времени не хватает... :-(

3

Re: VBS: Создание папки, установка разрешений NTFS

А здесь обсуждался утилитный способ.

4 (изменено: VitAliS, 2010-12-27 08:50:59)

Re: VBS: Создание папки, установка разрешений NTFS

предлагаю такой способ:
Для папки в которой пользовательские шары (\\server\share) устанавливаем следующие разрешения:
а. только для этой папки:
  - SYSTEM: полный доступ
  - Администраторы - полный доступ
  - Пользователи - разрешить создание папок, просмотр содержимого и не разрешать удаление и смену прав
б. для подпапок и файлов:
  - SYSTEM: полный доступ
  - Администраторы - полный доступ
  - Создатель/владелец - полный доступ

вот собственно и всё

ну а после этого можно запускать Ваш скрипт

5

Re: VBS: Создание папки, установка разрешений NTFS

Всем большое спасибо.

6 (изменено: artuhinav, 2016-01-27 16:53:33)

Re: VBS: Создание папки, установка разрешений NTFS

я склепал следующее) у меня на сетевой шаре создается каталог с логином в домене, если его нет и на рабочем столе ссыль к этому каталогу с названием scan, ну и при запуске скрипта вылазит инструкция для них в виде текстового файла....делал это для общего доступа, они у меня сканируют через FTP в общую барахолку)) прост пользователей около 100...решил так упростить себе)

Set objNet = WScript.CreateObject("WScript.Network")
Set FSO = CreateObject("scripting.filesystemobject")

sUserName = objNet.UserName
sDomainName= objNet.UserDomain

folderToCheckFor = "\\тут путь сканов\" & sUserName
If (FSO.FolderExists(folderToCheckFor)) = False Then
FSO.CreateFolder(folderToCheckFor)
Set WshShell = WScript.CreateObject("WScript.Shell")
Call WshShell.Run("CACLS " & folderToCheckFor & " /T /E /C /G " & sDomainName & "\" & sUserName & ":F",2,True)
Call WshShell.Run("CACLS " & folderToCheckFor & " /T /E /C /G " & sDomainName & "\Domain Admins:F",2,True)
Call WshShell.Run("CACLS " & folderToCheckFor & " /T /E /C /G " & sDomainName & "\GLOBAL_SUPERVISORS:F",2,True)
Set WshShell = nothing
End If

Set FSO = nothing
Set objNet = nothing

SET WSHShell = WScript.CreateObject("WScript.Shell")
Windows=wshShell.ExpandEnvironmentStrings ("%SystemRoot%")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
FileName = DesktopPath + "\scan.lnk"
if  not(FSO.FileExists(FileName))  Then
   Set MyShortcut = WSHShell.CreateShortcut(DesktopPath + "\scan.lnk")
   MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("\\путь где создать каталог\%username%")
   MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("")
   MyShortcut.HotKey = ("CTRL+ALT+N")
   MyShortcut.WindowStyle = 4
   MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("\\сюда закинул иконочку для красоты\sc.ico")
   MyShortcut.Save()
   notepad = windows+"\NotePad.exe \\тут лежит памятка для юзеров\help.txt"
   WSHShell.Run (notepad)
end if
Set WSHShell = Nothing
Set FSO = Nothing

7

Re: VBS: Создание папки, установка разрешений NTFS

artuhinav
Прочтите, очень полезно. Пока не будет сообщение не будет приведено в человеческий вид, то ответы будут удаляться.