|
Hello
What's wrong whith this script ?
I try to change permission on a registry key and
all subkeys.
This script do nothing but take all memory.
If I use the command Set and not SetRecurse, it
seems to work (not on the subkeys) but the change are not "saved".
$Dir = new
Win32::Perms('HKEY_LOCAL_MACHINE\\SOFTWARE\\SIH') || die;
$Dir->Add
({Account=>'UsrTest01', Domain=> 'MYDOMAIN', Type => DENY, Mask=>
FULL , Flag=> CONTAINER } );
$Dir->Add
({Account=>'UsrTest01', Domain=> 'MYDOMAIN', Type => DENY, Mask=>
FULL , Flag=> OBJECT_INHERIT_ACE } );
$Dir->SetRecurse('HKEY_LOCAL_MACHINE\\SOFTWARE\\SIH');
# $Dir->Set();
$Dir->Dump;
Thanks in advance,
Tony.
|
