Тема: 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