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