source/rpc_server/srv_lsa_nt.c

   1 /*
   2  *  Unix SMB/CIFS implementation.
   3  *  RPC Pipe client / server routines
   4  *  Copyright (C) Andrew Tridgell              1992-1997,
   5  *  Copyright (C) Luke Kenneth Casson Leighton 1996-1997,
   6  *  Copyright (C) Paul Ashton                       1997,
   7  *  Copyright (C) Jeremy Allison                    2001, 2006.
   8  *  Copyright (C) Rafal Szczesniak                  2002,
   9  *  Copyright (C) Jim McDonough <jmcd@us.ibm.com>   2002,
  10  *  Copyright (C) Simo Sorce                        2003.
  11  *  Copyright (C) Gerald (Jerry) Carter             2005.
  12  *  Copyright (C) Volker Lendecke                   2005.
  13  *
  14  *  This program is free software; you can redistribute it and/or modify
  15  *  it under the terms of the GNU General Public License as published by
  16  *  the Free Software Foundation; either version 3 of the License, or
  17  *  (at your option) any later version.
  18  *
  19  *  This program is distributed in the hope that it will be useful,
  20  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  21  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22  *  GNU General Public License for more details.
  23  *
  24  *  You should have received a copy of the GNU General Public License
  25  *  along with this program; if not, see <http://www.gnu.org/licenses/>.
  26  */
  27
  28 /* This is the implementation of the lsa server code. */
  29
  30 #include "includes.h"
  31
  32 #undef DBGC_CLASS
  33 #define DBGC_CLASS DBGC_RPC_SRV
  34
  35 extern PRIVS privs[];
  36
  37 struct lsa_info {
  38         DOM_SID sid;
  39         uint32 access;
  40 };
  41
  42 const struct generic_mapping lsa_generic_mapping = {
  43         LSA_POLICY_READ,
  44         LSA_POLICY_WRITE,
  45         LSA_POLICY_EXECUTE,
  46         LSA_POLICY_ALL_ACCESS
  47 };
  48
  49 /***************************************************************************
  50  init_lsa_ref_domain_list - adds a domain if it's not already in, returns the index.
  51 ***************************************************************************/
  52
  53 static int init_lsa_ref_domain_list(TALLOC_CTX *mem_ctx,
  54                                     struct lsa_RefDomainList *ref,
  55                                     const char *dom_name,
  56                                     DOM_SID *dom_sid)
  57 {
  58         int num = 0;
  59
  60         if (dom_name != NULL) {
  61                 for (num = 0; num < ref->count; num++) {
  62                         if (sid_equal(dom_sid, ref->domains[num].sid)) {
  63                                 return num;
  64                         }
  65                 }
  66         } else {
  67                 num = ref->count;
  68         }
  69
  70         if (num >= MAX_REF_DOMAINS) {
  71                 /* index not found, already at maximum domain limit */
  72                 return -1;
  73         }
  74
  75         ref->count = num + 1;
  76         ref->max_size = MAX_REF_DOMAINS;
  77
  78         ref->domains = TALLOC_REALLOC_ARRAY(mem_ctx, ref->domains,
  79                                             struct lsa_DomainInfo, ref->count);
  80         if (!ref->domains) {
  81                 return -1;
  82         }
  83
  84         init_lsa_StringLarge(&ref->domains[num].name, dom_name);
  85         ref->domains[num].sid = sid_dup_talloc(mem_ctx, dom_sid);
  86         if (!ref->domains[num].sid) {
  87                 return -1;
  88         }
  89
  90         return num;
  91 }
  92
  93
  94 /*******************************************************************
  95  Function to free the per handle data.
  96  ********************************************************************/
  97
  98 static void free_lsa_info(void *ptr)
  99 {
 100         struct lsa_info *lsa = (struct lsa_info *)ptr;
 101
 102         SAFE_FREE(lsa);
 103 }
 104
 105 /***************************************************************************
 106  initialize a lsa_DomainInfo structure.
 107  ***************************************************************************/
 108
 109 static void init_dom_query_3(struct lsa_DomainInfo *r,
 110                              const char *name,
 111                              DOM_SID *sid)
 112 {
 113         init_lsa_StringLarge(&r->name, name);
 114         r->sid = sid;
 115 }
 116
 117 /***************************************************************************
 118  initialize a lsa_DomainInfo structure.
 119  ***************************************************************************/
 120
 121 static void init_dom_query_5(struct lsa_DomainInfo *r,
 122                              const char *name,
 123                              DOM_SID *sid)
 124 {
 125         init_lsa_StringLarge(&r->name, name);
 126         r->sid = sid;
 127 }
 128
 129 /***************************************************************************
 130  lookup_lsa_rids. Must be called as root for lookup_name to work.
 131  ***************************************************************************/
 132
 133 static NTSTATUS lookup_lsa_rids(TALLOC_CTX *mem_ctx,
 134                                 struct lsa_RefDomainList *ref,
 135                                 struct lsa_TranslatedSid *prid,
 136                                 uint32_t num_entries,
 137                                 struct lsa_String *name,
 138                                 int flags,
 139                                 uint32_t *pmapped_count)
 140 {
 141         uint32 mapped_count, i;
 142
 143         SMB_ASSERT(num_entries <= MAX_LOOKUP_SIDS);
 144
 145         mapped_count = 0;
 146         *pmapped_count = 0;
 147
 148         for (i = 0; i < num_entries; i++) {
 149                 DOM_SID sid;
 150                 uint32 rid;
 151                 int dom_idx;
 152                 const char *full_name;
 153                 const char *domain;
 154                 enum lsa_SidType type = SID_NAME_UNKNOWN;
 155
 156                 /* Split name into domain and user component */
 157
 158                 full_name = name[i].string;
 159                 if (full_name == NULL) {
 160                         return NT_STATUS_NO_MEMORY;
 161                 }
 162
 163                 DEBUG(5, ("lookup_lsa_rids: looking up name %s\n", full_name));
 164
 165                 /* We can ignore the result of lookup_name, it will not touch
 166                    "type" if it's not successful */
 167
 168                 lookup_name(mem_ctx, full_name, flags, &domain, NULL,
 169                             &sid, &type);
 170
 171                 switch (type) {
 172                 case SID_NAME_USER:
 173                 case SID_NAME_DOM_GRP:
 174                 case SID_NAME_DOMAIN:
 175                 case SID_NAME_ALIAS:
 176                 case SID_NAME_WKN_GRP:
 177                         DEBUG(5, ("init_lsa_rids: %s found\n", full_name));
 178                         /* Leave these unchanged */
 179                         break;
 180                 default:
 181                         /* Don't hand out anything but the list above */
 182                         DEBUG(5, ("init_lsa_rids: %s not found\n", full_name));
 183                         type = SID_NAME_UNKNOWN;
 184                         break;
 185                 }
 186
 187                 rid = 0;
 188                 dom_idx = -1;
 189
 190                 if (type != SID_NAME_UNKNOWN) {
 191                         sid_split_rid(&sid, &rid);
 192                         dom_idx = init_lsa_ref_domain_list(mem_ctx, ref, domain, &sid);
 193                         mapped_count++;
 194                 }
 195
 196                 init_lsa_translated_sid(&prid[i], type, rid, dom_idx);
 197         }
 198
 199         *pmapped_count = mapped_count;
 200         return NT_STATUS_OK;
 201 }
 202
 203 /***************************************************************************
 204  lookup_lsa_sids. Must be called as root for lookup_name to work.
 205  ***************************************************************************/
 206
 207 static NTSTATUS lookup_lsa_sids(TALLOC_CTX *mem_ctx,
 208                                 struct lsa_RefDomainList *ref,
 209                                 struct lsa_TranslatedSid3 *trans_sids,
 210                                 uint32_t num_entries,
 211                                 struct lsa_String *name,
 212                                 int flags,
 213                                 uint32 *pmapped_count)
 214 {
 215         uint32 mapped_count, i;
 216
 217         SMB_ASSERT(num_entries <= MAX_LOOKUP_SIDS);
 218
 219         mapped_count = 0;
 220         *pmapped_count = 0;
 221
 222         for (i = 0; i < num_entries; i++) {
 223                 DOM_SID sid;
 224                 uint32 rid;
 225                 int dom_idx;
 226                 const char *full_name;
 227                 const char *domain;
 228                 enum lsa_SidType type = SID_NAME_UNKNOWN;
 229
 230                 /* Split name into domain and user component */
 231
 232                 full_name = name[i].string;
 233                 if (full_name == NULL) {
 234                         return NT_STATUS_NO_MEMORY;
 235                 }
 236
 237                 DEBUG(5, ("init_lsa_sids: looking up name %s\n", full_name));
 238
 239                 /* We can ignore the result of lookup_name, it will not touch
 240                    "type" if it's not successful */
 241
 242                 lookup_name(mem_ctx, full_name, flags, &domain, NULL,
 243                             &sid, &type);
 244
 245                 switch (type) {
 246                 case SID_NAME_USER:
 247                 case SID_NAME_DOM_GRP:
 248                 case SID_NAME_DOMAIN:
 249                 case SID_NAME_ALIAS:
 250                 case SID_NAME_WKN_GRP:
 251                         DEBUG(5, ("init_lsa_sids: %s found\n", full_name));
 252                         /* Leave these unchanged */
 253                         break;
 254                 default:
 255                         /* Don't hand out anything but the list above */
 256                         DEBUG(5, ("init_lsa_sids: %s not found\n", full_name));
 257                         type = SID_NAME_UNKNOWN;
 258                         break;
 259                 }
 260
 261                 rid = 0;
 262                 dom_idx = -1;
 263
 264                 if (type != SID_NAME_UNKNOWN) {
 265                         DOM_SID domain_sid;
 266                         sid_copy(&domain_sid, &sid);
 267                         sid_split_rid(&domain_sid, &rid);
 268                         dom_idx = init_lsa_ref_domain_list(mem_ctx, ref, domain, &domain_sid);
 269                         mapped_count++;
 270                 }
 271
 272                 /* Initialize the lsa_TranslatedSid3 return. */
 273                 trans_sids[i].sid_type = type;
 274                 trans_sids[i].sid = sid_dup_talloc(mem_ctx, &sid);
 275                 trans_sids[i].sid_index = dom_idx;
 276         }
 277
 278         *pmapped_count = mapped_count;
 279         return NT_STATUS_OK;
 280 }
 281
 282 static NTSTATUS lsa_get_generic_sd(TALLOC_CTX *mem_ctx, SEC_DESC **sd, size_t *sd_size)
 283 {
 284         DOM_SID local_adm_sid;
 285         DOM_SID adm_sid;
 286
 287         SEC_ACE ace[3];
 288         SEC_ACCESS mask;
 289
 290         SEC_ACL *psa = NULL;
 291
 292         init_sec_access(&mask, LSA_POLICY_EXECUTE);
 293         init_sec_ace(&ace[0], &global_sid_World, SEC_ACE_TYPE_ACCESS_ALLOWED, mask, 0);
 294
 295         sid_copy(&adm_sid, get_global_sam_sid());
 296         sid_append_rid(&adm_sid, DOMAIN_GROUP_RID_ADMINS);
 297         init_sec_access(&mask, LSA_POLICY_ALL_ACCESS);
 298         init_sec_ace(&ace[1], &adm_sid, SEC_ACE_TYPE_ACCESS_ALLOWED, mask, 0);
 299
 300         sid_copy(&local_adm_sid, &global_sid_Builtin);
 301         sid_append_rid(&local_adm_sid, BUILTIN_ALIAS_RID_ADMINS);
 302         init_sec_access(&mask, LSA_POLICY_ALL_ACCESS);
 303         init_sec_ace(&ace[2], &local_adm_sid, SEC_ACE_TYPE_ACCESS_ALLOWED, mask, 0);
 304
 305         if((psa = make_sec_acl(mem_ctx, NT4_ACL_REVISION, 3, ace)) == NULL)
 306                 return NT_STATUS_NO_MEMORY;
 307
 308         if((*sd = make_sec_desc(mem_ctx, SECURITY_DESCRIPTOR_REVISION_1,
 309                                 SEC_DESC_SELF_RELATIVE, &adm_sid, NULL, NULL,
 310                                 psa, sd_size)) == NULL)
 311                 return NT_STATUS_NO_MEMORY;
 312
 313         return NT_STATUS_OK;
 314 }
 315
 316 #if 0   /* AD DC work in ongoing in Samba 4 */
 317
 318 /***************************************************************************
 319  Init_dns_dom_info.
 320 ***************************************************************************/
 321
 322 static void init_dns_dom_info(LSA_DNS_DOM_INFO *r_l, const char *nb_name,
 323                               const char *dns_name, const char *forest_name,
 324                               struct GUID *dom_guid, DOM_SID *dom_sid)
 325 {
 326         if (nb_name && *nb_name) {
 327                 init_unistr2(&r_l->uni_nb_dom_name, nb_name, UNI_FLAGS_NONE);
 328                 init_uni_hdr(&r_l->hdr_nb_dom_name, &r_l->uni_nb_dom_name);
 329                 r_l->hdr_nb_dom_name.uni_max_len += 2;
 330                 r_l->uni_nb_dom_name.uni_max_len += 1;
 331         }
 332
 333         if (dns_name && *dns_name) {
 334                 init_unistr2(&r_l->uni_dns_dom_name, dns_name, UNI_FLAGS_NONE);
 335                 init_uni_hdr(&r_l->hdr_dns_dom_name, &r_l->uni_dns_dom_name);
 336                 r_l->hdr_dns_dom_name.uni_max_len += 2;
 337                 r_l->uni_dns_dom_name.uni_max_len += 1;
 338         }
 339
 340         if (forest_name && *forest_name) {
 341                 init_unistr2(&r_l->uni_forest_name, forest_name, UNI_FLAGS_NONE);
 342                 init_uni_hdr(&r_l->hdr_forest_name, &r_l->uni_forest_name);
 343                 r_l->hdr_forest_name.uni_max_len += 2;
 344                 r_l->uni_forest_name.uni_max_len += 1;
 345         }
 346
 347         /* how do we init the guid ? probably should write an init fn */
 348         if (dom_guid) {
 349                 memcpy(&r_l->dom_guid, dom_guid, sizeof(struct GUID));
 350         }
 351
 352         if (dom_sid) {
 353                 r_l->ptr_dom_sid = 1;
 354                 init_dom_sid2(&r_l->dom_sid, dom_sid);
 355         }
 356 }
 357 #endif  /* AD DC work in ongoing in Samba 4 */
 358
 359
 360 /***************************************************************************
 361  _lsa_OpenPolicy2
 362  ***************************************************************************/
 363
 364 NTSTATUS _lsa_OpenPolicy2(pipes_struct *p,
 365                           struct lsa_OpenPolicy2 *r)
 366 {
 367         struct lsa_info *info;
 368         SEC_DESC *psd = NULL;
 369         size_t sd_size;
 370         uint32 des_access = r->in.access_mask;
 371         uint32 acc_granted;
 372         NTSTATUS status;
 373
 374
 375         /* map the generic bits to the lsa policy ones */
 376         se_map_generic(&des_access, &lsa_generic_mapping);
 377
 378         /* get the generic lsa policy SD until we store it */
 379         lsa_get_generic_sd(p->mem_ctx, &psd, &sd_size);
 380
 381         if(!se_access_check(psd, p->pipe_user.nt_user_token, des_access, &acc_granted, &status)) {
 382                 if (p->pipe_user.ut.uid != sec_initial_uid()) {
 383                         return status;
 384                 }
 385                 DEBUG(4,("ACCESS should be DENIED (granted: %#010x;  required: %#010x)\n",
 386                          acc_granted, des_access));
 387                 DEBUGADD(4,("but overwritten by euid == 0\n"));
 388         }
 389
 390         /* This is needed for lsa_open_account and rpcclient .... :-) */
 391
 392         if (p->pipe_user.ut.uid == sec_initial_uid())
 393                 acc_granted = LSA_POLICY_ALL_ACCESS;
 394
 395         /* associate the domain SID with the (unique) handle. */
 396         if ((info = SMB_MALLOC_P(struct lsa_info)) == NULL)
 397                 return NT_STATUS_NO_MEMORY;
 398
 399         ZERO_STRUCTP(info);
 400         sid_copy(&info->sid,get_global_sam_sid());
 401         info->access = acc_granted;
 402
 403         /* set up the LSA QUERY INFO response */
 404         if (!create_policy_hnd(p, r->out.handle, free_lsa_info, (void *)info))
 405                 return NT_STATUS_OBJECT_NAME_NOT_FOUND;
 406
 407         return NT_STATUS_OK;
 408 }
 409
 410 /***************************************************************************
 411  _lsa_OpenPolicy
 412  ***************************************************************************/
 413
 414 NTSTATUS _lsa_OpenPolicy(pipes_struct *p,
 415                          struct lsa_OpenPolicy *r)
 416 {
 417         struct lsa_info *info;
 418         SEC_DESC *psd = NULL;
 419         size_t sd_size;
 420         uint32 des_access= r->in.access_mask;
 421         uint32 acc_granted;
 422         NTSTATUS status;
 423
 424
 425         /* map the generic bits to the lsa policy ones */
 426         se_map_generic(&des_access, &lsa_generic_mapping);
 427
 428         /* get the generic lsa policy SD until we store it */
 429         lsa_get_generic_sd(p->mem_ctx, &psd, &sd_size);
 430
 431         if(!se_access_check(psd, p->pipe_user.nt_user_token, des_access, &acc_granted, &status)) {
 432                 if (geteuid() != 0) {
 433                         return status;
 434                 }
 435                 DEBUG(4,("ACCESS should be DENIED (granted: %#010x;  required: %#010x)\n",
 436                          acc_granted, des_access));
 437                 DEBUGADD(4,("but overwritten by euid == 0\n"));
 438                 acc_granted = des_access;
 439         }
 440
 441         /* associate the domain SID with the (unique) handle. */
 442         if ((info = SMB_MALLOC_P(struct lsa_info)) == NULL)
 443                 return NT_STATUS_NO_MEMORY;
 444
 445         ZERO_STRUCTP(info);
 446         sid_copy(&info->sid,get_global_sam_sid());
 447         info->access = acc_granted;
 448
 449         /* set up the LSA QUERY INFO response */
 450         if (!create_policy_hnd(p, r->out.handle, free_lsa_info, (void *)info))
 451                 return NT_STATUS_OBJECT_NAME_NOT_FOUND;
 452
 453         return NT_STATUS_OK;
 454 }
 455
 456 /***************************************************************************
 457  _lsa_EnumTrustDom - this needs fixing to do more than return NULL ! JRA.
 458  ufff, done :)  mimir
 459  ***************************************************************************/
 460
 461 NTSTATUS _lsa_EnumTrustDom(pipes_struct *p,
 462                            struct lsa_EnumTrustDom *r)
 463 {
 464         struct lsa_info *info;
 465         uint32 next_idx;
 466         struct trustdom_info **domains;
 467         struct lsa_DomainInfo *lsa_domains = NULL;
 468         int i;
 469
 470         /*
 471          * preferred length is set to 5 as a "our" preferred length
 472          * nt sets this parameter to 2
 473          * update (20.08.2002): it's not preferred length, but preferred size!
 474          * it needs further investigation how to optimally choose this value
 475          */
 476         uint32 max_num_domains =
 477                 r->in.max_size < 5 ? r->in.max_size : 10;
 478         uint32 num_domains;
 479         NTSTATUS nt_status;
 480         uint32 num_thistime;
 481
 482         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&info))
 483                 return NT_STATUS_INVALID_HANDLE;
 484
 485         /* check if the user have enough rights */
 486         if (!(info->access & LSA_POLICY_VIEW_LOCAL_INFORMATION))
 487                 return NT_STATUS_ACCESS_DENIED;
 488
 489         nt_status = pdb_enum_trusteddoms(p->mem_ctx, &num_domains, &domains);
 490
 491         if (!NT_STATUS_IS_OK(nt_status)) {
 492                 return nt_status;
 493         }
 494
 495         if (*r->in.resume_handle < num_domains) {
 496                 num_thistime = MIN(num_domains, max_num_domains);
 497
 498                 nt_status = STATUS_MORE_ENTRIES;
 499
 500                 if (*r->in.resume_handle + num_thistime > num_domains) {
 501                         num_thistime = num_domains - *r->in.resume_handle;
 502                         nt_status = NT_STATUS_OK;
 503                 }
 504
 505                 next_idx = *r->in.resume_handle + num_thistime;
 506         } else {
 507                 num_thistime = 0;
 508                 next_idx = 0xffffffff;
 509                 nt_status = NT_STATUS_NO_MORE_ENTRIES;
 510         }
 511
 512         /* set up the lsa_enum_trust_dom response */
 513
 514         lsa_domains = TALLOC_ZERO_ARRAY(p->mem_ctx, struct lsa_DomainInfo,
 515                                         num_thistime);
 516         if (!lsa_domains) {
 517                 return NT_STATUS_NO_MEMORY;
 518         }
 519
 520         for (i=0; i<num_thistime; i++) {
 521                 init_lsa_StringLarge(&lsa_domains[i].name, domains[i]->name);
 522                 lsa_domains[i].sid = &domains[i]->sid;
 523         }
 524
 525         *r->out.resume_handle = next_idx;
 526         r->out.domains->count = num_thistime;
 527         r->out.domains->domains = lsa_domains;
 528
 529         return nt_status;
 530 }
 531
 532 #define LSA_AUDIT_NUM_CATEGORIES_NT4    7
 533 #define LSA_AUDIT_NUM_CATEGORIES_WIN2K  9
 534 #define LSA_AUDIT_NUM_CATEGORIES LSA_AUDIT_NUM_CATEGORIES_NT4
 535
 536 /***************************************************************************
 537  _lsa_QueryInfoPolicy
 538  ***************************************************************************/
 539
 540 NTSTATUS _lsa_QueryInfoPolicy(pipes_struct *p,
 541                               struct lsa_QueryInfoPolicy *r)
 542 {
 543         NTSTATUS status = NT_STATUS_OK;
 544         struct lsa_info *handle;
 545         DOM_SID domain_sid;
 546         const char *name;
 547         DOM_SID *sid = NULL;
 548         union lsa_PolicyInformation *info = NULL;
 549
 550         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&handle))
 551                 return NT_STATUS_INVALID_HANDLE;
 552
 553         info = TALLOC_ZERO_P(p->mem_ctx, union lsa_PolicyInformation);
 554         if (!info) {
 555                 return NT_STATUS_NO_MEMORY;
 556         }
 557
 558         switch (r->in.level) {
 559         case 0x02:
 560                 {
 561
 562                 uint32 policy_def = LSA_AUDIT_POLICY_ALL;
 563
 564                 /* check if the user have enough rights */
 565                 if (!(handle->access & LSA_POLICY_VIEW_AUDIT_INFORMATION)) {
 566                         DEBUG(10,("_lsa_QueryInfoPolicy: insufficient access rights\n"));
 567                         return NT_STATUS_ACCESS_DENIED;
 568                 }
 569
 570                 /* fake info: We audit everything. ;) */
 571
 572                 info->audit_events.auditing_mode = true;
 573                 info->audit_events.count = LSA_AUDIT_NUM_CATEGORIES;
 574                 info->audit_events.settings = TALLOC_ZERO_ARRAY(p->mem_ctx,
 575                                                                 enum lsa_PolicyAuditPolicy,
 576                                                                 info->audit_events.count);
 577                 if (!info->audit_events.settings) {
 578                         return NT_STATUS_NO_MEMORY;
 579                 }
 580
 581                 info->audit_events.settings[LSA_AUDIT_CATEGORY_ACCOUNT_MANAGEMENT] = policy_def;
 582                 info->audit_events.settings[LSA_AUDIT_CATEGORY_FILE_AND_OBJECT_ACCESS] = policy_def;
 583                 info->audit_events.settings[LSA_AUDIT_CATEGORY_LOGON] = policy_def;
 584                 info->audit_events.settings[LSA_AUDIT_CATEGORY_PROCCESS_TRACKING] = policy_def;
 585                 info->audit_events.settings[LSA_AUDIT_CATEGORY_SECURITY_POLICY_CHANGES] = policy_def;
 586                 info->audit_events.settings[LSA_AUDIT_CATEGORY_SYSTEM] = policy_def;
 587                 info->audit_events.settings[LSA_AUDIT_CATEGORY_USE_OF_USER_RIGHTS] = policy_def;
 588
 589                 break;
 590                 }
 591         case 0x03:
 592                 /* check if the user have enough rights */
 593                 if (!(handle->access & LSA_POLICY_VIEW_LOCAL_INFORMATION))
 594                         return NT_STATUS_ACCESS_DENIED;
 595
 596                 /* Request PolicyPrimaryDomainInformation. */
 597                 switch (lp_server_role()) {
 598                         case ROLE_DOMAIN_PDC:
 599                         case ROLE_DOMAIN_BDC:
 600                                 name = get_global_sam_name();
 601                                 sid = get_global_sam_sid();
 602                                 break;
 603                         case ROLE_DOMAIN_MEMBER:
 604                                 name = lp_workgroup();
 605                                 /* We need to return the Domain SID here. */
 606                                 if (secrets_fetch_domain_sid(lp_workgroup(), &domain_sid))
 607                                         sid = &domain_sid;
 608                                 else
 609                                         return NT_STATUS_CANT_ACCESS_DOMAIN_INFO;
 610                                 break;
 611                         case ROLE_STANDALONE:
 612                                 name = lp_workgroup();
 613                                 sid = NULL;
 614                                 break;
 615                         default:
 616                                 return NT_STATUS_CANT_ACCESS_DOMAIN_INFO;
 617                 }
 618                 init_dom_query_3(&info->domain, name, sid);
 619                 break;
 620         case 0x05:
 621                 /* check if the user have enough rights */
 622                 if (!(handle->access & LSA_POLICY_VIEW_LOCAL_INFORMATION))
 623                         return NT_STATUS_ACCESS_DENIED;
 624
 625                 /* Request PolicyAccountDomainInformation. */
 626                 name = get_global_sam_name();
 627                 sid = get_global_sam_sid();
 628
 629                 init_dom_query_5(&info->account_domain, name, sid);
 630                 break;
 631         case 0x06:
 632                 /* check if the user have enough rights */
 633                 if (!(handle->access & LSA_POLICY_VIEW_LOCAL_INFORMATION))
 634                         return NT_STATUS_ACCESS_DENIED;
 635
 636                 switch (lp_server_role()) {
 637                         case ROLE_DOMAIN_BDC:
 638                                 /*
 639                                  * only a BDC is a backup controller
 640                                  * of the domain, it controls.
 641                                  */
 642                                 info->role.role = 2;
 643                                 break;
 644                         default:
 645                                 /*
 646                                  * any other role is a primary
 647                                  * of the domain, it controls.
 648                                  */
 649                                 info->role.role = 3;
 650                                 break;
 651                 }
 652                 break;
 653         default:
 654                 DEBUG(0,("_lsa_QueryInfoPolicy: unknown info level in Lsa Query: %d\n",
 655                         r->in.level));
 656                 status = NT_STATUS_INVALID_INFO_CLASS;
 657                 break;
 658         }
 659
 660         *r->out.info = info;
 661
 662         return status;
 663 }
 664
 665 /***************************************************************************
 666  _lsa_lookup_sids_internal
 667  ***************************************************************************/
 668
 669 static NTSTATUS _lsa_lookup_sids_internal(pipes_struct *p,
 670                                           TALLOC_CTX *mem_ctx,
 671                                           uint16_t level,                       /* input */
 672                                           int num_sids,                         /* input */
 673                                           struct lsa_SidPtr *sid,               /* input */
 674                                           struct lsa_RefDomainList **pp_ref,    /* input/output */
 675                                           struct lsa_TranslatedName2 **pp_names,/* input/output */
 676                                           uint32_t *pp_mapped_count)            /* input/output */
 677 {
 678         NTSTATUS status;
 679         int i;
 680         const DOM_SID **sids = NULL;
 681         struct lsa_RefDomainList *ref = NULL;
 682         uint32 mapped_count = 0;
 683         struct lsa_dom_info *dom_infos = NULL;
 684         struct lsa_name_info *name_infos = NULL;
 685         struct lsa_TranslatedName2 *names = NULL;
 686
 687         *pp_mapped_count = 0;
 688         *pp_names = NULL;
 689         *pp_ref = NULL;
 690
 691         if (num_sids == 0) {
 692                 return NT_STATUS_OK;
 693         }
 694
 695         sids = TALLOC_ARRAY(p->mem_ctx, const DOM_SID *, num_sids);
 696         ref = TALLOC_ZERO_P(p->mem_ctx, struct lsa_RefDomainList);
 697
 698         if (sids == NULL || ref == NULL) {
 699                 return NT_STATUS_NO_MEMORY;
 700         }
 701
 702         for (i=0; i<num_sids; i++) {
 703                 sids[i] = sid[i].sid;
 704         }
 705
 706         status = lookup_sids(p->mem_ctx, num_sids, sids, level,
 707                                   &dom_infos, &name_infos);
 708
 709         if (!NT_STATUS_IS_OK(status)) {
 710                 return status;
 711         }
 712
 713         names = TALLOC_ARRAY(p->mem_ctx, struct lsa_TranslatedName2, num_sids);
 714         if (names == NULL) {
 715                 return NT_STATUS_NO_MEMORY;
 716         }
 717
 718         for (i=0; i<MAX_REF_DOMAINS; i++) {
 719
 720                 if (!dom_infos[i].valid) {
 721                         break;
 722                 }
 723
 724                 if (init_lsa_ref_domain_list(mem_ctx, ref,
 725                                              dom_infos[i].name,
 726                                              &dom_infos[i].sid) != i) {
 727                         DEBUG(0, ("Domain %s mentioned twice??\n",
 728                                   dom_infos[i].name));
 729                         return NT_STATUS_INTERNAL_ERROR;
 730                 }
 731         }
 732
 733         for (i=0; i<num_sids; i++) {
 734                 struct lsa_name_info *name = &name_infos[i];
 735
 736                 if (name->type == SID_NAME_UNKNOWN) {
 737                         fstring tmp;
 738                         name->dom_idx = -1;
 739                         /* Unknown sids should return the string
 740                          * representation of the SID. Windows 2003 behaves
 741                          * rather erratic here, in many cases it returns the
 742                          * RID as 8 bytes hex, in others it returns the full
 743                          * SID. We (Jerry/VL) could not figure out which the
 744                          * hard cases are, so leave it with the SID.  */
 745                         name->name = talloc_asprintf(p->mem_ctx, "%s",
 746                                                      sid_to_fstring(tmp,
 747                                                                     sids[i]));
 748                         if (name->name == NULL) {
 749                                 return NT_STATUS_NO_MEMORY;
 750                         }
 751                 } else {
 752                         mapped_count += 1;
 753                 }
 754
 755                 init_lsa_translated_name2(&names[i], name->type,
 756                                           name->name, name->dom_idx, 0);
 757         }
 758
 759         status = NT_STATUS_NONE_MAPPED;
 760         if (mapped_count > 0) {
 761                 status = (mapped_count < num_sids) ?
 762                         STATUS_SOME_UNMAPPED : NT_STATUS_OK;
 763         }
 764
 765         DEBUG(10, ("num_sids %d, mapped_count %d, status %s\n",
 766                    num_sids, mapped_count, nt_errstr(status)));
 767
 768         *pp_mapped_count = mapped_count;
 769         *pp_names = names;
 770         *pp_ref = ref;
 771
 772         return status;
 773 }
 774
 775 /***************************************************************************
 776  _lsa_LookupSids
 777  ***************************************************************************/
 778
 779 NTSTATUS _lsa_LookupSids(pipes_struct *p,
 780                          struct lsa_LookupSids *r)
 781 {
 782         NTSTATUS status;
 783         struct lsa_info *handle;
 784         int num_sids = r->in.sids->num_sids;
 785         uint32 mapped_count = 0;
 786         struct lsa_RefDomainList *domains = NULL;
 787         struct lsa_TranslatedName *names_out = NULL;
 788         struct lsa_TranslatedName2 *names = NULL;
 789         int i;
 790
 791         if ((r->in.level < 1) || (r->in.level > 6)) {
 792                 return NT_STATUS_INVALID_PARAMETER;
 793         }
 794
 795         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&handle)) {
 796                 return NT_STATUS_INVALID_HANDLE;
 797         }
 798
 799         /* check if the user has enough rights */
 800         if (!(handle->access & LSA_POLICY_LOOKUP_NAMES)) {
 801                 return NT_STATUS_ACCESS_DENIED;
 802         }
 803
 804         if (num_sids >  MAX_LOOKUP_SIDS) {
 805                 DEBUG(5,("_lsa_LookupSids: limit of %d exceeded, requested %d\n",
 806                          MAX_LOOKUP_SIDS, num_sids));
 807                 return NT_STATUS_NONE_MAPPED;
 808         }
 809
 810         status = _lsa_lookup_sids_internal(p,
 811                                            p->mem_ctx,
 812                                            r->in.level,
 813                                            num_sids,
 814                                            r->in.sids->sids,
 815                                            &domains,
 816                                            &names,
 817                                            &mapped_count);
 818
 819         /* Convert from lsa_TranslatedName2 to lsa_TranslatedName */
 820         names_out = TALLOC_ARRAY(p->mem_ctx, struct lsa_TranslatedName,
 821                                  num_sids);
 822         if (!names_out) {
 823                 return NT_STATUS_NO_MEMORY;
 824         }
 825
 826         for (i=0; i<num_sids; i++) {
 827                 names_out[i].sid_type = names[i].sid_type;
 828                 names_out[i].name = names[i].name;
 829                 names_out[i].sid_index = names[i].sid_index;
 830         }
 831
 832         *r->out.domains = domains;
 833         r->out.names->count = num_sids;
 834         r->out.names->names = names_out;
 835         *r->out.count = mapped_count;
 836
 837         return status;
 838 }
 839
 840 /***************************************************************************
 841  _lsa_LookupSids2
 842  ***************************************************************************/
 843
 844 NTSTATUS _lsa_LookupSids2(pipes_struct *p,
 845                           struct lsa_LookupSids2 *r)
 846 {
 847         NTSTATUS status;
 848         struct lsa_info *handle;
 849         int num_sids = r->in.sids->num_sids;
 850         uint32 mapped_count = 0;
 851         struct lsa_RefDomainList *domains = NULL;
 852         struct lsa_TranslatedName2 *names = NULL;
 853         bool check_policy = true;
 854
 855         switch (p->hdr_req.opnum) {
 856                 case NDR_LSA_LOOKUPSIDS3:
 857                         check_policy = false;
 858                         break;
 859                 case NDR_LSA_LOOKUPSIDS2:
 860                 default:
 861                         check_policy = true;
 862         }
 863
 864         if ((r->in.level < 1) || (r->in.level > 6)) {
 865                 return NT_STATUS_INVALID_PARAMETER;
 866         }
 867
 868         if (check_policy) {
 869                 if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&handle)) {
 870                         return NT_STATUS_INVALID_HANDLE;
 871                 }
 872
 873                 /* check if the user have enough rights */
 874                 if (!(handle->access & LSA_POLICY_LOOKUP_NAMES)) {
 875                         return NT_STATUS_ACCESS_DENIED;
 876                 }
 877         }
 878
 879         if (num_sids >  MAX_LOOKUP_SIDS) {
 880                 DEBUG(5,("_lsa_LookupSids2: limit of %d exceeded, requested %d\n",
 881                          MAX_LOOKUP_SIDS, num_sids));
 882                 return NT_STATUS_NONE_MAPPED;
 883         }
 884
 885         status = _lsa_lookup_sids_internal(p,
 886                                            p->mem_ctx,
 887                                            r->in.level,
 888                                            num_sids,
 889                                            r->in.sids->sids,
 890                                            &domains,
 891                                            &names,
 892                                            &mapped_count);
 893
 894         *r->out.domains = domains;
 895         r->out.names->count = num_sids;
 896         r->out.names->names = names;
 897         *r->out.count = mapped_count;
 898
 899         return status;
 900 }
 901
 902 /***************************************************************************
 903  _lsa_LookupSids3
 904  ***************************************************************************/
 905
 906 NTSTATUS _lsa_LookupSids3(pipes_struct *p,
 907                           struct lsa_LookupSids3 *r)
 908 {
 909         struct lsa_LookupSids2 q;
 910
 911         /* No policy handle on this call. Restrict to crypto connections. */
 912         if (p->auth.auth_type != PIPE_AUTH_TYPE_SCHANNEL) {
 913                 DEBUG(0,("_lsa_LookupSids3: client %s not using schannel for netlogon\n",
 914                         get_remote_machine_name() ));
 915                 return NT_STATUS_INVALID_PARAMETER;
 916         }
 917
 918         q.in.handle             = NULL;
 919         q.in.sids               = r->in.sids;
 920         q.in.level              = r->in.level;
 921         q.in.unknown1           = r->in.unknown1;
 922         q.in.unknown2           = r->in.unknown2;
 923         q.in.names              = r->in.names;
 924         q.in.count              = r->in.count;
 925
 926         q.out.domains           = r->out.domains;
 927         q.out.names             = r->out.names;
 928         q.out.count             = r->out.count;
 929
 930         return _lsa_LookupSids2(p, &q);
 931 }
 932
 933 /***************************************************************************
 934  ***************************************************************************/
 935
 936 static int lsa_lookup_level_to_flags(uint16 level)
 937 {
 938         int flags;
 939
 940         switch (level) {
 941                 case 1:
 942                         flags = LOOKUP_NAME_ALL;
 943                         break;
 944                 case 2:
 945                         flags = LOOKUP_NAME_DOMAIN|LOOKUP_NAME_REMOTE|LOOKUP_NAME_ISOLATED;
 946                         break;
 947                 case 3:
 948                         flags = LOOKUP_NAME_DOMAIN|LOOKUP_NAME_ISOLATED;
 949                         break;
 950                 case 4:
 951                 case 5:
 952                 case 6:
 953                 default:
 954                         flags = LOOKUP_NAME_NONE;
 955                         break;
 956         }
 957
 958         return flags;
 959 }
 960
 961 /***************************************************************************
 962  _lsa_LookupNames
 963  ***************************************************************************/
 964
 965 NTSTATUS _lsa_LookupNames(pipes_struct *p,
 966                           struct lsa_LookupNames *r)
 967 {
 968         NTSTATUS status = NT_STATUS_NONE_MAPPED;
 969         struct lsa_info *handle;
 970         struct lsa_String *names = r->in.names;
 971         uint32 num_entries = r->in.num_names;
 972         struct lsa_RefDomainList *domains = NULL;
 973         struct lsa_TranslatedSid *rids = NULL;
 974         uint32 mapped_count = 0;
 975         int flags = 0;
 976
 977         if (num_entries >  MAX_LOOKUP_SIDS) {
 978                 num_entries = MAX_LOOKUP_SIDS;
 979                 DEBUG(5,("_lsa_LookupNames: truncating name lookup list to %d\n",
 980                         num_entries));
 981         }
 982
 983         flags = lsa_lookup_level_to_flags(r->in.level);
 984
 985         domains = TALLOC_ZERO_P(p->mem_ctx, struct lsa_RefDomainList);
 986         if (!domains) {
 987                 return NT_STATUS_NO_MEMORY;
 988         }
 989
 990         if (num_entries) {
 991                 rids = TALLOC_ZERO_ARRAY(p->mem_ctx, struct lsa_TranslatedSid,
 992                                          num_entries);
 993                 if (!rids) {
 994                         return NT_STATUS_NO_MEMORY;
 995                 }
 996         } else {
 997                 rids = NULL;
 998         }
 999
1000         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&handle)) {
1001                 status = NT_STATUS_INVALID_HANDLE;
1002                 goto done;
1003         }
1004
1005         /* check if the user have enough rights */
1006         if (!(handle->access & LSA_POLICY_LOOKUP_NAMES)) {
1007                 status = NT_STATUS_ACCESS_DENIED;
1008                 goto done;
1009         }
1010
1011         /* set up the LSA Lookup RIDs response */
1012         become_root(); /* lookup_name can require root privs */
1013         status = lookup_lsa_rids(p->mem_ctx, domains, rids, num_entries,
1014                                  names, flags, &mapped_count);
1015         unbecome_root();
1016
1017 done:
1018
1019         if (NT_STATUS_IS_OK(status) && (num_entries != 0) ) {
1020                 if (mapped_count == 0) {
1021                         status = NT_STATUS_NONE_MAPPED;
1022                 } else if (mapped_count != num_entries) {
1023                         status = STATUS_SOME_UNMAPPED;
1024                 }
1025         }
1026
1027         *r->out.count = num_entries;
1028         *r->out.domains = domains;
1029         r->out.sids->sids = rids;
1030         r->out.sids->count = mapped_count;
1031
1032         return status;
1033 }
1034
1035 /***************************************************************************
1036  _lsa_LookupNames2
1037  ***************************************************************************/
1038
1039 NTSTATUS _lsa_LookupNames2(pipes_struct *p,
1040                            struct lsa_LookupNames2 *r)
1041 {
1042         NTSTATUS status;
1043         struct lsa_LookupNames q;
1044         struct lsa_TransSidArray2 *sid_array2 = r->in.sids;
1045         struct lsa_TransSidArray *sid_array = NULL;
1046         uint32_t i;
1047
1048         sid_array = TALLOC_ZERO_P(p->mem_ctx, struct lsa_TransSidArray);
1049         if (!sid_array) {
1050                 return NT_STATUS_NO_MEMORY;
1051         }
1052
1053         q.in.handle             = r->in.handle;
1054         q.in.num_names          = r->in.num_names;
1055         q.in.names              = r->in.names;
1056         q.in.level              = r->in.level;
1057         q.in.sids               = sid_array;
1058         q.in.count              = r->in.count;
1059         /* we do not know what this is for */
1060         /*                      = r->in.unknown1; */
1061         /*                      = r->in.unknown2; */
1062
1063         q.out.domains           = r->out.domains;
1064         q.out.sids              = sid_array;
1065         q.out.count             = r->out.count;
1066
1067         status = _lsa_LookupNames(p, &q);
1068
1069         sid_array2->sids = TALLOC_ARRAY(p->mem_ctx, struct lsa_TranslatedSid2, sid_array->count);
1070         if (!sid_array2->sids) {
1071                 return NT_STATUS_NO_MEMORY;
1072         }
1073
1074         for (i=0; i<sid_array->count; i++) {
1075                 sid_array2->sids[i].sid_type  = sid_array->sids[i].sid_type;
1076                 sid_array2->sids[i].rid       = sid_array->sids[i].rid;
1077                 sid_array2->sids[i].sid_index = sid_array->sids[i].sid_index;
1078                 sid_array2->sids[i].unknown   = 0;
1079         }
1080
1081         r->out.sids = sid_array2;
1082
1083         return status;
1084 }
1085
1086 /***************************************************************************
1087  _lsa_LookupNames3
1088  ***************************************************************************/
1089
1090 NTSTATUS _lsa_LookupNames3(pipes_struct *p,
1091                            struct lsa_LookupNames3 *r)
1092 {
1093         NTSTATUS status;
1094         struct lsa_info *handle;
1095         struct lsa_String *names = r->in.names;
1096         uint32 num_entries = r->in.num_names;
1097         struct lsa_RefDomainList *domains = NULL;
1098         struct lsa_TranslatedSid3 *trans_sids = NULL;
1099         uint32 mapped_count = 0;
1100         int flags = 0;
1101         bool check_policy = true;
1102
1103         switch (p->hdr_req.opnum) {
1104                 case NDR_LSA_LOOKUPNAMES4:
1105                         check_policy = false;
1106                         break;
1107                 case NDR_LSA_LOOKUPNAMES3:
1108                 default:
1109                         check_policy = true;
1110         }
1111
1112         if (num_entries >  MAX_LOOKUP_SIDS) {
1113                 num_entries = MAX_LOOKUP_SIDS;
1114                 DEBUG(5,("_lsa_LookupNames3: truncating name lookup list to %d\n", num_entries));
1115         }
1116
1117         /* Probably the lookup_level is some sort of bitmask. */
1118         if (r->in.level == 1) {
1119                 flags = LOOKUP_NAME_ALL;
1120         }
1121
1122         domains = TALLOC_ZERO_P(p->mem_ctx, struct lsa_RefDomainList);
1123         if (!domains) {
1124                 return NT_STATUS_NO_MEMORY;
1125         }
1126
1127         if (num_entries) {
1128                 trans_sids = TALLOC_ZERO_ARRAY(p->mem_ctx, struct lsa_TranslatedSid3,
1129                                                num_entries);
1130                 if (!trans_sids) {
1131                         return NT_STATUS_NO_MEMORY;
1132                 }
1133         } else {
1134                 trans_sids = NULL;
1135         }
1136
1137         if (check_policy) {
1138
1139                 if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&handle)) {
1140                         status = NT_STATUS_INVALID_HANDLE;
1141                         goto done;
1142                 }
1143
1144                 /* check if the user have enough rights */
1145                 if (!(handle->access & LSA_POLICY_LOOKUP_NAMES)) {
1146                         status = NT_STATUS_ACCESS_DENIED;
1147                         goto done;
1148                 }
1149         }
1150
1151         /* set up the LSA Lookup SIDs response */
1152         become_root(); /* lookup_name can require root privs */
1153         status = lookup_lsa_sids(p->mem_ctx, domains, trans_sids, num_entries,
1154                                  names, flags, &mapped_count);
1155         unbecome_root();
1156
1157 done:
1158
1159         if (NT_STATUS_IS_OK(status)) {
1160                 if (mapped_count == 0) {
1161                         status = NT_STATUS_NONE_MAPPED;
1162                 } else if (mapped_count != num_entries) {
1163                         status = STATUS_SOME_UNMAPPED;
1164                 }
1165         }
1166
1167         *r->out.count = num_entries;
1168         *r->out.domains = domains;
1169         r->out.sids->sids = trans_sids;
1170         r->out.sids->count = mapped_count;
1171
1172         return status;
1173 }
1174
1175 /***************************************************************************
1176  _lsa_LookupNames4
1177  ***************************************************************************/
1178
1179 NTSTATUS _lsa_LookupNames4(pipes_struct *p,
1180                            struct lsa_LookupNames4 *r)
1181 {
1182         struct lsa_LookupNames3 q;
1183
1184         /* No policy handle on this call. Restrict to crypto connections. */
1185         if (p->auth.auth_type != PIPE_AUTH_TYPE_SCHANNEL) {
1186                 DEBUG(0,("_lsa_lookup_names4: client %s not using schannel for netlogon\n",
1187                         get_remote_machine_name() ));
1188                 return NT_STATUS_INVALID_PARAMETER;
1189         }
1190
1191         q.in.handle             = NULL;
1192         q.in.num_names          = r->in.num_names;
1193         q.in.names              = r->in.names;
1194         q.in.level              = r->in.level;
1195         q.in.unknown1           = r->in.unknown1;
1196         q.in.unknown2           = r->in.unknown2;
1197         q.in.sids               = r->in.sids;
1198         q.in.count              = r->in.count;
1199
1200         q.out.domains           = r->out.domains;
1201         q.out.sids              = r->out.sids;
1202         q.out.count             = r->out.count;
1203
1204         return _lsa_LookupNames3(p, &q);
1205 }
1206
1207 /***************************************************************************
1208  _lsa_close. Also weird - needs to check if lsa handle is correct. JRA.
1209  ***************************************************************************/
1210
1211 NTSTATUS _lsa_Close(pipes_struct *p, struct lsa_Close *r)
1212 {
1213         if (!find_policy_by_hnd(p, r->in.handle, NULL)) {
1214                 return NT_STATUS_INVALID_HANDLE;
1215         }
1216
1217         close_policy_hnd(p, r->in.handle);
1218         return NT_STATUS_OK;
1219 }
1220
1221 /***************************************************************************
1222  ***************************************************************************/
1223
1224 NTSTATUS _lsa_OpenSecret(pipes_struct *p, struct lsa_OpenSecret *r)
1225 {
1226         return NT_STATUS_OBJECT_NAME_NOT_FOUND;
1227 }
1228
1229 /***************************************************************************
1230  ***************************************************************************/
1231
1232 NTSTATUS _lsa_OpenTrustedDomain(pipes_struct *p, struct lsa_OpenTrustedDomain *r)
1233 {
1234         return NT_STATUS_OBJECT_NAME_NOT_FOUND;
1235 }
1236
1237 /***************************************************************************
1238  ***************************************************************************/
1239
1240 NTSTATUS _lsa_CreateTrustedDomain(pipes_struct *p, struct lsa_CreateTrustedDomain *r)
1241 {
1242         return NT_STATUS_ACCESS_DENIED;
1243 }
1244
1245 /***************************************************************************
1246  ***************************************************************************/
1247
1248 NTSTATUS _lsa_CreateSecret(pipes_struct *p, struct lsa_CreateSecret *r)
1249 {
1250         return NT_STATUS_ACCESS_DENIED;
1251 }
1252
1253 /***************************************************************************
1254  ***************************************************************************/
1255
1256 NTSTATUS _lsa_SetSecret(pipes_struct *p, struct lsa_SetSecret *r)
1257 {
1258         return NT_STATUS_ACCESS_DENIED;
1259 }
1260
1261 /***************************************************************************
1262  _lsa_DeleteObject
1263  ***************************************************************************/
1264
1265 NTSTATUS _lsa_DeleteObject(pipes_struct *p,
1266                            struct lsa_DeleteObject *r)
1267 {
1268         return NT_STATUS_ACCESS_DENIED;
1269 }
1270
1271 /***************************************************************************
1272  _lsa_EnumPrivs
1273  ***************************************************************************/
1274
1275 NTSTATUS _lsa_EnumPrivs(pipes_struct *p,
1276                         struct lsa_EnumPrivs *r)
1277 {
1278         struct lsa_info *handle;
1279         uint32 i;
1280         uint32 enum_context = *r->in.resume_handle;
1281         int num_privs = count_all_privileges();
1282         struct lsa_PrivEntry *entries = NULL;
1283         LUID_ATTR luid;
1284
1285         /* remember that the enum_context starts at 0 and not 1 */
1286
1287         if ( enum_context >= num_privs )
1288                 return NT_STATUS_NO_MORE_ENTRIES;
1289
1290         DEBUG(10,("_lsa_EnumPrivs: enum_context:%d total entries:%d\n",
1291                 enum_context, num_privs));
1292
1293         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&handle))
1294                 return NT_STATUS_INVALID_HANDLE;
1295
1296         /* check if the user have enough rights
1297            I don't know if it's the right one. not documented.  */
1298
1299         if (!(handle->access & LSA_POLICY_VIEW_LOCAL_INFORMATION))
1300                 return NT_STATUS_ACCESS_DENIED;
1301
1302         if (num_privs) {
1303                 entries = TALLOC_ZERO_ARRAY(p->mem_ctx, struct lsa_PrivEntry, num_privs);
1304                 if (!entries) {
1305                         return NT_STATUS_NO_MEMORY;
1306                 }
1307         } else {
1308                 entries = NULL;
1309         }
1310
1311         for (i = 0; i < num_privs; i++) {
1312                 if( i < enum_context) {
1313
1314                         init_lsa_StringLarge(&entries[i].name, NULL);
1315
1316                         entries[i].luid.low = 0;
1317                         entries[i].luid.high = 0;
1318                 } else {
1319
1320                         init_lsa_StringLarge(&entries[i].name, privs[i].name);
1321
1322                         luid = get_privilege_luid( &privs[i].se_priv );
1323
1324                         entries[i].luid.low = luid.luid.low;
1325                         entries[i].luid.high = luid.luid.high;
1326                 }
1327         }
1328
1329         enum_context = num_privs;
1330
1331         *r->out.resume_handle = enum_context;
1332         r->out.privs->count = num_privs;
1333         r->out.privs->privs = entries;
1334
1335         return NT_STATUS_OK;
1336 }
1337
1338 /***************************************************************************
1339  _lsa_LookupPrivDisplayName
1340  ***************************************************************************/
1341
1342 NTSTATUS _lsa_LookupPrivDisplayName(pipes_struct *p,
1343                                     struct lsa_LookupPrivDisplayName *r)
1344 {
1345         struct lsa_info *handle;
1346         const char *description;
1347         struct lsa_StringLarge *lsa_name;
1348
1349         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&handle))
1350                 return NT_STATUS_INVALID_HANDLE;
1351
1352         /* check if the user have enough rights */
1353
1354         /*
1355          * I don't know if it's the right one. not documented.
1356          */
1357         if (!(handle->access & LSA_POLICY_VIEW_LOCAL_INFORMATION))
1358                 return NT_STATUS_ACCESS_DENIED;
1359
1360         DEBUG(10,("_lsa_LookupPrivDisplayName: name = %s\n", r->in.name->string));
1361
1362         description = get_privilege_dispname(r->in.name->string);
1363         if (!description) {
1364                 DEBUG(10,("_lsa_LookupPrivDisplayName: doesn't exist\n"));
1365                 return NT_STATUS_NO_SUCH_PRIVILEGE;
1366         }
1367
1368         DEBUG(10,("_lsa_LookupPrivDisplayName: display name = %s\n", description));
1369
1370         lsa_name = TALLOC_ZERO_P(p->mem_ctx, struct lsa_StringLarge);
1371         if (!lsa_name) {
1372                 return NT_STATUS_NO_MEMORY;
1373         }
1374
1375         init_lsa_StringLarge(lsa_name, description);
1376
1377         *r->out.returned_language_id = r->in.language_id;
1378         *r->out.disp_name = lsa_name;
1379
1380         return NT_STATUS_OK;
1381 }
1382
1383 /***************************************************************************
1384  _lsa_EnumAccounts
1385  ***************************************************************************/
1386
1387 NTSTATUS _lsa_EnumAccounts(pipes_struct *p,
1388                            struct lsa_EnumAccounts *r)
1389 {
1390         struct lsa_info *handle;
1391         DOM_SID *sid_list;
1392         int i, j, num_entries;
1393         NTSTATUS status;
1394         struct lsa_SidPtr *sids = NULL;
1395
1396         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&handle))
1397                 return NT_STATUS_INVALID_HANDLE;
1398
1399         if (!(handle->access & LSA_POLICY_VIEW_LOCAL_INFORMATION))
1400                 return NT_STATUS_ACCESS_DENIED;
1401
1402         sid_list = NULL;
1403         num_entries = 0;
1404
1405         /* The only way we can currently find out all the SIDs that have been
1406            privileged is to scan all privileges */
1407
1408         status = privilege_enumerate_accounts(&sid_list, &num_entries);
1409         if (!NT_STATUS_IS_OK(status)) {
1410                 return status;
1411         }
1412
1413         if (*r->in.resume_handle >= num_entries) {
1414                 return NT_STATUS_NO_MORE_ENTRIES;
1415         }
1416
1417         if (num_entries - *r->in.resume_handle) {
1418                 sids = TALLOC_ZERO_ARRAY(p->mem_ctx, struct lsa_SidPtr,
1419                                          num_entries - *r->in.resume_handle);
1420                 if (!sids) {
1421                         SAFE_FREE(sid_list);
1422                         return NT_STATUS_NO_MEMORY;
1423                 }
1424
1425                 for (i = *r->in.resume_handle, j = 0; i < num_entries; i++, j++) {
1426                         sids[j].sid = sid_dup_talloc(p->mem_ctx, &sid_list[i]);
1427                         if (!sids[j].sid) {
1428                                 SAFE_FREE(sid_list);
1429                                 return NT_STATUS_NO_MEMORY;
1430                         }
1431                 }
1432         }
1433
1434         talloc_free(sid_list);
1435
1436         *r->out.resume_handle = num_entries;
1437         r->out.sids->num_sids = num_entries;
1438         r->out.sids->sids = sids;
1439
1440         return NT_STATUS_OK;
1441 }
1442
1443 /***************************************************************************
1444  _lsa_GetUserName
1445  ***************************************************************************/
1446
1447 NTSTATUS _lsa_GetUserName(pipes_struct *p,
1448                           struct lsa_GetUserName *r)
1449 {
1450         const char *username, *domname;
1451         user_struct *vuser = get_valid_user_struct(p->vuid);
1452         struct lsa_String *account_name = NULL;
1453         struct lsa_String *authority_name = NULL;
1454
1455         if (vuser == NULL)
1456                 return NT_STATUS_CANT_ACCESS_DOMAIN_INFO;
1457
1458         if (vuser->guest) {
1459                 /*
1460                  * I'm 99% sure this is not the right place to do this,
1461                  * global_sid_Anonymous should probably be put into the token
1462                  * instead of the guest id -- vl
1463                  */
1464                 if (!lookup_sid(p->mem_ctx, &global_sid_Anonymous,
1465                                 &domname, &username, NULL)) {
1466                         return NT_STATUS_NO_MEMORY;
1467                 }
1468         } else {
1469                 username = vuser->user.smb_name;
1470                 domname = vuser->user.domain;
1471         }
1472
1473         account_name = TALLOC_ZERO_P(p->mem_ctx, struct lsa_String);
1474         if (!account_name) {
1475                 return NT_STATUS_NO_MEMORY;
1476         }
1477
1478         authority_name = TALLOC_ZERO_P(p->mem_ctx, struct lsa_String);
1479         if (!authority_name) {
1480                 return NT_STATUS_NO_MEMORY;
1481         }
1482
1483         init_lsa_String(account_name, username);
1484         init_lsa_String(authority_name, domname);
1485
1486         *r->out.account_name = account_name;
1487         *r->out.authority_name = authority_name;
1488
1489         return NT_STATUS_OK;
1490 }
1491
1492 /***************************************************************************
1493  _lsa_CreateAccount
1494  ***************************************************************************/
1495
1496 NTSTATUS _lsa_CreateAccount(pipes_struct *p,
1497                             struct lsa_CreateAccount *r)
1498 {
1499         struct lsa_info *handle;
1500         struct lsa_info *info;
1501
1502         /* find the connection policy handle. */
1503         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&handle))
1504                 return NT_STATUS_INVALID_HANDLE;
1505
1506         /* check if the user have enough rights */
1507
1508         /*
1509          * I don't know if it's the right one. not documented.
1510          * but guessed with rpcclient.
1511          */
1512         if (!(handle->access & LSA_POLICY_GET_PRIVATE_INFORMATION))
1513                 return NT_STATUS_ACCESS_DENIED;
1514
1515         /* check to see if the pipe_user is a Domain Admin since
1516            account_pol.tdb was already opened as root, this is all we have */
1517
1518         if ( !nt_token_check_domain_rid( p->pipe_user.nt_user_token, DOMAIN_GROUP_RID_ADMINS ) )
1519                 return NT_STATUS_ACCESS_DENIED;
1520
1521         if ( is_privileged_sid( r->in.sid ) )
1522                 return NT_STATUS_OBJECT_NAME_COLLISION;
1523
1524         /* associate the user/group SID with the (unique) handle. */
1525
1526         if ((info = SMB_MALLOC_P(struct lsa_info)) == NULL)
1527                 return NT_STATUS_NO_MEMORY;
1528
1529         ZERO_STRUCTP(info);
1530         info->sid = *r->in.sid;
1531         info->access = r->in.access_mask;
1532
1533         /* get a (unique) handle.  open a policy on it. */
1534         if (!create_policy_hnd(p, r->out.acct_handle, free_lsa_info, (void *)info))
1535                 return NT_STATUS_OBJECT_NAME_NOT_FOUND;
1536
1537         return privilege_create_account( &info->sid );
1538 }
1539
1540
1541 /***************************************************************************
1542  _lsa_OpenAccount
1543  ***************************************************************************/
1544
1545 NTSTATUS _lsa_OpenAccount(pipes_struct *p,
1546                           struct lsa_OpenAccount *r)
1547 {
1548         struct lsa_info *handle;
1549         struct lsa_info *info;
1550
1551         /* find the connection policy handle. */
1552         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&handle))
1553                 return NT_STATUS_INVALID_HANDLE;
1554
1555         /* check if the user have enough rights */
1556
1557         /*
1558          * I don't know if it's the right one. not documented.
1559          * but guessed with rpcclient.
1560          */
1561         if (!(handle->access & LSA_POLICY_GET_PRIVATE_INFORMATION))
1562                 return NT_STATUS_ACCESS_DENIED;
1563
1564         /* TODO: Fis the parsing routine before reenabling this check! */
1565         #if 0
1566         if (!lookup_sid(&handle->sid, dom_name, name, &type))
1567                 return NT_STATUS_ACCESS_DENIED;
1568         #endif
1569         /* associate the user/group SID with the (unique) handle. */
1570         if ((info = SMB_MALLOC_P(struct lsa_info)) == NULL)
1571                 return NT_STATUS_NO_MEMORY;
1572
1573         ZERO_STRUCTP(info);
1574         info->sid = *r->in.sid;
1575         info->access = r->in.access_mask;
1576
1577         /* get a (unique) handle.  open a policy on it. */
1578         if (!create_policy_hnd(p, r->out.acct_handle, free_lsa_info, (void *)info))
1579                 return NT_STATUS_OBJECT_NAME_NOT_FOUND;
1580
1581         return NT_STATUS_OK;
1582 }
1583
1584 /***************************************************************************
1585  _lsa_EnumPrivsAccount
1586  For a given SID, enumerate all the privilege this account has.
1587  ***************************************************************************/
1588
1589 NTSTATUS _lsa_EnumPrivsAccount(pipes_struct *p,
1590                                struct lsa_EnumPrivsAccount *r)
1591 {
1592         NTSTATUS status = NT_STATUS_OK;
1593         struct lsa_info *info=NULL;
1594         SE_PRIV mask;
1595         PRIVILEGE_SET privileges;
1596         struct lsa_PrivilegeSet *priv_set = NULL;
1597         struct lsa_LUIDAttribute *luid_attrs = NULL;
1598         int i;
1599
1600         /* find the connection policy handle. */
1601         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&info))
1602                 return NT_STATUS_INVALID_HANDLE;
1603
1604         if ( !get_privileges_for_sids( &mask, &info->sid, 1 ) )
1605                 return NT_STATUS_OBJECT_NAME_NOT_FOUND;
1606
1607         privilege_set_init( &privileges );
1608
1609         if ( se_priv_to_privilege_set( &privileges, &mask ) ) {
1610
1611                 DEBUG(10,("_lsa_EnumPrivsAccount: %s has %d privileges\n",
1612                           sid_string_dbg(&info->sid),
1613                           privileges.count));
1614
1615                 priv_set = TALLOC_ZERO_P(p->mem_ctx, struct lsa_PrivilegeSet);
1616                 if (!priv_set) {
1617                         status = NT_STATUS_NO_MEMORY;
1618                         goto done;
1619                 }
1620
1621                 luid_attrs = TALLOC_ZERO_ARRAY(p->mem_ctx,
1622                                                struct lsa_LUIDAttribute,
1623                                                privileges.count);
1624                 if (!luid_attrs) {
1625                         status = NT_STATUS_NO_MEMORY;
1626                         goto done;
1627                 }
1628
1629                 for (i=0; i<privileges.count; i++) {
1630                         luid_attrs[i].luid.low = privileges.set[i].luid.low;
1631                         luid_attrs[i].luid.high = privileges.set[i].luid.high;
1632                         luid_attrs[i].attribute = privileges.set[i].attr;
1633                 }
1634
1635                 priv_set->count = privileges.count;
1636                 priv_set->unknown = 0;
1637                 priv_set->set = luid_attrs;
1638
1639                 *r->out.privs = priv_set;
1640         } else {
1641                 status = NT_STATUS_NO_SUCH_PRIVILEGE;
1642         }
1643
1644  done:
1645         privilege_set_free( &privileges );
1646
1647         return status;
1648 }
1649
1650 /***************************************************************************
1651  _lsa_GetSystemAccessAccount
1652  ***************************************************************************/
1653
1654 NTSTATUS _lsa_GetSystemAccessAccount(pipes_struct *p,
1655                                      struct lsa_GetSystemAccessAccount *r)
1656 {
1657         struct lsa_info *info=NULL;
1658
1659         /* find the connection policy handle. */
1660
1661         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&info))
1662                 return NT_STATUS_INVALID_HANDLE;
1663
1664         if (!lookup_sid(p->mem_ctx, &info->sid, NULL, NULL, NULL))
1665                 return NT_STATUS_ACCESS_DENIED;
1666
1667         /*
1668           0x01 -> Log on locally
1669           0x02 -> Access this computer from network
1670           0x04 -> Log on as a batch job
1671           0x10 -> Log on as a service
1672
1673           they can be ORed together
1674         */
1675
1676         *r->out.access_mask = PR_LOG_ON_LOCALLY | PR_ACCESS_FROM_NETWORK;
1677
1678         return NT_STATUS_OK;
1679 }
1680
1681 /***************************************************************************
1682   update the systemaccount information
1683  ***************************************************************************/
1684
1685 NTSTATUS _lsa_SetSystemAccessAccount(pipes_struct *p,
1686                                      struct lsa_SetSystemAccessAccount *r)
1687 {
1688         struct lsa_info *info=NULL;
1689         GROUP_MAP map;
1690
1691         /* find the connection policy handle. */
1692         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&info))
1693                 return NT_STATUS_INVALID_HANDLE;
1694
1695         /* check to see if the pipe_user is a Domain Admin since
1696            account_pol.tdb was already opened as root, this is all we have */
1697
1698         if ( !nt_token_check_domain_rid( p->pipe_user.nt_user_token, DOMAIN_GROUP_RID_ADMINS ) )
1699                 return NT_STATUS_ACCESS_DENIED;
1700
1701         if (!pdb_getgrsid(&map, info->sid))
1702                 return NT_STATUS_NO_SUCH_GROUP;
1703
1704         return pdb_update_group_mapping_entry(&map);
1705 }
1706
1707 /***************************************************************************
1708  _lsa_AddPrivilegesToAccount
1709  For a given SID, add some privileges.
1710  ***************************************************************************/
1711
1712 NTSTATUS _lsa_AddPrivilegesToAccount(pipes_struct *p,
1713                                      struct lsa_AddPrivilegesToAccount *r)
1714 {
1715         struct lsa_info *info = NULL;
1716         SE_PRIV mask;
1717         struct lsa_PrivilegeSet *set = NULL;
1718
1719         /* find the connection policy handle. */
1720         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&info))
1721                 return NT_STATUS_INVALID_HANDLE;
1722
1723         /* check to see if the pipe_user is root or a Domain Admin since
1724            account_pol.tdb was already opened as root, this is all we have */
1725
1726         if ( p->pipe_user.ut.uid != sec_initial_uid()
1727                 && !nt_token_check_domain_rid( p->pipe_user.nt_user_token, DOMAIN_GROUP_RID_ADMINS ) )
1728         {
1729                 return NT_STATUS_ACCESS_DENIED;
1730         }
1731
1732         set = r->in.privs;
1733         if ( !privilege_set_to_se_priv( &mask, set ) )
1734                 return NT_STATUS_NO_SUCH_PRIVILEGE;
1735
1736         if ( !grant_privilege( &info->sid, &mask ) ) {
1737                 DEBUG(3,("_lsa_AddPrivilegesToAccount: grant_privilege(%s) failed!\n",
1738                          sid_string_dbg(&info->sid) ));
1739                 DEBUG(3,("Privilege mask:\n"));
1740                 dump_se_priv( DBGC_ALL, 3, &mask );
1741                 return NT_STATUS_NO_SUCH_PRIVILEGE;
1742         }
1743
1744         return NT_STATUS_OK;
1745 }
1746
1747 /***************************************************************************
1748  _lsa_RemovePrivilegesFromAccount
1749  For a given SID, remove some privileges.
1750  ***************************************************************************/
1751
1752 NTSTATUS _lsa_RemovePrivilegesFromAccount(pipes_struct *p,
1753                                           struct lsa_RemovePrivilegesFromAccount *r)
1754 {
1755         struct lsa_info *info = NULL;
1756         SE_PRIV mask;
1757         struct lsa_PrivilegeSet *set = NULL;
1758
1759         /* find the connection policy handle. */
1760         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&info))
1761                 return NT_STATUS_INVALID_HANDLE;
1762
1763         /* check to see if the pipe_user is root or a Domain Admin since
1764            account_pol.tdb was already opened as root, this is all we have */
1765
1766         if ( p->pipe_user.ut.uid != sec_initial_uid()
1767                 && !nt_token_check_domain_rid( p->pipe_user.nt_user_token, DOMAIN_GROUP_RID_ADMINS ) )
1768         {
1769                 return NT_STATUS_ACCESS_DENIED;
1770         }
1771
1772         set = r->in.privs;
1773
1774         if ( !privilege_set_to_se_priv( &mask, set ) )
1775                 return NT_STATUS_NO_SUCH_PRIVILEGE;
1776
1777         if ( !revoke_privilege( &info->sid, &mask ) ) {
1778                 DEBUG(3,("_lsa_RemovePrivilegesFromAccount: revoke_privilege(%s) failed!\n",
1779                          sid_string_dbg(&info->sid) ));
1780                 DEBUG(3,("Privilege mask:\n"));
1781                 dump_se_priv( DBGC_ALL, 3, &mask );
1782                 return NT_STATUS_NO_SUCH_PRIVILEGE;
1783         }
1784
1785         return NT_STATUS_OK;
1786 }
1787
1788 /***************************************************************************
1789  _lsa_QuerySecurity
1790  ***************************************************************************/
1791
1792 NTSTATUS _lsa_QuerySecurity(pipes_struct *p,
1793                             struct lsa_QuerySecurity *r)
1794 {
1795         struct lsa_info *handle=NULL;
1796         SEC_DESC *psd = NULL;
1797         size_t sd_size;
1798         NTSTATUS status;
1799
1800         /* find the connection policy handle. */
1801         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&handle))
1802                 return NT_STATUS_INVALID_HANDLE;
1803
1804         /* check if the user have enough rights */
1805         if (!(handle->access & LSA_POLICY_VIEW_LOCAL_INFORMATION))
1806                 return NT_STATUS_ACCESS_DENIED;
1807
1808
1809         switch (r->in.sec_info) {
1810         case 1:
1811                 /* SD contains only the owner */
1812
1813                 status=lsa_get_generic_sd(p->mem_ctx, &psd, &sd_size);
1814                 if(!NT_STATUS_IS_OK(status))
1815                         return NT_STATUS_NO_MEMORY;
1816
1817
1818                 if((*r->out.sdbuf = make_sec_desc_buf(p->mem_ctx, sd_size, psd)) == NULL)
1819                         return NT_STATUS_NO_MEMORY;
1820                 break;
1821         case 4:
1822                 /* SD contains only the ACL */
1823
1824                 status=lsa_get_generic_sd(p->mem_ctx, &psd, &sd_size);
1825                 if(!NT_STATUS_IS_OK(status))
1826                         return NT_STATUS_NO_MEMORY;
1827
1828                 if((*r->out.sdbuf = make_sec_desc_buf(p->mem_ctx, sd_size, psd)) == NULL)
1829                         return NT_STATUS_NO_MEMORY;
1830                 break;
1831         default:
1832                 return NT_STATUS_INVALID_LEVEL;
1833         }
1834
1835         return status;
1836 }
1837
1838 #if 0   /* AD DC work in ongoing in Samba 4 */
1839
1840 /***************************************************************************
1841  ***************************************************************************/
1842
1843  NTSTATUS _lsa_query_info2(pipes_struct *p, LSA_Q_QUERY_INFO2 *q_u, LSA_R_QUERY_INFO2 *r_u)
1844 {
1845         struct lsa_info *handle;
1846         const char *nb_name;
1847         char *dns_name = NULL;
1848         char *forest_name = NULL;
1849         DOM_SID *sid = NULL;
1850         struct GUID guid;
1851         fstring dnsdomname;
1852
1853         ZERO_STRUCT(guid);
1854         r_u->status = NT_STATUS_OK;
1855
1856         if (!find_policy_by_hnd(p, &q_u->pol, (void **)(void *)&handle))
1857                 return NT_STATUS_INVALID_HANDLE;
1858
1859         switch (q_u->info_class) {
1860         case 0x0c:
1861                 /* check if the user have enough rights */
1862                 if (!(handle->access & LSA_POLICY_VIEW_LOCAL_INFORMATION))
1863                         return NT_STATUS_ACCESS_DENIED;
1864
1865                 /* Request PolicyPrimaryDomainInformation. */
1866                 switch (lp_server_role()) {
1867                         case ROLE_DOMAIN_PDC:
1868                         case ROLE_DOMAIN_BDC:
1869                                 nb_name = get_global_sam_name();
1870                                 /* ugly temp hack for these next two */
1871
1872                                 /* This should be a 'netbios domain -> DNS domain' mapping */
1873                                 dnsdomname = get_mydnsdomname(p->mem_ctx);
1874                                 if (!dnsdomname || !*dnsdomname) {
1875                                         return NT_STATUS_CANT_ACCESS_DOMAIN_INFO;
1876                                 }
1877                                 strlower_m(dnsdomname);
1878
1879                                 dns_name = dnsdomname;
1880                                 forest_name = dnsdomname;
1881
1882                                 sid = get_global_sam_sid();
1883                                 secrets_fetch_domain_guid(lp_workgroup(), &guid);
1884                                 break;
1885                         default:
1886                                 return NT_STATUS_CANT_ACCESS_DOMAIN_INFO;
1887                 }
1888                 init_dns_dom_info(&r_u->info.dns_dom_info, nb_name, dns_name,
1889                                   forest_name,&guid,sid);
1890                 break;
1891         default:
1892                 DEBUG(0,("_lsa_query_info2: unknown info level in Lsa Query: %d\n", q_u->info_class));
1893                 r_u->status = NT_STATUS_INVALID_INFO_CLASS;
1894                 break;
1895         }
1896
1897         if (NT_STATUS_IS_OK(r_u->status)) {
1898                 r_u->ptr = 0x1;
1899                 r_u->info_class = q_u->info_class;
1900         }
1901
1902         return r_u->status;
1903 }
1904 #endif  /* AD DC work in ongoing in Samba 4 */
1905
1906 /***************************************************************************
1907  _lsa_AddAccountRights
1908  ***************************************************************************/
1909
1910 NTSTATUS _lsa_AddAccountRights(pipes_struct *p,
1911                                struct lsa_AddAccountRights *r)
1912 {
1913         struct lsa_info *info = NULL;
1914         int i = 0;
1915         DOM_SID sid;
1916
1917         /* find the connection policy handle. */
1918         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&info))
1919                 return NT_STATUS_INVALID_HANDLE;
1920
1921         /* check to see if the pipe_user is a Domain Admin since
1922            account_pol.tdb was already opened as root, this is all we have */
1923
1924         if ( p->pipe_user.ut.uid != sec_initial_uid()
1925                 && !nt_token_check_domain_rid( p->pipe_user.nt_user_token, DOMAIN_GROUP_RID_ADMINS ) )
1926         {
1927                 return NT_STATUS_ACCESS_DENIED;
1928         }
1929
1930         /* according to an NT4 PDC, you can add privileges to SIDs even without
1931            call_lsa_create_account() first.  And you can use any arbitrary SID. */
1932
1933         sid_copy( &sid, r->in.sid );
1934
1935         for ( i=0; i < r->in.rights->count; i++ ) {
1936
1937                 const char *privname = r->in.rights->names[i].string;
1938
1939                 /* only try to add non-null strings */
1940
1941                 if ( !privname )
1942                         continue;
1943
1944                 if ( !grant_privilege_by_name( &sid, privname ) ) {
1945                         DEBUG(2,("_lsa_AddAccountRights: Failed to add privilege [%s]\n",
1946                                 privname ));
1947                         return NT_STATUS_NO_SUCH_PRIVILEGE;
1948                 }
1949         }
1950
1951         return NT_STATUS_OK;
1952 }
1953
1954 /***************************************************************************
1955  _lsa_RemoveAccountRights
1956  ***************************************************************************/
1957
1958 NTSTATUS _lsa_RemoveAccountRights(pipes_struct *p,
1959                                   struct lsa_RemoveAccountRights *r)
1960 {
1961         struct lsa_info *info = NULL;
1962         int i = 0;
1963         DOM_SID sid;
1964         const char *privname = NULL;
1965
1966         /* find the connection policy handle. */
1967         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&info))
1968                 return NT_STATUS_INVALID_HANDLE;
1969
1970         /* check to see if the pipe_user is a Domain Admin since
1971            account_pol.tdb was already opened as root, this is all we have */
1972
1973         if ( p->pipe_user.ut.uid != sec_initial_uid()
1974                 && !nt_token_check_domain_rid( p->pipe_user.nt_user_token, DOMAIN_GROUP_RID_ADMINS ) )
1975         {
1976                 return NT_STATUS_ACCESS_DENIED;
1977         }
1978
1979         sid_copy( &sid, r->in.sid );
1980
1981         if ( r->in.remove_all ) {
1982                 if ( !revoke_all_privileges( &sid ) )
1983                         return NT_STATUS_ACCESS_DENIED;
1984
1985                 return NT_STATUS_OK;
1986         }
1987
1988         for ( i=0; i < r->in.rights->count; i++ ) {
1989
1990                 privname = r->in.rights->names[i].string;
1991
1992                 /* only try to add non-null strings */
1993
1994                 if ( !privname )
1995                         continue;
1996
1997                 if ( !revoke_privilege_by_name( &sid, privname ) ) {
1998                         DEBUG(2,("_lsa_RemoveAccountRights: Failed to revoke privilege [%s]\n",
1999                                 privname ));
2000                         return NT_STATUS_NO_SUCH_PRIVILEGE;
2001                 }
2002         }
2003
2004         return NT_STATUS_OK;
2005 }
2006
2007 /*******************************************************************
2008 ********************************************************************/
2009
2010 static NTSTATUS init_lsa_right_set(TALLOC_CTX *mem_ctx,
2011                                    struct lsa_RightSet *r,
2012                                    PRIVILEGE_SET *privileges)
2013 {
2014         uint32 i;
2015         const char *privname;
2016         const char **privname_array = NULL;
2017         int num_priv = 0;
2018
2019         for (i=0; i<privileges->count; i++) {
2020
2021                 privname = luid_to_privilege_name(&privileges->set[i].luid);
2022                 if (privname) {
2023                         if (!add_string_to_array(mem_ctx, privname,
2024                                                  &privname_array, &num_priv)) {
2025                                 return NT_STATUS_NO_MEMORY;
2026                         }
2027                 }
2028         }
2029
2030         if (num_priv) {
2031
2032                 r->names = TALLOC_ZERO_ARRAY(mem_ctx, struct lsa_StringLarge,
2033                                              num_priv);
2034                 if (!r->names) {
2035                         return NT_STATUS_NO_MEMORY;
2036                 }
2037
2038                 for (i=0; i<num_priv; i++) {
2039                         init_lsa_StringLarge(&r->names[i], privname_array[i]);
2040                 }
2041
2042                 r->count = num_priv;
2043         }
2044
2045         return NT_STATUS_OK;
2046 }
2047
2048 /***************************************************************************
2049  _lsa_EnumAccountRights
2050  ***************************************************************************/
2051
2052 NTSTATUS _lsa_EnumAccountRights(pipes_struct *p,
2053                                 struct lsa_EnumAccountRights *r)
2054 {
2055         NTSTATUS status;
2056         struct lsa_info *info = NULL;
2057         DOM_SID sid;
2058         PRIVILEGE_SET privileges;
2059         SE_PRIV mask;
2060
2061         /* find the connection policy handle. */
2062
2063         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&info))
2064                 return NT_STATUS_INVALID_HANDLE;
2065
2066         /* according to an NT4 PDC, you can add privileges to SIDs even without
2067            call_lsa_create_account() first.  And you can use any arbitrary SID. */
2068
2069         sid_copy( &sid, r->in.sid );
2070
2071         if ( !get_privileges_for_sids( &mask, &sid, 1 ) )
2072                 return NT_STATUS_OBJECT_NAME_NOT_FOUND;
2073
2074         privilege_set_init( &privileges );
2075
2076         if ( se_priv_to_privilege_set( &privileges, &mask ) ) {
2077
2078                 DEBUG(10,("_lsa_EnumAccountRights: %s has %d privileges\n",
2079                           sid_string_dbg(&sid), privileges.count));
2080
2081                 status = init_lsa_right_set(p->mem_ctx, r->out.rights, &privileges);
2082         } else {
2083                 status = NT_STATUS_NO_SUCH_PRIVILEGE;
2084         }
2085
2086         privilege_set_free( &privileges );
2087
2088         return status;
2089 }
2090
2091 /***************************************************************************
2092  _lsa_LookupPrivValue
2093  ***************************************************************************/
2094
2095 NTSTATUS _lsa_LookupPrivValue(pipes_struct *p,
2096                               struct lsa_LookupPrivValue *r)
2097 {
2098         struct lsa_info *info = NULL;
2099         const char *name = NULL;
2100         LUID_ATTR priv_luid;
2101         SE_PRIV mask;
2102
2103         /* find the connection policy handle. */
2104
2105         if (!find_policy_by_hnd(p, r->in.handle, (void **)(void *)&info))
2106                 return NT_STATUS_INVALID_HANDLE;
2107
2108         name = r->in.name->string;
2109
2110         DEBUG(10,("_lsa_lookup_priv_value: name = %s\n", name));
2111
2112         if ( !se_priv_from_name( name, &mask ) )
2113                 return NT_STATUS_NO_SUCH_PRIVILEGE;
2114
2115         priv_luid = get_privilege_luid( &mask );
2116
2117         r->out.luid->low = priv_luid.luid.low;
2118         r->out.luid->high = priv_luid.luid.high;
2119
2120         return NT_STATUS_OK;
2121 }
2122
2123 /*
2124  * From here on the server routines are just dummy ones to make smbd link with
2125  * librpc/gen_ndr/srv_lsa.c. These routines are actually never called, we are
2126  * pulling the server stubs across one by one.
2127  */
2128
2129 NTSTATUS _lsa_Delete(pipes_struct *p, struct lsa_Delete *r)
2130 {
2131         p->rng_fault_state = True;
2132         return NT_STATUS_NOT_IMPLEMENTED;
2133 }
2134
2135 NTSTATUS _lsa_SetSecObj(pipes_struct *p, struct lsa_SetSecObj *r)
2136 {
2137         p->rng_fault_state = True;
2138         return NT_STATUS_NOT_IMPLEMENTED;
2139 }
2140
2141 NTSTATUS _lsa_ChangePassword(pipes_struct *p, struct lsa_ChangePassword *r)
2142 {
2143         p->rng_fault_state = True;
2144         return NT_STATUS_NOT_IMPLEMENTED;
2145 }
2146
2147 NTSTATUS _lsa_SetInfoPolicy(pipes_struct *p, struct lsa_SetInfoPolicy *r)
2148 {
2149         p->rng_fault_state = True;
2150         return NT_STATUS_NOT_IMPLEMENTED;
2151 }
2152
2153 NTSTATUS _lsa_ClearAuditLog(pipes_struct *p, struct lsa_ClearAuditLog *r)
2154 {
2155         p->rng_fault_state = True;
2156         return NT_STATUS_NOT_IMPLEMENTED;
2157 }
2158
2159 NTSTATUS _lsa_GetQuotasForAccount(pipes_struct *p, struct lsa_GetQuotasForAccount *r)
2160 {
2161         p->rng_fault_state = True;
2162         return NT_STATUS_NOT_IMPLEMENTED;
2163 }
2164
2165 NTSTATUS _lsa_SetQuotasForAccount(pipes_struct *p, struct lsa_SetQuotasForAccount *r)
2166 {
2167         p->rng_fault_state = True;
2168         return NT_STATUS_NOT_IMPLEMENTED;
2169 }
2170
2171 NTSTATUS _lsa_QueryTrustedDomainInfo(pipes_struct *p, struct lsa_QueryTrustedDomainInfo *r)
2172 {
2173         p->rng_fault_state = True;
2174         return NT_STATUS_NOT_IMPLEMENTED;
2175 }
2176
2177 NTSTATUS _lsa_SetInformationTrustedDomain(pipes_struct *p, struct lsa_SetInformationTrustedDomain *r)
2178 {
2179         p->rng_fault_state = True;
2180         return NT_STATUS_NOT_IMPLEMENTED;
2181 }
2182
2183 NTSTATUS _lsa_QuerySecret(pipes_struct *p, struct lsa_QuerySecret *r)
2184 {
2185         p->rng_fault_state = True;
2186         return NT_STATUS_NOT_IMPLEMENTED;
2187 }
2188
2189 NTSTATUS _lsa_LookupPrivName(pipes_struct *p, struct lsa_LookupPrivName *r)
2190 {
2191         p->rng_fault_state = True;
2192         return NT_STATUS_NOT_IMPLEMENTED;
2193 }
2194
2195 NTSTATUS _lsa_EnumAccountsWithUserRight(pipes_struct *p, struct lsa_EnumAccountsWithUserRight *r)
2196 {
2197         p->rng_fault_state = True;
2198         return NT_STATUS_NOT_IMPLEMENTED;
2199 }
2200
2201 NTSTATUS _lsa_QueryTrustedDomainInfoBySid(pipes_struct *p, struct lsa_QueryTrustedDomainInfoBySid *r)
2202 {
2203         p->rng_fault_state = True;
2204         return NT_STATUS_NOT_IMPLEMENTED;
2205 }
2206
2207 NTSTATUS _lsa_SetTrustedDomainInfo(pipes_struct *p, struct lsa_SetTrustedDomainInfo *r)
2208 {
2209         p->rng_fault_state = True;
2210         return NT_STATUS_NOT_IMPLEMENTED;
2211 }
2212
2213 NTSTATUS _lsa_DeleteTrustedDomain(pipes_struct *p, struct lsa_DeleteTrustedDomain *r)
2214 {
2215         p->rng_fault_state = True;
2216         return NT_STATUS_NOT_IMPLEMENTED;
2217 }
2218
2219 NTSTATUS _lsa_StorePrivateData(pipes_struct *p, struct lsa_StorePrivateData *r)
2220 {
2221         p->rng_fault_state = True;
2222         return NT_STATUS_NOT_IMPLEMENTED;
2223 }
2224
2225 NTSTATUS _lsa_RetrievePrivateData(pipes_struct *p, struct lsa_RetrievePrivateData *r)
2226 {
2227         p->rng_fault_state = True;
2228         return NT_STATUS_NOT_IMPLEMENTED;
2229 }
2230
2231 NTSTATUS _lsa_QueryInfoPolicy2(pipes_struct *p, struct lsa_QueryInfoPolicy2 *r)
2232 {
2233         p->rng_fault_state = True;
2234         return NT_STATUS_NOT_IMPLEMENTED;
2235 }
2236
2237 NTSTATUS _lsa_SetInfoPolicy2(pipes_struct *p, struct lsa_SetInfoPolicy2 *r)
2238 {
2239         p->rng_fault_state = True;
2240         return NT_STATUS_NOT_IMPLEMENTED;
2241 }
2242
2243 NTSTATUS _lsa_QueryTrustedDomainInfoByName(pipes_struct *p, struct lsa_QueryTrustedDomainInfoByName *r)
2244 {
2245         p->rng_fault_state = True;
2246         return NT_STATUS_NOT_IMPLEMENTED;
2247 }
2248
2249 NTSTATUS _lsa_SetTrustedDomainInfoByName(pipes_struct *p, struct lsa_SetTrustedDomainInfoByName *r)
2250 {
2251         p->rng_fault_state = True;
2252         return NT_STATUS_NOT_IMPLEMENTED;
2253 }
2254
2255 NTSTATUS _lsa_EnumTrustedDomainsEx(pipes_struct *p, struct lsa_EnumTrustedDomainsEx *r)
2256 {
2257         p->rng_fault_state = True;
2258         return NT_STATUS_NOT_IMPLEMENTED;
2259 }
2260
2261 NTSTATUS _lsa_CreateTrustedDomainEx(pipes_struct *p, struct lsa_CreateTrustedDomainEx *r)
2262 {
2263         p->rng_fault_state = True;
2264         return NT_STATUS_NOT_IMPLEMENTED;
2265 }
2266
2267 NTSTATUS _lsa_CloseTrustedDomainEx(pipes_struct *p, struct lsa_CloseTrustedDomainEx *r)
2268 {
2269         p->rng_fault_state = True;
2270         return NT_STATUS_NOT_IMPLEMENTED;
2271 }
2272
2273 NTSTATUS _lsa_QueryDomainInformationPolicy(pipes_struct *p, struct lsa_QueryDomainInformationPolicy *r)
2274 {
2275         p->rng_fault_state = True;
2276         return NT_STATUS_NOT_IMPLEMENTED;
2277 }
2278
2279 NTSTATUS _lsa_SetDomainInformationPolicy(pipes_struct *p, struct lsa_SetDomainInformationPolicy *r)
2280 {
2281         p->rng_fault_state = True;
2282         return NT_STATUS_NOT_IMPLEMENTED;
2283 }
2284
2285 NTSTATUS _lsa_OpenTrustedDomainByName(pipes_struct *p, struct lsa_OpenTrustedDomainByName *r)
2286 {
2287         p->rng_fault_state = True;
2288         return NT_STATUS_NOT_IMPLEMENTED;
2289 }
2290
2291 NTSTATUS _lsa_TestCall(pipes_struct *p, struct lsa_TestCall *r)
2292 {
2293         p->rng_fault_state = True;
2294         return NT_STATUS_NOT_IMPLEMENTED;
2295 }
2296
2297 NTSTATUS _lsa_CreateTrustedDomainEx2(pipes_struct *p, struct lsa_CreateTrustedDomainEx2 *r)
2298 {
2299         p->rng_fault_state = True;
2300         return NT_STATUS_NOT_IMPLEMENTED;
2301 }
2302
2303 NTSTATUS _lsa_CREDRWRITE(pipes_struct *p, struct lsa_CREDRWRITE *r)
2304 {
2305         p->rng_fault_state = True;
2306         return NT_STATUS_NOT_IMPLEMENTED;
2307 }
2308
2309 NTSTATUS _lsa_CREDRREAD(pipes_struct *p, struct lsa_CREDRREAD *r)
2310 {
2311         p->rng_fault_state = True;
2312         return NT_STATUS_NOT_IMPLEMENTED;
2313 }
2314
2315 NTSTATUS _lsa_CREDRENUMERATE(pipes_struct *p, struct lsa_CREDRENUMERATE *r)
2316 {
2317         p->rng_fault_state = True;
2318         return NT_STATUS_NOT_IMPLEMENTED;
2319 }
2320
2321 NTSTATUS _lsa_CREDRWRITEDOMAINCREDENTIALS(pipes_struct *p, struct lsa_CREDRWRITEDOMAINCREDENTIALS *r)
2322 {
2323         p->rng_fault_state = True;
2324         return NT_STATUS_NOT_IMPLEMENTED;
2325 }
2326
2327 NTSTATUS _lsa_CREDRREADDOMAINCREDENTIALS(pipes_struct *p, struct lsa_CREDRREADDOMAINCREDENTIALS *r)
2328 {
2329         p->rng_fault_state = True;
2330         return NT_STATUS_NOT_IMPLEMENTED;
2331 }
2332
2333 NTSTATUS _lsa_CREDRDELETE(pipes_struct *p, struct lsa_CREDRDELETE *r)
2334 {
2335         p->rng_fault_state = True;
2336         return NT_STATUS_NOT_IMPLEMENTED;
2337 }
2338
2339 NTSTATUS _lsa_CREDRGETTARGETINFO(pipes_struct *p, struct lsa_CREDRGETTARGETINFO *r)
2340 {
2341         p->rng_fault_state = True;
2342         return NT_STATUS_NOT_IMPLEMENTED;
2343 }
2344
2345 NTSTATUS _lsa_CREDRPROFILELOADED(pipes_struct *p, struct lsa_CREDRPROFILELOADED *r)
2346 {
2347         p->rng_fault_state = True;
2348         return NT_STATUS_NOT_IMPLEMENTED;
2349 }
2350
2351 NTSTATUS _lsa_CREDRGETSESSIONTYPES(pipes_struct *p, struct lsa_CREDRGETSESSIONTYPES *r)
2352 {
2353         p->rng_fault_state = True;
2354         return NT_STATUS_NOT_IMPLEMENTED;
2355 }
2356
2357 NTSTATUS _lsa_LSARREGISTERAUDITEVENT(pipes_struct *p, struct lsa_LSARREGISTERAUDITEVENT *r)
2358 {
2359         p->rng_fault_state = True;
2360         return NT_STATUS_NOT_IMPLEMENTED;
2361 }
2362
2363 NTSTATUS _lsa_LSARGENAUDITEVENT(pipes_struct *p, struct lsa_LSARGENAUDITEVENT *r)
2364 {
2365         p->rng_fault_state = True;
2366         return NT_STATUS_NOT_IMPLEMENTED;
2367 }
2368
2369 NTSTATUS _lsa_LSARUNREGISTERAUDITEVENT(pipes_struct *p, struct lsa_LSARUNREGISTERAUDITEVENT *r)
2370 {
2371         p->rng_fault_state = True;
2372         return NT_STATUS_NOT_IMPLEMENTED;
2373 }
2374
2375 NTSTATUS _lsa_lsaRQueryForestTrustInformation(pipes_struct *p, struct lsa_lsaRQueryForestTrustInformation *r)
2376 {
2377         p->rng_fault_state = True;
2378         return NT_STATUS_NOT_IMPLEMENTED;
2379 }
2380
2381 NTSTATUS _lsa_LSARSETFORESTTRUSTINFORMATION(pipes_struct *p, struct lsa_LSARSETFORESTTRUSTINFORMATION *r)
2382 {
2383         p->rng_fault_state = True;
2384         return NT_STATUS_NOT_IMPLEMENTED;
2385 }
2386
2387 NTSTATUS _lsa_CREDRRENAME(pipes_struct *p, struct lsa_CREDRRENAME *r)
2388 {
2389         p->rng_fault_state = True;
2390         return NT_STATUS_NOT_IMPLEMENTED;
2391 }
2392
2393 NTSTATUS _lsa_LSAROPENPOLICYSCE(pipes_struct *p, struct lsa_LSAROPENPOLICYSCE *r)
2394 {
2395         p->rng_fault_state = True;
2396         return NT_STATUS_NOT_IMPLEMENTED;
2397 }
2398
2399 NTSTATUS _lsa_LSARADTREGISTERSECURITYEVENTSOURCE(pipes_struct *p, struct lsa_LSARADTREGISTERSECURITYEVENTSOURCE *r)
2400 {
2401         p->rng_fault_state = True;
2402         return NT_STATUS_NOT_IMPLEMENTED;
2403 }
2404
2405 NTSTATUS _lsa_LSARADTUNREGISTERSECURITYEVENTSOURCE(pipes_struct *p, struct lsa_LSARADTUNREGISTERSECURITYEVENTSOURCE *r)
2406 {
2407         p->rng_fault_state = True;
2408         return NT_STATUS_NOT_IMPLEMENTED;
2409 }
2410
2411 NTSTATUS _lsa_LSARADTREPORTSECURITYEVENT(pipes_struct *p, struct lsa_LSARADTREPORTSECURITYEVENT *r)
2412 {
2413         p->rng_fault_state = True;
2414         return NT_STATUS_NOT_IMPLEMENTED;
2415 }