; ----------------------------------------------------------------------------
; Создание Шары и настройка разрешений
; ----------------------------------------------------------------------------
#Include <Array.au3>
; *****************************
; Настройка
; *****************************
$comp_name = "." ; имя компьютера @ComputerName или его IP адресс (.(точка) - локальный хост)
$domain_name = "domen name" ; Имя домена
$groups = "group name" ; Группа
Const $Share_FullAccessMask = 2032127 ; = "Full Control" + "Change" + "Read"
Const $Share_ModifyAccessMask = 1245631 ; = "Change" + "Read"
Const $Share_ReadOnlyAccessMask = 1180095 ; = "Read"
$Rights = $Share_FullAccessMask ; Объявляем права
; передаваемые параметры: 1 - локальный путь на сервере, 2 - название шары, 3 - список групп, 4 - пояснение к шаре
sharesec ("c:\test", "Folder_TEST_NAME", $groups, $rights, "Для тестовых целей")
Exit
; * ПРОЦЕДУРА : создание шары
;
Func sharesec($Fname,$shr,$accounts, $permission, $info)
Local $Return
Dim $Services, $SecDescClass, $SecDesc
Dim $Trustee, $ACE
Dim $Share, $InParam, $Network
Dim $xDict, $i
$wmiserv = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $comp_name & "\root\cimv2")
; $target_share = $wmiserv.Get("Win32_Share")
$xDict = ObjCreate("Scripting.Dictionary")
$Services = ObjGet("WINMGMTS:{impersonationLevel=impersonate,(Security)}!\\" & $comp_name & "\ROOT\CIMV2")
$SecDescClass = $Services.Get("Win32_SecurityDescriptor")
$SecDesc = $SecDescClass.SpawnInstance_()
;For $i = 0 to UBound ($accounts)
; Создаем access control entry (ACE)
$Trustee = SetGroupTrustee($domain_name, $accounts) ; Узнаем SID группы или аккаунта
$ACE = $Services.Get("Win32_Ace").SpawnInstance_ ; Создание пустой структуры ACE и Заполняю поля ACE
$ACE.Properties_.Item("AccessMask") = $permission ; Права
$ACE.Properties_.Item("AceFlags") = 3
$ACE.Properties_.Item("AceType") = 0
$ACE.Properties_.Item("Trustee") = $Trustee
$xDict.Add ($accounts, $ACE) ; Ключу $accounts привязываем значение $ACE
$SecDesc.Properties_.Item("DACL") = $xDict.Items ; Добавляем в DACL строку $ACE
; Создаем непосредственно Шару
$Share = $Services.Get("Win32_Share")
$InParam = $Share.Methods_("Create").InParameters.SpawnInstance_()
$InParam.Properties_.Item("Access") = $SecDesc
$InParam.Properties_.Item("Description") = $info
$InParam.Properties_.Item("Name") = $shr
$InParam.Properties_.Item("Path") = $Fname
; $InParam.Properties_.Item("MaximumAllowed") = 5
$InParam.Properties_.Item("Type") = 0
$Share.ExecMethod_ ("Create", $InParam)
Return $Return
EndFunc
; *****************************
; * Функция : узнаем SID группы
; *****************************
Func SetGroupTrustee($strDomain, $strName)
Local $Return
Dim $objTrustee, $Spawn, $account, $accountSID
$objTrustee = ObjGet("Winmgmts:{impersonationlevel=impersonate}!root/cimv2:Win32_Trustee")
$Spawn=$objTrustee.Spawninstance_
$account = ObjGet("Winmgmts:{impersonationlevel=impersonate}!root/cimv2:Win32_Group.Name='" & $strName & "',Domain='" & $strDomain &"'") ; Для определения Групп пользователей
;$account = ObjGet("Winmgmts:{impersonationlevel=impersonate}!root/cimv2:Win32_UserAccount.Name='" & $strName & "',Domain='" & $strDomain &"'") ; Для определения Пользователей
$accountSID = ObjGet("Winmgmts:{impersonationlevel=impersonate}!root/cimv2:Win32_SID.SID='" & $account.SID &"'")
$Spawn.Domain = $strDomain
$Spawn.Name = $strName
$Spawn.Properties_.item("SID") = $accountSID.BinaryRepresentation
$Return = $Spawn
Return $Return
EndFunc
