Программная настройка DCOM

ea[eaCounter].grfAccessMode= GRANT_ACCESS;

RegCreateKeyEx(HKEY_LOCAL_MACHINE,
                            str3,
                            0,
                            NULL,
                            NULL,  
                            KEY_ALL_ACCESS,
                            &sa,
                            &hkSub1,
                            NULL);

if(!GetSecurityDescriptorDacl(pSD, &present, &dacl, &defaultDACL)){
      err = GetLastError();
      goto clear;
  }
  if(present && (dacl != NULL))
    daclSize = dacl->AclSize;
  else
    daclSize = 0;
 
  if(!GetSecurityDescriptorSacl(pSD, &present, &sacl, &defaultSACL)){
      err = GetLastError();
      goto clear;
  }
  if(present && (sacl != NULL))
    saclSize = sacl->AclSize;
  else
    saclSize = 0;
 
  if(!GetSecurityDescriptorOwner(pSD, &ownerSID, &systemDefault)){
    err = GetLastError();
     goto clear;
  }
  ownerSIDSize = GetLengthSid(&ownerSID);
 
  if(!GetSecurityDescriptorGroup(pSD, &groupSID, &systemDefault)){
    err = GetLastError();
     goto clear;
  }
  groupSIDSize = GetLengthSid(&groupSID);
BuildExplicitAccessWithName(&eaDacl,
                              Principal,
                              COM_RIGHTS_EXECUTE,
                              SET_ACCESS,
                              NO_INHERITANCE);
 
  if(SetEntriesInAcl(1,&eaDacl,dacl,&newDACL)!= ERROR_SUCCESS)
  {
      err = GetLastError();
      goto clear;
  }
  BuildExplicitAccessWithName(&eaSacl,
                              Principal,
                              COM_RIGHTS_EXECUTE,
                              SET_AUDIT_SUCCESS,
                              NO_INHERITANCE);
   if(SetEntriesInAcl(1,&eaSacl,sacl,&newSACL)!= ERROR_SUCCESS)
  {
      err = GetLastError();
      goto clear;
  }
 
  if(!MakeAbsoluteSD(pSD, sdAbsolute, &descriptorSize, dacl, &daclSize, sacl,
                     &saclSize, ownerSID, &ownerSIDSize, groupSID, &groupSIDSize))
    if(GetLastError() != ERROR_INSUFFICIENT_BUFFER){
      err = GetLastError();
       goto clear;
    }
 
  sdAbsolute = (PSECURITY_DESCRIPTOR)new char[SECURITY_DESCRIPTOR_MIN_LENGTH];
 
  if(!InitializeSecurityDescriptor(sdAbsolute, SECURITY_DESCRIPTOR_REVISION)){
      err = GetLastError();
       goto clear;
  }
 
  if(!MakeAbsoluteSD(pSD, sdAbsolute, &descriptorSize, dacl, &daclSize, sacl,
               &saclSize, ownerSID, &ownerSIDSize, groupSID, &groupSIDSize)){
      err = GetLastError();
      goto clear;
  }
 
  if(!SetSecurityDescriptorDacl(sdAbsolute, TRUE, newDACL, FALSE)){
     err = GetLastError();
     goto clear;
  }
   if(!SetSecurityDescriptorSacl(sdAbsolute, TRUE, newSACL, FALSE)){
     err = GetLastError();
     goto clear;
  }
 
  MakeSelfRelativeSD(sdAbsolute, sdSelfRelative, &secDescSize);
  sdSelfRelative = (PSECURITY_DESCRIPTOR)new char[secDescSize];
 
  if(!MakeSelfRelativeSD(sdAbsolute, sdSelfRelative, &secDescSize)){
     err = GetLastError();
     goto clear;
  }