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

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

2016-01-29T20:29:57Z

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

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

2016-01-27T12:50:37Z

я склепал следующее) у меня на сетевой шаре создается каталог с логином в домене, если его нет и на рабочем столе ссыль к этому каталогу с названием 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

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

2010-12-28T04:17:46Z

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

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

2010-12-27T04:29:22Z

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

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

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

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

2010-12-24T08:48:22Z

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

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

2010-12-24T06:46:00Z

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

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

2010-12-24T05:39:06Z

Сразу говорю я в 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