Здравствуйте. Прошу помочь в разрешении проблемы: не получается назначить права на службу. Где я ошибся в коде?
Код:
#include <Array.au3>
#include <Permissions.au3>
#include <Security.au3>
#RequireAdmin
Opt('MustDeclareVars',1)
Opt('TrayIconHide',1)
_InitiatePermissionResources()
Global $gDACL
Global $gPerm[0][3]
Global $tAr
Global $tAr = _Security__LookupAccountName('Test')
;~ Global $tPerm[1][3]=[[$tAr[0],1,131581]]
Global $tPerm[1][3]=[['Test',1,983551]]
;~ _ArrayDisplay($tPerm,'$tPerm')
If _SetObjectPermissions('AdobeARMservice', $SE_SERVICE, $tPerm) = 1 Then ConsoleWrite('Good'&@error&@CRLF)
If _SetObjectPermissions('AdobeARMservice', $SE_SERVICE, $tPerm) <>1 Then ConsoleWrite('Bad '&@error&@CRLF)
$gDACL = _GetObjectDACL('\\'&@ComputerName&'\AdobeARMservice',$SE_SERVICE)
_MergeDaclToArray($gDACL, $gPerm)
For $i=0 To UBound($gPerm)-1
$gPerm[$i][0] = _Security__SidToStringSid($gPerm[$i][0])
$tAr = _Security__LookupAccountSid($gPerm[$i][0])
$gPerm[$i][0] = $tAr[1]&'\'&$tAr[0] ; Domain\Username
Next
_ArrayDisplay($gPerm,'$gPerm')
_ClosePermissionResources()