[Dreamer_UFA]

Использование сценария Xcacls.vbs для изменения разрешений NTFS

Основные SIDы в Windows

[Iska]

Сценарий Create a Shared Folder and Assign Share Permissions

[A-n_G_e-L]

прошу прощения Xcalcs меняет разрешения во вкладке http://forum.oszone.net/attachment.p...1&d=1426431111 а мне нада http://forum.oszone.net/attachment.p...1&d=1426431111.

скрипт от Iska выдаёт ошибку на set account = getObject("Winmgmts:{impersonationlevel=impersonate}!root/cimv2:Win32_Group.Name='" & strName & "',Domain='" & strDomain &"'") если поставить on error resume nex папку создаёт а права недаёт, непойму в чем дело

[Iska]

выдаёт ошибку на set account = getObject("Winmgmts:{impersonationlevel=impersonate}!root/cimv2:Win32_Group.Name='" & strName & "',Domain='" & strDomain &"'") »

Какую? Существует ли указанная группа безопасности в указанном домене?

если поставить on error resume nex папку создаёт а права недаёт, непойму в чем дело »

Именно потому, что поставили «on error resume next».

[A-n_G_e-L]

разобрался со скриптом, но он опять же делает права не втой вкладке (

[Iska]

разобрался со скриптом, но он опять же делает права не втой вкладке ( »

Почему у меня в той?!

Скрытый текст

Код:

…
Call sharesec ("C:\Robot", "Robot", "SCOT SHARE", "Опытные пользователи")
…
…
Set Trustee = SetGroupTrustee("MachineName", account) 'Replace ACME with your domain name.
…
…

В данном случае — локальная группа и имя машины: по причине отсутствия домена.

[A-n_G_e-L]

Помогите разобраться(
кода вызываю на локальном коспе так: fnSetNewShare ".","C:\local foder","folder","des" всё фурыкает на локальном компе всё создаёт меняет назначает, но стоит ввести удалёную машину в домене : fnSetNewShare "asu35","C:\local foder","folder","des" // ничего непроисходит(((( где затуп ?

Код:

Function fnSetNewShare(sComp,sFN,sUsr,sDesc,sShareN)
Set Services = GetObject("winmgmts:{impersonationLevel=impersonate,(Security)}!\\"&sComp&"\root\cimv2")
Set SecDescClass = Services.Get("Win32_SecurityDescriptor")
Set SecDesc = SecDescClass.SpawnInstance_()
Set colWinAcc = Services.ExecQuery("SELECT * FROM Win32_ACCOUNT WHERE Name='" & sUsr & "'")
If colWinAcc.Count => 1 Then ' Wscript.echo("User " & sUsr & "Not Found - quitting") : wscript.quit
For Each refItem in colWinAcc : Set refSID = Services.Get("Win32_SID='" & refItem.SID & "'") : Next
Set refTrustee = Services.Get("Win32_Trustee").spawnInstance_()
refTrustee.Domain = refSID.ReferencedDomainName
refTrustee.Name = refSID.AccountName
refTrustee.SID = refSID.BinaryRepresentation
refTrustee.SidLength = refSID.SidLength
refTrustee.SIDString = refSID.SID
Set ACE = Services.Get("Win32_Ace").SpawnInstance_
ACE.Properties_.Item("AccessMask") = 1179817	'2032127
ACE.Properties_.Item("AceFlags") = 3
ACE.Properties_.Item("AceType") = 1				'0=allow access		1=deny access
ACE.Properties_.Item("Trustee") = refTrustee
SecDesc.Properties_.Item("DACL") = Array(ACE)
Set Share = Services.Get("Win32_Share")
Set InParam = Share.Methods_("Create").InParameters.SpawnInstance_()
InParam.Properties_.Item("Access") = SecDesc
InParam.Properties_.Item("Description") = sDesc
InParam.Properties_.Item("Name") = sShareN
InParam.Properties_.Item("Path") = "'" & sFN & "'"
InParam.Properties_.Item("Type") = 0
Set outParams=Share.ExecMethod_("Create", InParam)
End If
End Function

[Iska]

Помогите разобраться( »

Разберитесь с тем кодом, ссылку на который я приводил выше.

кода вызываю на локальном коспе так: fnSetNewShare ".","C:\local foder","folder","des" всё фурыкает на локальном компе всё создаёт меняет назначает, »

Не верю. В функции пять формальных параметров:

Код: Function fnSetNewShare(sComp,sFN,sUsr,sDesc,sShareN)

а Вы якобы вызываете её с четырьмя фактическими параметрами.

// ничего непроисходит »

У Вас по-прежнему в коде присутствует «On Error Resume Next»?

Update: Ну, и до кучи — бред с:

Код:

InParam.Properties_.Item("Path") = "'" & sFN & "'"

Не пойдёт лошадь под землю, мил человек не будет исполняться такой код. Не нужны там обрамляющие одинарные кавычки для пути. От слова «совсем».

[A-n_G_e-L]

fnSetNewShare ".","C:\local foder","User domena","folder","des"
прошу прощения 1 параметр забыл сдесь написать...
в вашем примере я немогу догнать с построением Trustee
SetGroupTrustee("домен", "юзер доменный") - так?
если так то у меня несрабатывает(