Logo Search packages:      
Sourcecode: samba4 version File versions  Download package

lsa.c

/*
   Unix SMB/CIFS implementation.
   test suite for lsa rpc operations

   Copyright (C) Andrew Tridgell 2003
   Copyright (C) Andrew Bartlett <abartlet@samba.org> 2004-2005

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 3 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

#include "includes.h"
#include "torture/torture.h"
#include "librpc/gen_ndr/ndr_lsa_c.h"
#include "librpc/gen_ndr/netlogon.h"
#include "librpc/gen_ndr/ndr_drsblobs.h"
#include "lib/events/events.h"
#include "libcli/security/security.h"
#include "libcli/auth/libcli_auth.h"
#include "torture/rpc/torture_rpc.h"
#include "param/param.h"
#include "../lib/crypto/crypto.h"
#define TEST_MACHINENAME "lsatestmach"

static void init_lsa_String(struct lsa_String *name, const char *s)
{
      name->string = s;
}

static bool test_OpenPolicy(struct dcerpc_binding_handle *b,
                      struct torture_context *tctx)
{
      struct lsa_ObjectAttribute attr;
      struct policy_handle handle;
      struct lsa_QosInfo qos;
      struct lsa_OpenPolicy r;
      uint16_t system_name = '\\';

      torture_comment(tctx, "\nTesting OpenPolicy\n");

      qos.len = 0;
      qos.impersonation_level = 2;
      qos.context_mode = 1;
      qos.effective_only = 0;

      attr.len = 0;
      attr.root_dir = NULL;
      attr.object_name = NULL;
      attr.attributes = 0;
      attr.sec_desc = NULL;
      attr.sec_qos = &qos;

      r.in.system_name = &system_name;
      r.in.attr = &attr;
      r.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
      r.out.handle = &handle;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_OpenPolicy_r(b, tctx, &r),
                           "OpenPolicy failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            if (NT_STATUS_EQUAL(r.out.result, NT_STATUS_ACCESS_DENIED) ||
                NT_STATUS_EQUAL(r.out.result, NT_STATUS_RPC_PROTSEQ_NOT_SUPPORTED)) {
                  torture_comment(tctx, "not considering %s to be an error\n",
                              nt_errstr(r.out.result));
                  return true;
            }
            torture_comment(tctx, "OpenPolicy failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      return true;
}


bool test_lsa_OpenPolicy2_ex(struct dcerpc_binding_handle *b,
                       struct torture_context *tctx,
                       struct policy_handle **handle,
                       NTSTATUS expected_status)
{
      struct lsa_ObjectAttribute attr;
      struct lsa_QosInfo qos;
      struct lsa_OpenPolicy2 r;
      NTSTATUS status;

      torture_comment(tctx, "\nTesting OpenPolicy2\n");

      *handle = talloc(tctx, struct policy_handle);
      if (!*handle) {
            return false;
      }

      qos.len = 0;
      qos.impersonation_level = 2;
      qos.context_mode = 1;
      qos.effective_only = 0;

      attr.len = 0;
      attr.root_dir = NULL;
      attr.object_name = NULL;
      attr.attributes = 0;
      attr.sec_desc = NULL;
      attr.sec_qos = &qos;

      r.in.system_name = "\\";
      r.in.attr = &attr;
      r.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
      r.out.handle = *handle;

      status = dcerpc_lsa_OpenPolicy2_r(b, tctx, &r);
      torture_assert_ntstatus_equal(tctx, status, expected_status,
                           "OpenPolicy2 failed");
      if (!NT_STATUS_IS_OK(expected_status)) {
            return true;
      }
      if (!NT_STATUS_IS_OK(r.out.result)) {
            if (NT_STATUS_EQUAL(r.out.result, NT_STATUS_ACCESS_DENIED) ||
                NT_STATUS_EQUAL(r.out.result, NT_STATUS_RPC_PROTSEQ_NOT_SUPPORTED)) {
                  torture_comment(tctx, "not considering %s to be an error\n",
                              nt_errstr(r.out.result));
                  talloc_free(*handle);
                  *handle = NULL;
                  return true;
            }
            torture_comment(tctx, "OpenPolicy2 failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      return true;
}


bool test_lsa_OpenPolicy2(struct dcerpc_binding_handle *b,
                    struct torture_context *tctx,
                    struct policy_handle **handle)
{
      return test_lsa_OpenPolicy2_ex(b, tctx, handle, NT_STATUS_OK);
}

static const char *sid_type_lookup(enum lsa_SidType r)
{
      switch (r) {
            case SID_NAME_USE_NONE: return "SID_NAME_USE_NONE"; break;
            case SID_NAME_USER: return "SID_NAME_USER"; break;
            case SID_NAME_DOM_GRP: return "SID_NAME_DOM_GRP"; break;
            case SID_NAME_DOMAIN: return "SID_NAME_DOMAIN"; break;
            case SID_NAME_ALIAS: return "SID_NAME_ALIAS"; break;
            case SID_NAME_WKN_GRP: return "SID_NAME_WKN_GRP"; break;
            case SID_NAME_DELETED: return "SID_NAME_DELETED"; break;
            case SID_NAME_INVALID: return "SID_NAME_INVALID"; break;
            case SID_NAME_UNKNOWN: return "SID_NAME_UNKNOWN"; break;
            case SID_NAME_COMPUTER: return "SID_NAME_COMPUTER"; break;
      }
      return "Invalid sid type\n";
}

static bool test_LookupNames(struct dcerpc_binding_handle *b,
                       struct torture_context *tctx,
                       struct policy_handle *handle,
                       struct lsa_TransNameArray *tnames)
{
      struct lsa_LookupNames r;
      struct lsa_TransSidArray sids;
      struct lsa_RefDomainList *domains = NULL;
      struct lsa_String *names;
      uint32_t count = 0;
      int i;

      torture_comment(tctx, "\nTesting LookupNames with %d names\n", tnames->count);

      sids.count = 0;
      sids.sids = NULL;

      names = talloc_array(tctx, struct lsa_String, tnames->count);
      for (i=0;i<tnames->count;i++) {
            init_lsa_String(&names[i], tnames->names[i].name.string);
      }

      r.in.handle = handle;
      r.in.num_names = tnames->count;
      r.in.names = names;
      r.in.sids = &sids;
      r.in.level = 1;
      r.in.count = &count;
      r.out.count = &count;
      r.out.sids = &sids;
      r.out.domains = &domains;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupNames_r(b, tctx, &r),
                           "LookupNames failed");
      if (NT_STATUS_EQUAL(r.out.result, STATUS_SOME_UNMAPPED) ||
          NT_STATUS_EQUAL(r.out.result, NT_STATUS_NONE_MAPPED)) {
            for (i=0;i< tnames->count;i++) {
                  if (i < count && sids.sids[i].sid_type == SID_NAME_UNKNOWN) {
                        torture_comment(tctx, "LookupName of %s was unmapped\n",
                               tnames->names[i].name.string);
                  } else if (i >=count) {
                        torture_comment(tctx, "LookupName of %s failed to return a result\n",
                               tnames->names[i].name.string);
                  }
            }
            torture_comment(tctx, "LookupNames failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      } else if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "LookupNames failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      for (i=0;i< tnames->count;i++) {
            if (i < count) {
                  if (sids.sids[i].sid_type != tnames->names[i].sid_type) {
                        torture_comment(tctx, "LookupName of %s got unexpected name type: %s\n",
                               tnames->names[i].name.string, sid_type_lookup(sids.sids[i].sid_type));
                        return false;
                  }
                  if ((sids.sids[i].sid_type == SID_NAME_DOMAIN) &&
                      (sids.sids[i].rid != (uint32_t)-1)) {
                        torture_comment(tctx, "LookupName of %s got unexpected rid: %d\n",
                              tnames->names[i].name.string, sids.sids[i].rid);
                        return false;
                  }
            } else if (i >=count) {
                  torture_comment(tctx, "LookupName of %s failed to return a result\n",
                         tnames->names[i].name.string);
                  return false;
            }
      }
      torture_comment(tctx, "\n");

      return true;
}

static bool test_LookupNames_bogus(struct dcerpc_binding_handle *b,
                           struct torture_context *tctx,
                           struct policy_handle *handle)
{
      struct lsa_LookupNames r;
      struct lsa_TransSidArray sids;
      struct lsa_RefDomainList *domains = NULL;
      struct lsa_String names[1];
      uint32_t count = 0;

      torture_comment(tctx, "\nTesting LookupNames with bogus name\n");

      sids.count = 0;
      sids.sids = NULL;

      init_lsa_String(&names[0], "NT AUTHORITY\\BOGUS");

      r.in.handle = handle;
      r.in.num_names = 1;
      r.in.names = names;
      r.in.sids = &sids;
      r.in.level = 1;
      r.in.count = &count;
      r.out.count = &count;
      r.out.sids = &sids;
      r.out.domains = &domains;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupNames_r(b, tctx, &r),
                           "LookupNames bogus failed");
      if (!NT_STATUS_EQUAL(r.out.result, NT_STATUS_NONE_MAPPED)) {
            torture_comment(tctx, "LookupNames failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      torture_comment(tctx, "\n");

      return true;
}

static bool test_LookupNames_NULL(struct dcerpc_binding_handle *b,
                          struct torture_context *tctx,
                          struct policy_handle *handle)
{
      struct lsa_LookupNames r;
      struct lsa_TransSidArray sids;
      struct lsa_RefDomainList *domains = NULL;
      struct lsa_String names[1];
      uint32_t count = 0;

      torture_comment(tctx, "\nTesting LookupNames with NULL name\n");

      sids.count = 0;
      sids.sids = NULL;

      names[0].string = NULL;

      r.in.handle = handle;
      r.in.num_names = 1;
      r.in.names = names;
      r.in.sids = &sids;
      r.in.level = 1;
      r.in.count = &count;
      r.out.count = &count;
      r.out.sids = &sids;
      r.out.domains = &domains;

      /* nt4 returns NT_STATUS_NONE_MAPPED with sid_type
       * SID_NAME_UNKNOWN, rid 0, and sid_index -1;
       *
       * w2k3/w2k8 return NT_STATUS_OK with sid_type
       * SID_NAME_DOMAIN, rid -1 and sid_index 0 and BUILTIN domain
       */

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupNames_r(b, tctx, &r),
            "LookupNames with NULL name failed");
      torture_assert_ntstatus_ok(tctx, r.out.result,
            "LookupNames with NULL name failed");

      torture_comment(tctx, "\n");

      return true;
}

static bool test_LookupNames_wellknown(struct dcerpc_binding_handle *b,
                               struct torture_context *tctx,
                               struct policy_handle *handle)
{
      struct lsa_TranslatedName name;
      struct lsa_TransNameArray tnames;
      bool ret = true;

      torture_comment(tctx, "Testing LookupNames with well known names\n");

      tnames.names = &name;
      tnames.count = 1;
      name.name.string = "NT AUTHORITY\\SYSTEM";
      name.sid_type = SID_NAME_WKN_GRP;
      ret &= test_LookupNames(b, tctx, handle, &tnames);

      name.name.string = "NT AUTHORITY\\ANONYMOUS LOGON";
      name.sid_type = SID_NAME_WKN_GRP;
      ret &= test_LookupNames(b, tctx, handle, &tnames);

      name.name.string = "NT AUTHORITY\\Authenticated Users";
      name.sid_type = SID_NAME_WKN_GRP;
      ret &= test_LookupNames(b, tctx, handle, &tnames);

#if 0
      name.name.string = "NT AUTHORITY";
      ret &= test_LookupNames(b, tctx, handle, &tnames);

      name.name.string = "NT AUTHORITY\\";
      ret &= test_LookupNames(b, tctx, handle, &tnames);
#endif

      name.name.string = "BUILTIN\\";
      name.sid_type = SID_NAME_DOMAIN;
      ret &= test_LookupNames(b, tctx, handle, &tnames);

      name.name.string = "BUILTIN\\Administrators";
      name.sid_type = SID_NAME_ALIAS;
      ret &= test_LookupNames(b, tctx, handle, &tnames);

      name.name.string = "SYSTEM";
      name.sid_type = SID_NAME_WKN_GRP;
      ret &= test_LookupNames(b, tctx, handle, &tnames);

      name.name.string = "Everyone";
      name.sid_type = SID_NAME_WKN_GRP;
      ret &= test_LookupNames(b, tctx, handle, &tnames);
      return ret;
}

static bool test_LookupNames2(struct dcerpc_binding_handle *b,
                        struct torture_context *tctx,
                        struct policy_handle *handle,
                        struct lsa_TransNameArray2 *tnames,
                        bool check_result)
{
      struct lsa_LookupNames2 r;
      struct lsa_TransSidArray2 sids;
      struct lsa_RefDomainList *domains = NULL;
      struct lsa_String *names;
      uint32_t count = 0;
      int i;

      torture_comment(tctx, "\nTesting LookupNames2 with %d names\n", tnames->count);

      sids.count = 0;
      sids.sids = NULL;

      names = talloc_array(tctx, struct lsa_String, tnames->count);
      for (i=0;i<tnames->count;i++) {
            init_lsa_String(&names[i], tnames->names[i].name.string);
      }

      r.in.handle = handle;
      r.in.num_names = tnames->count;
      r.in.names = names;
      r.in.sids = &sids;
      r.in.level = 1;
      r.in.count = &count;
      r.in.lookup_options = 0;
      r.in.client_revision = 0;
      r.out.count = &count;
      r.out.sids = &sids;
      r.out.domains = &domains;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupNames2_r(b, tctx, &r),
            "LookupNames2 failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "LookupNames2 failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      if (check_result) {
            torture_assert_int_equal(tctx, count, sids.count,
                  "unexpected number of results returned");
            if (sids.count > 0) {
                  torture_assert(tctx, sids.sids, "invalid sid buffer");
            }
      }

      torture_comment(tctx, "\n");

      return true;
}


static bool test_LookupNames3(struct dcerpc_binding_handle *b,
                        struct torture_context *tctx,
                        struct policy_handle *handle,
                        struct lsa_TransNameArray2 *tnames,
                        bool check_result)
{
      struct lsa_LookupNames3 r;
      struct lsa_TransSidArray3 sids;
      struct lsa_RefDomainList *domains = NULL;
      struct lsa_String *names;
      uint32_t count = 0;
      int i;

      torture_comment(tctx, "\nTesting LookupNames3 with %d names\n", tnames->count);

      sids.count = 0;
      sids.sids = NULL;

      names = talloc_array(tctx, struct lsa_String, tnames->count);
      for (i=0;i<tnames->count;i++) {
            init_lsa_String(&names[i], tnames->names[i].name.string);
      }

      r.in.handle = handle;
      r.in.num_names = tnames->count;
      r.in.names = names;
      r.in.sids = &sids;
      r.in.level = 1;
      r.in.count = &count;
      r.in.lookup_options = 0;
      r.in.client_revision = 0;
      r.out.count = &count;
      r.out.sids = &sids;
      r.out.domains = &domains;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupNames3_r(b, tctx, &r),
            "LookupNames3 failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "LookupNames3 failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      if (check_result) {
            torture_assert_int_equal(tctx, count, sids.count,
                  "unexpected number of results returned");
            if (sids.count > 0) {
                  torture_assert(tctx, sids.sids, "invalid sid buffer");
            }
      }

      torture_comment(tctx, "\n");

      return true;
}

static bool test_LookupNames4(struct dcerpc_binding_handle *b,
                        struct torture_context *tctx,
                        struct lsa_TransNameArray2 *tnames,
                        bool check_result)
{
      struct lsa_LookupNames4 r;
      struct lsa_TransSidArray3 sids;
      struct lsa_RefDomainList *domains = NULL;
      struct lsa_String *names;
      uint32_t count = 0;
      int i;

      torture_comment(tctx, "\nTesting LookupNames4 with %d names\n", tnames->count);

      sids.count = 0;
      sids.sids = NULL;

      names = talloc_array(tctx, struct lsa_String, tnames->count);
      for (i=0;i<tnames->count;i++) {
            init_lsa_String(&names[i], tnames->names[i].name.string);
      }

      r.in.num_names = tnames->count;
      r.in.names = names;
      r.in.sids = &sids;
      r.in.level = 1;
      r.in.count = &count;
      r.in.lookup_options = 0;
      r.in.client_revision = 0;
      r.out.count = &count;
      r.out.sids = &sids;
      r.out.domains = &domains;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupNames4_r(b, tctx, &r),
            "LookupNames4 failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "LookupNames4 failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      if (check_result) {
            torture_assert_int_equal(tctx, count, sids.count,
                  "unexpected number of results returned");
            if (sids.count > 0) {
                  torture_assert(tctx, sids.sids, "invalid sid buffer");
            }
      }

      torture_comment(tctx, "\n");

      return true;
}


static bool test_LookupSids(struct dcerpc_binding_handle *b,
                      struct torture_context *tctx,
                      struct policy_handle *handle,
                      struct lsa_SidArray *sids)
{
      struct lsa_LookupSids r;
      struct lsa_TransNameArray names;
      struct lsa_RefDomainList *domains = NULL;
      uint32_t count = sids->num_sids;

      torture_comment(tctx, "\nTesting LookupSids\n");

      names.count = 0;
      names.names = NULL;

      r.in.handle = handle;
      r.in.sids = sids;
      r.in.names = &names;
      r.in.level = 1;
      r.in.count = &count;
      r.out.count = &count;
      r.out.names = &names;
      r.out.domains = &domains;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupSids_r(b, tctx, &r),
            "LookupSids failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "LookupSids failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      torture_comment(tctx, "\n");

      if (!test_LookupNames(b, tctx, handle, &names)) {
            return false;
      }

      return true;
}


static bool test_LookupSids2(struct dcerpc_binding_handle *b,
                      struct torture_context *tctx,
                      struct policy_handle *handle,
                      struct lsa_SidArray *sids)
{
      struct lsa_LookupSids2 r;
      struct lsa_TransNameArray2 names;
      struct lsa_RefDomainList *domains = NULL;
      uint32_t count = sids->num_sids;

      torture_comment(tctx, "\nTesting LookupSids2\n");

      names.count = 0;
      names.names = NULL;

      r.in.handle = handle;
      r.in.sids = sids;
      r.in.names = &names;
      r.in.level = 1;
      r.in.count = &count;
      r.in.lookup_options = 0;
      r.in.client_revision = 0;
      r.out.count = &count;
      r.out.names = &names;
      r.out.domains = &domains;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupSids2_r(b, tctx, &r),
            "LookupSids2 failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "LookupSids2 failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      torture_comment(tctx, "\n");

      if (!test_LookupNames2(b, tctx, handle, &names, false)) {
            return false;
      }

      if (!test_LookupNames3(b, tctx, handle, &names, false)) {
            return false;
      }

      return true;
}

static bool test_LookupSids3(struct dcerpc_binding_handle *b,
                      struct torture_context *tctx,
                      struct lsa_SidArray *sids)
{
      struct lsa_LookupSids3 r;
      struct lsa_TransNameArray2 names;
      struct lsa_RefDomainList *domains = NULL;
      uint32_t count = sids->num_sids;

      torture_comment(tctx, "\nTesting LookupSids3\n");

      names.count = 0;
      names.names = NULL;

      r.in.sids = sids;
      r.in.names = &names;
      r.in.level = 1;
      r.in.count = &count;
      r.in.lookup_options = 0;
      r.in.client_revision = 0;
      r.out.domains = &domains;
      r.out.count = &count;
      r.out.names = &names;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupSids3_r(b, tctx, &r),
            "LookupSids3 failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            if (NT_STATUS_EQUAL(r.out.result, NT_STATUS_ACCESS_DENIED) ||
                NT_STATUS_EQUAL(r.out.result, NT_STATUS_RPC_PROTSEQ_NOT_SUPPORTED)) {
                  torture_comment(tctx, "not considering %s to be an error\n",
                              nt_errstr(r.out.result));
                  return true;
            }
            torture_comment(tctx, "LookupSids3 failed - %s - not considered an error\n",
                        nt_errstr(r.out.result));
            return false;
      }

      torture_comment(tctx, "\n");

      if (!test_LookupNames4(b, tctx, &names, false)) {
            return false;
      }

      return true;
}

bool test_many_LookupSids(struct dcerpc_pipe *p,
                    struct torture_context *tctx,
                    struct policy_handle *handle)
{
      uint32_t count;
      struct lsa_SidArray sids;
      int i;
      struct dcerpc_binding_handle *b = p->binding_handle;

      torture_comment(tctx, "\nTesting LookupSids with lots of SIDs\n");

      sids.num_sids = 100;

      sids.sids = talloc_array(tctx, struct lsa_SidPtr, sids.num_sids);

      for (i=0; i<sids.num_sids; i++) {
            const char *sidstr = "S-1-5-32-545";
            sids.sids[i].sid = dom_sid_parse_talloc(tctx, sidstr);
      }

      count = sids.num_sids;

      if (handle) {
            struct lsa_LookupSids r;
            struct lsa_TransNameArray names;
            struct lsa_RefDomainList *domains = NULL;
            names.count = 0;
            names.names = NULL;

            r.in.handle = handle;
            r.in.sids = &sids;
            r.in.names = &names;
            r.in.level = 1;
            r.in.count = &names.count;
            r.out.count = &count;
            r.out.names = &names;
            r.out.domains = &domains;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupSids_r(b, tctx, &r),
                  "LookupSids failed");
            if (!NT_STATUS_IS_OK(r.out.result)) {
                  torture_comment(tctx, "LookupSids failed - %s\n",
                              nt_errstr(r.out.result));
                  return false;
            }

            torture_comment(tctx, "\n");

            if (!test_LookupNames(b, tctx, handle, &names)) {
                  return false;
            }
      } else if (p->conn->security_state.auth_info->auth_type == DCERPC_AUTH_TYPE_SCHANNEL &&
               p->conn->security_state.auth_info->auth_level >= DCERPC_AUTH_LEVEL_INTEGRITY) {
            struct lsa_LookupSids3 r;
            struct lsa_RefDomainList *domains = NULL;
            struct lsa_TransNameArray2 names;

            names.count = 0;
            names.names = NULL;

            torture_comment(tctx, "\nTesting LookupSids3\n");

            r.in.sids = &sids;
            r.in.names = &names;
            r.in.level = 1;
            r.in.count = &count;
            r.in.lookup_options = 0;
            r.in.client_revision = 0;
            r.out.count = &count;
            r.out.names = &names;
            r.out.domains = &domains;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupSids3_r(b, tctx, &r),
                  "LookupSids3 failed");
            if (!NT_STATUS_IS_OK(r.out.result)) {
                  if (NT_STATUS_EQUAL(r.out.result, NT_STATUS_ACCESS_DENIED) ||
                      NT_STATUS_EQUAL(r.out.result, NT_STATUS_RPC_PROTSEQ_NOT_SUPPORTED)) {
                        torture_comment(tctx, "not considering %s to be an error\n",
                                    nt_errstr(r.out.result));
                        return true;
                  }
                  torture_comment(tctx, "LookupSids3 failed - %s\n",
                              nt_errstr(r.out.result));
                  return false;
            }
            if (!test_LookupNames4(b, tctx, &names, false)) {
                  return false;
            }
      }

      torture_comment(tctx, "\n");



      return true;
}

static void lookupsids_cb(struct tevent_req *subreq)
{
      int *replies = (int *)tevent_req_callback_data_void(subreq);
      NTSTATUS status;

      status = dcerpc_lsa_LookupSids_r_recv(subreq, subreq);
      TALLOC_FREE(subreq);
      if (!NT_STATUS_IS_OK(status)) {
            printf("lookupsids returned %s\n", nt_errstr(status));
            *replies = -1;
      }

      if (*replies >= 0) {
            *replies += 1;
      }
}

static bool test_LookupSids_async(struct dcerpc_binding_handle *b,
                          struct torture_context *tctx,
                          struct policy_handle *handle)
{
      struct lsa_SidArray sids;
      struct lsa_SidPtr sidptr;
      uint32_t *count;
      struct lsa_TransNameArray *names;
      struct lsa_LookupSids *r;
      struct lsa_RefDomainList *domains = NULL;
      struct tevent_req **req;
      int i, replies;
      bool ret = true;
      const int num_async_requests = 50;

      count = talloc_array(tctx, uint32_t, num_async_requests);
      names = talloc_array(tctx, struct lsa_TransNameArray, num_async_requests);
      r = talloc_array(tctx, struct lsa_LookupSids, num_async_requests);

      torture_comment(tctx, "\nTesting %d async lookupsids request\n", num_async_requests);

      req = talloc_array(tctx, struct tevent_req *, num_async_requests);

      sids.num_sids = 1;
      sids.sids = &sidptr;
      sidptr.sid = dom_sid_parse_talloc(tctx, "S-1-5-32-545");

      replies = 0;

      for (i=0; i<num_async_requests; i++) {
            count[i] = 0;
            names[i].count = 0;
            names[i].names = NULL;

            r[i].in.handle = handle;
            r[i].in.sids = &sids;
            r[i].in.names = &names[i];
            r[i].in.level = 1;
            r[i].in.count = &names[i].count;
            r[i].out.count = &count[i];
            r[i].out.names = &names[i];
            r[i].out.domains = &domains;

            req[i] = dcerpc_lsa_LookupSids_r_send(tctx, tctx->ev, b, &r[i]);
            if (req[i] == NULL) {
                  ret = false;
                  break;
            }

            tevent_req_set_callback(req[i], lookupsids_cb, &replies);
      }

      while (replies >= 0 && replies < num_async_requests) {
            event_loop_once(tctx->ev);
      }

      talloc_free(req);

      if (replies < 0) {
            ret = false;
      }

      return ret;
}

static bool test_LookupPrivValue(struct dcerpc_binding_handle *b,
                         struct torture_context *tctx,
                         struct policy_handle *handle,
                         struct lsa_String *name)
{
      struct lsa_LookupPrivValue r;
      struct lsa_LUID luid;

      r.in.handle = handle;
      r.in.name = name;
      r.out.luid = &luid;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupPrivValue_r(b, tctx, &r),
            "LookupPrivValue failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "\nLookupPrivValue failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      return true;
}

static bool test_LookupPrivName(struct dcerpc_binding_handle *b,
                        struct torture_context *tctx,
                        struct policy_handle *handle,
                        struct lsa_LUID *luid)
{
      struct lsa_LookupPrivName r;
      struct lsa_StringLarge *name = NULL;

      r.in.handle = handle;
      r.in.luid = luid;
      r.out.name = &name;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupPrivName_r(b, tctx, &r),
            "LookupPrivName failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "\nLookupPrivName failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      return true;
}

static bool test_RemovePrivilegesFromAccount(struct dcerpc_binding_handle *b,
                                   struct torture_context *tctx,
                                   struct policy_handle *handle,
                                   struct policy_handle *acct_handle,
                                   struct lsa_LUID *luid)
{
      struct lsa_RemovePrivilegesFromAccount r;
      struct lsa_PrivilegeSet privs;
      bool ret = true;

      torture_comment(tctx, "\nTesting RemovePrivilegesFromAccount\n");

      r.in.handle = acct_handle;
      r.in.remove_all = 0;
      r.in.privs = &privs;

      privs.count = 1;
      privs.unknown = 0;
      privs.set = talloc_array(tctx, struct lsa_LUIDAttribute, 1);
      privs.set[0].luid = *luid;
      privs.set[0].attribute = 0;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_RemovePrivilegesFromAccount_r(b, tctx, &r),
            "RemovePrivilegesFromAccount failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {

            struct lsa_LookupPrivName r_name;
            struct lsa_StringLarge *name = NULL;

            r_name.in.handle = handle;
            r_name.in.luid = luid;
            r_name.out.name = &name;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupPrivName_r(b, tctx, &r_name),
                  "LookupPrivName failed");
            if (!NT_STATUS_IS_OK(r_name.out.result)) {
                  torture_comment(tctx, "\nLookupPrivName failed - %s\n",
                              nt_errstr(r_name.out.result));
                  return false;
            }
            /* Windows 2008 does not allow this to be removed */
            if (strcmp("SeAuditPrivilege", name->string) == 0) {
                  return ret;
            }

            torture_comment(tctx, "RemovePrivilegesFromAccount failed to remove %s - %s\n",
                   name->string,
                   nt_errstr(r.out.result));
            return false;
      }

      return ret;
}

static bool test_AddPrivilegesToAccount(struct dcerpc_binding_handle *b,
                              struct torture_context *tctx,
                              struct policy_handle *acct_handle,
                              struct lsa_LUID *luid)
{
      struct lsa_AddPrivilegesToAccount r;
      struct lsa_PrivilegeSet privs;
      bool ret = true;

      torture_comment(tctx, "\nTesting AddPrivilegesToAccount\n");

      r.in.handle = acct_handle;
      r.in.privs = &privs;

      privs.count = 1;
      privs.unknown = 0;
      privs.set = talloc_array(tctx, struct lsa_LUIDAttribute, 1);
      privs.set[0].luid = *luid;
      privs.set[0].attribute = 0;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_AddPrivilegesToAccount_r(b, tctx, &r),
            "AddPrivilegesToAccount failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "AddPrivilegesToAccount failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      return ret;
}

static bool test_EnumPrivsAccount(struct dcerpc_binding_handle *b,
                          struct torture_context *tctx,
                          struct policy_handle *handle,
                          struct policy_handle *acct_handle)
{
      struct lsa_EnumPrivsAccount r;
      struct lsa_PrivilegeSet *privs = NULL;
      bool ret = true;

      torture_comment(tctx, "\nTesting EnumPrivsAccount\n");

      r.in.handle = acct_handle;
      r.out.privs = &privs;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_EnumPrivsAccount_r(b, tctx, &r),
            "EnumPrivsAccount failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "EnumPrivsAccount failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      if (privs && privs->count > 0) {
            int i;
            for (i=0;i<privs->count;i++) {
                  test_LookupPrivName(b, tctx, handle,
                                  &privs->set[i].luid);
            }

            ret &= test_RemovePrivilegesFromAccount(b, tctx, handle, acct_handle,
                                          &privs->set[0].luid);
            ret &= test_AddPrivilegesToAccount(b, tctx, acct_handle,
                                       &privs->set[0].luid);
      }

      return ret;
}

static bool test_GetSystemAccessAccount(struct dcerpc_binding_handle *b,
                              struct torture_context *tctx,
                              struct policy_handle *handle,
                              struct policy_handle *acct_handle)
{
      uint32_t access_mask;
      struct lsa_GetSystemAccessAccount r;

      torture_comment(tctx, "\nTesting GetSystemAccessAccount\n");

      r.in.handle = acct_handle;
      r.out.access_mask = &access_mask;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_GetSystemAccessAccount_r(b, tctx, &r),
            "GetSystemAccessAccount failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "GetSystemAccessAccount failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      if (r.out.access_mask != NULL) {
            torture_comment(tctx, "Rights:");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_INTERACTIVE)
                  torture_comment(tctx, " LSA_POLICY_MODE_INTERACTIVE");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_NETWORK)
                  torture_comment(tctx, " LSA_POLICY_MODE_NETWORK");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_BATCH)
                  torture_comment(tctx, " LSA_POLICY_MODE_BATCH");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_SERVICE)
                  torture_comment(tctx, " LSA_POLICY_MODE_SERVICE");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_PROXY)
                  torture_comment(tctx, " LSA_POLICY_MODE_PROXY");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_DENY_INTERACTIVE)
                  torture_comment(tctx, " LSA_POLICY_MODE_DENY_INTERACTIVE");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_DENY_NETWORK)
                  torture_comment(tctx, " LSA_POLICY_MODE_DENY_NETWORK");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_DENY_BATCH)
                  torture_comment(tctx, " LSA_POLICY_MODE_DENY_BATCH");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_DENY_SERVICE)
                  torture_comment(tctx, " LSA_POLICY_MODE_DENY_SERVICE");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_REMOTE_INTERACTIVE)
                  torture_comment(tctx, " LSA_POLICY_MODE_REMOTE_INTERACTIVE");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_DENY_REMOTE_INTERACTIVE)
                  torture_comment(tctx, " LSA_POLICY_MODE_DENY_REMOTE_INTERACTIVE");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_ALL)
                  torture_comment(tctx, " LSA_POLICY_MODE_ALL");
            if (*(r.out.access_mask) & LSA_POLICY_MODE_ALL_NT4)
                  torture_comment(tctx, " LSA_POLICY_MODE_ALL_NT4");
            torture_comment(tctx, "\n");
      }

      return true;
}

static bool test_Delete(struct dcerpc_binding_handle *b,
                  struct torture_context *tctx,
                  struct policy_handle *handle)
{
      struct lsa_Delete r;

      torture_comment(tctx, "\nTesting Delete\n");

      r.in.handle = handle;
      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_Delete_r(b, tctx, &r),
            "Delete failed");
      if (!NT_STATUS_EQUAL(r.out.result, NT_STATUS_NOT_SUPPORTED)) {
            torture_comment(tctx, "Delete should have failed NT_STATUS_NOT_SUPPORTED - %s\n", nt_errstr(r.out.result));
            return false;
      }

      return true;
}

static bool test_DeleteObject(struct dcerpc_binding_handle *b,
                        struct torture_context *tctx,
                        struct policy_handle *handle)
{
      struct lsa_DeleteObject r;

      torture_comment(tctx, "\nTesting DeleteObject\n");

      r.in.handle = handle;
      r.out.handle = handle;
      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_DeleteObject_r(b, tctx, &r),
            "DeleteObject failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "DeleteObject failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      return true;
}


static bool test_CreateAccount(struct dcerpc_binding_handle *b,
                         struct torture_context *tctx,
                         struct policy_handle *handle)
{
      struct lsa_CreateAccount r;
      struct dom_sid2 *newsid;
      struct policy_handle acct_handle;

      newsid = dom_sid_parse_talloc(tctx, "S-1-5-12349876-4321-2854");

      torture_comment(tctx, "\nTesting CreateAccount\n");

      r.in.handle = handle;
      r.in.sid = newsid;
      r.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
      r.out.acct_handle = &acct_handle;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_CreateAccount_r(b, tctx, &r),
            "CreateAccount failed");
      if (NT_STATUS_EQUAL(r.out.result, NT_STATUS_OBJECT_NAME_COLLISION)) {
            struct lsa_OpenAccount r_o;
            r_o.in.handle = handle;
            r_o.in.sid = newsid;
            r_o.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
            r_o.out.acct_handle = &acct_handle;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_OpenAccount_r(b, tctx, &r_o),
                  "OpenAccount failed");
            if (!NT_STATUS_IS_OK(r_o.out.result)) {
                  torture_comment(tctx, "OpenAccount failed - %s\n",
                              nt_errstr(r_o.out.result));
                  return false;
            }
      } else if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "CreateAccount failed - %s\n",
                        nt_errstr(r.out.result));
            return false;
      }

      if (!test_Delete(b, tctx, &acct_handle)) {
            return false;
      }

      if (!test_DeleteObject(b, tctx, &acct_handle)) {
            return false;
      }

      return true;
}

static bool test_DeleteTrustedDomain(struct dcerpc_binding_handle *b,
                             struct torture_context *tctx,
                             struct policy_handle *handle,
                             struct lsa_StringLarge name)
{
      struct lsa_OpenTrustedDomainByName r;
      struct policy_handle trustdom_handle;

      r.in.handle = handle;
      r.in.name.string = name.string;
      r.in.access_mask = SEC_STD_DELETE;
      r.out.trustdom_handle = &trustdom_handle;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_OpenTrustedDomainByName_r(b, tctx, &r),
            "OpenTrustedDomainByName failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "OpenTrustedDomainByName failed - %s\n", nt_errstr(r.out.result));
            return false;
      }

      if (!test_Delete(b, tctx, &trustdom_handle)) {
            return false;
      }

      if (!test_DeleteObject(b, tctx, &trustdom_handle)) {
            return false;
      }

      return true;
}

static bool test_DeleteTrustedDomainBySid(struct dcerpc_binding_handle *b,
                                struct torture_context *tctx,
                                struct policy_handle *handle,
                                struct dom_sid *sid)
{
      struct lsa_DeleteTrustedDomain r;

      r.in.handle = handle;
      r.in.dom_sid = sid;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_DeleteTrustedDomain_r(b, tctx, &r),
            "DeleteTrustedDomain failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "DeleteTrustedDomain failed - %s\n", nt_errstr(r.out.result));
            return false;
      }

      return true;
}


static bool test_CreateSecret(struct dcerpc_pipe *p,
                        struct torture_context *tctx,
                        struct policy_handle *handle)
{
      NTSTATUS status;
      struct lsa_CreateSecret r;
      struct lsa_OpenSecret r2;
      struct lsa_SetSecret r3;
      struct lsa_QuerySecret r4;
      struct lsa_SetSecret r5;
      struct lsa_QuerySecret r6;
      struct lsa_SetSecret r7;
      struct lsa_QuerySecret r8;
      struct policy_handle sec_handle, sec_handle2, sec_handle3;
      struct lsa_DeleteObject d_o;
      struct lsa_DATA_BUF buf1;
      struct lsa_DATA_BUF_PTR bufp1;
      struct lsa_DATA_BUF_PTR bufp2;
      DATA_BLOB enc_key;
      bool ret = true;
      DATA_BLOB session_key;
      NTTIME old_mtime, new_mtime;
      DATA_BLOB blob1, blob2;
      const char *secret1 = "abcdef12345699qwerty";
      char *secret2;
      const char *secret3 = "ABCDEF12345699QWERTY";
      char *secret4;
      const char *secret5 = "NEW-SAMBA4-SECRET";
      char *secret6;
      char *secname[2];
      int i;
      const int LOCAL = 0;
      const int GLOBAL = 1;
      struct dcerpc_binding_handle *b = p->binding_handle;

      secname[LOCAL] = talloc_asprintf(tctx, "torturesecret-%u", (unsigned int)random());
      secname[GLOBAL] = talloc_asprintf(tctx, "G$torturesecret-%u", (unsigned int)random());

      for (i=0; i< 2; i++) {
            torture_comment(tctx, "\nTesting CreateSecret of %s\n", secname[i]);

            init_lsa_String(&r.in.name, secname[i]);

            r.in.handle = handle;
            r.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
            r.out.sec_handle = &sec_handle;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_CreateSecret_r(b, tctx, &r),
                  "CreateSecret failed");
            if (!NT_STATUS_IS_OK(r.out.result)) {
                  torture_comment(tctx, "CreateSecret failed - %s\n", nt_errstr(r.out.result));
                  return false;
            }

            r.in.handle = handle;
            r.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
            r.out.sec_handle = &sec_handle3;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_CreateSecret_r(b, tctx, &r),
                  "CreateSecret failed");
            if (!NT_STATUS_EQUAL(r.out.result, NT_STATUS_OBJECT_NAME_COLLISION)) {
                  torture_comment(tctx, "CreateSecret should have failed OBJECT_NAME_COLLISION - %s\n", nt_errstr(r.out.result));
                  return false;
            }

            r2.in.handle = handle;
            r2.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
            r2.in.name = r.in.name;
            r2.out.sec_handle = &sec_handle2;

            torture_comment(tctx, "Testing OpenSecret\n");

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_OpenSecret_r(b, tctx, &r2),
                  "OpenSecret failed");
            if (!NT_STATUS_IS_OK(r2.out.result)) {
                  torture_comment(tctx, "OpenSecret failed - %s\n", nt_errstr(r2.out.result));
                  return false;
            }

            status = dcerpc_fetch_session_key(p, &session_key);
            if (!NT_STATUS_IS_OK(status)) {
                  torture_comment(tctx, "dcerpc_fetch_session_key failed - %s\n", nt_errstr(status));
                  return false;
            }

            enc_key = sess_encrypt_string(secret1, &session_key);

            r3.in.sec_handle = &sec_handle;
            r3.in.new_val = &buf1;
            r3.in.old_val = NULL;
            r3.in.new_val->data = enc_key.data;
            r3.in.new_val->length = enc_key.length;
            r3.in.new_val->size = enc_key.length;

            torture_comment(tctx, "Testing SetSecret\n");

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_SetSecret_r(b, tctx, &r3),
                  "SetSecret failed");
            if (!NT_STATUS_IS_OK(r3.out.result)) {
                  torture_comment(tctx, "SetSecret failed - %s\n", nt_errstr(r3.out.result));
                  return false;
            }

            r3.in.sec_handle = &sec_handle;
            r3.in.new_val = &buf1;
            r3.in.old_val = NULL;
            r3.in.new_val->data = enc_key.data;
            r3.in.new_val->length = enc_key.length;
            r3.in.new_val->size = enc_key.length;

            /* break the encrypted data */
            enc_key.data[0]++;

            torture_comment(tctx, "Testing SetSecret with broken key\n");

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_SetSecret_r(b, tctx, &r3),
                  "SetSecret failed");
            if (!NT_STATUS_EQUAL(r3.out.result, NT_STATUS_UNKNOWN_REVISION)) {
                  torture_comment(tctx, "SetSecret should have failed UNKNOWN_REVISION - %s\n", nt_errstr(r3.out.result));
                  ret = false;
            }

            data_blob_free(&enc_key);

            ZERO_STRUCT(new_mtime);
            ZERO_STRUCT(old_mtime);

            /* fetch the secret back again */
            r4.in.sec_handle = &sec_handle;
            r4.in.new_val = &bufp1;
            r4.in.new_mtime = &new_mtime;
            r4.in.old_val = NULL;
            r4.in.old_mtime = NULL;

            bufp1.buf = NULL;

            torture_comment(tctx, "Testing QuerySecret\n");
            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QuerySecret_r(b, tctx, &r4),
                  "QuerySecret failed");
            if (!NT_STATUS_IS_OK(r4.out.result)) {
                  torture_comment(tctx, "QuerySecret failed - %s\n", nt_errstr(r4.out.result));
                  ret = false;
            } else {
                  if (r4.out.new_val == NULL || r4.out.new_val->buf == NULL) {
                        torture_comment(tctx, "No secret buffer returned\n");
                        ret = false;
                  } else {
                        blob1.data = r4.out.new_val->buf->data;
                        blob1.length = r4.out.new_val->buf->size;

                        blob2 = data_blob_talloc(tctx, NULL, blob1.length);

                        secret2 = sess_decrypt_string(tctx,
                                                &blob1, &session_key);

                        if (strcmp(secret1, secret2) != 0) {
                              torture_comment(tctx, "Returned secret (r4) '%s' doesn't match '%s'\n",
                                     secret2, secret1);
                              ret = false;
                        }
                  }
            }

            enc_key = sess_encrypt_string(secret3, &session_key);

            r5.in.sec_handle = &sec_handle;
            r5.in.new_val = &buf1;
            r5.in.old_val = NULL;
            r5.in.new_val->data = enc_key.data;
            r5.in.new_val->length = enc_key.length;
            r5.in.new_val->size = enc_key.length;


            msleep(200);
            torture_comment(tctx, "Testing SetSecret (existing value should move to old)\n");

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_SetSecret_r(b, tctx, &r5),
                  "SetSecret failed");
            if (!NT_STATUS_IS_OK(r5.out.result)) {
                  torture_comment(tctx, "SetSecret failed - %s\n", nt_errstr(r5.out.result));
                  ret = false;
            }

            data_blob_free(&enc_key);

            ZERO_STRUCT(new_mtime);
            ZERO_STRUCT(old_mtime);

            /* fetch the secret back again */
            r6.in.sec_handle = &sec_handle;
            r6.in.new_val = &bufp1;
            r6.in.new_mtime = &new_mtime;
            r6.in.old_val = &bufp2;
            r6.in.old_mtime = &old_mtime;

            bufp1.buf = NULL;
            bufp2.buf = NULL;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QuerySecret_r(b, tctx, &r6),
                  "QuerySecret failed");
            if (!NT_STATUS_IS_OK(r6.out.result)) {
                  torture_comment(tctx, "QuerySecret failed - %s\n", nt_errstr(r6.out.result));
                  ret = false;
                  secret4 = NULL;
            } else {

                  if (r6.out.new_val->buf == NULL || r6.out.old_val->buf == NULL
                        || r6.out.new_mtime == NULL || r6.out.old_mtime == NULL) {
                        torture_comment(tctx, "Both secret buffers and both times not returned\n");
                        ret = false;
                        secret4 = NULL;
                  } else {
                        blob1.data = r6.out.new_val->buf->data;
                        blob1.length = r6.out.new_val->buf->size;

                        blob2 = data_blob_talloc(tctx, NULL, blob1.length);

                        secret4 = sess_decrypt_string(tctx,
                                                &blob1, &session_key);

                        if (strcmp(secret3, secret4) != 0) {
                              torture_comment(tctx, "Returned NEW secret %s doesn't match %s\n", secret4, secret3);
                              ret = false;
                        }

                        blob1.data = r6.out.old_val->buf->data;
                        blob1.length = r6.out.old_val->buf->length;

                        blob2 = data_blob_talloc(tctx, NULL, blob1.length);

                        secret2 = sess_decrypt_string(tctx,
                                                &blob1, &session_key);

                        if (strcmp(secret1, secret2) != 0) {
                              torture_comment(tctx, "Returned OLD secret %s doesn't match %s\n", secret2, secret1);
                              ret = false;
                        }

                        if (*r6.out.new_mtime == *r6.out.old_mtime) {
                              torture_comment(tctx, "Returned secret (r6-%d) %s must not have same mtime for both secrets: %s != %s\n",
                                     i,
                                     secname[i],
                                     nt_time_string(tctx, *r6.out.old_mtime),
                                     nt_time_string(tctx, *r6.out.new_mtime));
                              ret = false;
                        }
                  }
            }

            enc_key = sess_encrypt_string(secret5, &session_key);

            r7.in.sec_handle = &sec_handle;
            r7.in.old_val = &buf1;
            r7.in.old_val->data = enc_key.data;
            r7.in.old_val->length = enc_key.length;
            r7.in.old_val->size = enc_key.length;
            r7.in.new_val = NULL;

            torture_comment(tctx, "Testing SetSecret of old Secret only\n");

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_SetSecret_r(b, tctx, &r7),
                  "SetSecret failed");
            if (!NT_STATUS_IS_OK(r7.out.result)) {
                  torture_comment(tctx, "SetSecret failed - %s\n", nt_errstr(r7.out.result));
                  ret = false;
            }

            data_blob_free(&enc_key);

            /* fetch the secret back again */
            r8.in.sec_handle = &sec_handle;
            r8.in.new_val = &bufp1;
            r8.in.new_mtime = &new_mtime;
            r8.in.old_val = &bufp2;
            r8.in.old_mtime = &old_mtime;

            bufp1.buf = NULL;
            bufp2.buf = NULL;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QuerySecret_r(b, tctx, &r8),
                  "QuerySecret failed");
            if (!NT_STATUS_IS_OK(r8.out.result)) {
                  torture_comment(tctx, "QuerySecret failed - %s\n", nt_errstr(r8.out.result));
                  ret = false;
            } else {
                  if (!r8.out.new_val || !r8.out.old_val) {
                        torture_comment(tctx, "in/out pointers not returned, despite being set on in for QuerySecret\n");
                        ret = false;
                  } else if (r8.out.new_val->buf != NULL) {
                        torture_comment(tctx, "NEW secret buffer must not be returned after OLD set\n");
                        ret = false;
                  } else if (r8.out.old_val->buf == NULL) {
                        torture_comment(tctx, "OLD secret buffer was not returned after OLD set\n");
                        ret = false;
                  } else if (r8.out.new_mtime == NULL || r8.out.old_mtime == NULL) {
                        torture_comment(tctx, "Both times not returned after OLD set\n");
                        ret = false;
                  } else {
                        blob1.data = r8.out.old_val->buf->data;
                        blob1.length = r8.out.old_val->buf->size;

                        blob2 = data_blob_talloc(tctx, NULL, blob1.length);

                        secret6 = sess_decrypt_string(tctx,
                                                &blob1, &session_key);

                        if (strcmp(secret5, secret6) != 0) {
                              torture_comment(tctx, "Returned OLD secret %s doesn't match %s\n", secret5, secret6);
                              ret = false;
                        }

                        if (*r8.out.new_mtime != *r8.out.old_mtime) {
                              torture_comment(tctx, "Returned secret (r8) %s did not had same mtime for both secrets: %s != %s\n",
                                     secname[i],
                                     nt_time_string(tctx, *r8.out.old_mtime),
                                     nt_time_string(tctx, *r8.out.new_mtime));
                              ret = false;
                        }
                  }
            }

            if (!test_Delete(b, tctx, &sec_handle)) {
                  ret = false;
            }

            if (!test_DeleteObject(b, tctx, &sec_handle)) {
                  return false;
            }

            d_o.in.handle = &sec_handle2;
            d_o.out.handle = &sec_handle2;
            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_DeleteObject_r(b, tctx, &d_o),
                  "DeleteObject failed");
            if (!NT_STATUS_EQUAL(d_o.out.result, NT_STATUS_INVALID_HANDLE)) {
                  torture_comment(tctx, "Second delete expected INVALID_HANDLE - %s\n", nt_errstr(d_o.out.result));
                  ret = false;
            } else {

                  torture_comment(tctx, "Testing OpenSecret of just-deleted secret\n");

                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_OpenSecret_r(b, tctx, &r2),
                        "OpenSecret failed");
                  if (!NT_STATUS_EQUAL(r2.out.result, NT_STATUS_OBJECT_NAME_NOT_FOUND)) {
                        torture_comment(tctx, "OpenSecret expected OBJECT_NAME_NOT_FOUND - %s\n", nt_errstr(r2.out.result));
                        ret = false;
                  }
            }

      }

      return ret;
}


static bool test_EnumAccountRights(struct dcerpc_binding_handle *b,
                           struct torture_context *tctx,
                           struct policy_handle *acct_handle,
                           struct dom_sid *sid)
{
      struct lsa_EnumAccountRights r;
      struct lsa_RightSet rights;

      torture_comment(tctx, "\nTesting EnumAccountRights\n");

      r.in.handle = acct_handle;
      r.in.sid = sid;
      r.out.rights = &rights;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_EnumAccountRights_r(b, tctx, &r),
            "EnumAccountRights failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "EnumAccountRights of %s failed - %s\n",
                   dom_sid_string(tctx, sid), nt_errstr(r.out.result));
            return false;
      }

      return true;
}


static bool test_QuerySecurity(struct dcerpc_binding_handle *b,
                       struct torture_context *tctx,
                       struct policy_handle *handle,
                       struct policy_handle *acct_handle)
{
      struct lsa_QuerySecurity r;
      struct sec_desc_buf *sdbuf = NULL;

      if (torture_setting_bool(tctx, "samba4", false)) {
            torture_comment(tctx, "\nskipping QuerySecurity test against Samba4\n");
            return true;
      }

      torture_comment(tctx, "\nTesting QuerySecurity\n");

      r.in.handle = acct_handle;
      r.in.sec_info = SECINFO_OWNER |
                  SECINFO_GROUP |
                  SECINFO_DACL;
      r.out.sdbuf = &sdbuf;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QuerySecurity_r(b, tctx, &r),
            "QuerySecurity failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "QuerySecurity failed - %s\n", nt_errstr(r.out.result));
            return false;
      }

      return true;
}

static bool test_OpenAccount(struct dcerpc_binding_handle *b,
                       struct torture_context *tctx,
                       struct policy_handle *handle,
                       struct dom_sid *sid)
{
      struct lsa_OpenAccount r;
      struct policy_handle acct_handle;

      torture_comment(tctx, "\nTesting OpenAccount\n");

      r.in.handle = handle;
      r.in.sid = sid;
      r.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
      r.out.acct_handle = &acct_handle;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_OpenAccount_r(b, tctx, &r),
            "OpenAccount failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "OpenAccount failed - %s\n", nt_errstr(r.out.result));
            return false;
      }

      if (!test_EnumPrivsAccount(b, tctx, handle, &acct_handle)) {
            return false;
      }

      if (!test_GetSystemAccessAccount(b, tctx, handle, &acct_handle)) {
            return false;
      }

      if (!test_QuerySecurity(b, tctx, handle, &acct_handle)) {
            return false;
      }

      return true;
}

static bool test_EnumAccounts(struct dcerpc_binding_handle *b,
                        struct torture_context *tctx,
                        struct policy_handle *handle)
{
      struct lsa_EnumAccounts r;
      struct lsa_SidArray sids1, sids2;
      uint32_t resume_handle = 0;
      int i;
      bool ret = true;

      torture_comment(tctx, "\nTesting EnumAccounts\n");

      r.in.handle = handle;
      r.in.resume_handle = &resume_handle;
      r.in.num_entries = 100;
      r.out.resume_handle = &resume_handle;
      r.out.sids = &sids1;

      resume_handle = 0;
      while (true) {
            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_EnumAccounts_r(b, tctx, &r),
                  "EnumAccounts failed");
            if (NT_STATUS_EQUAL(r.out.result, NT_STATUS_NO_MORE_ENTRIES)) {
                  break;
            }
            if (!NT_STATUS_IS_OK(r.out.result)) {
                  torture_comment(tctx, "EnumAccounts failed - %s\n", nt_errstr(r.out.result));
                  return false;
            }

            if (!test_LookupSids(b, tctx, handle, &sids1)) {
                  return false;
            }

            if (!test_LookupSids2(b, tctx, handle, &sids1)) {
                  return false;
            }

            /* Can't test lookupSids3 here, as clearly we must not
             * be on schannel, or we would not be able to do the
             * rest */

            torture_comment(tctx, "Testing all accounts\n");
            for (i=0;i<sids1.num_sids;i++) {
                  ret &= test_OpenAccount(b, tctx, handle, sids1.sids[i].sid);
                  ret &= test_EnumAccountRights(b, tctx, handle, sids1.sids[i].sid);
            }
            torture_comment(tctx, "\n");
      }

      if (sids1.num_sids < 3) {
            return ret;
      }

      torture_comment(tctx, "Trying EnumAccounts partial listing (asking for 1 at 2)\n");
      resume_handle = 2;
      r.in.num_entries = 1;
      r.out.sids = &sids2;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_EnumAccounts_r(b, tctx, &r),
            "EnumAccounts failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "EnumAccounts failed - %s\n", nt_errstr(r.out.result));
            return false;
      }

      if (sids2.num_sids != 1) {
            torture_comment(tctx, "Returned wrong number of entries (%d)\n", sids2.num_sids);
            return false;
      }

      return true;
}

static bool test_LookupPrivDisplayName(struct dcerpc_binding_handle *b,
                               struct torture_context *tctx,
                               struct policy_handle *handle,
                               struct lsa_String *priv_name)
{
      struct lsa_LookupPrivDisplayName r;
      /* produce a reasonable range of language output without screwing up
         terminals */
      uint16_t language_id = (random() % 4) + 0x409;
      uint16_t returned_language_id = 0;
      struct lsa_StringLarge *disp_name = NULL;

      torture_comment(tctx, "\nTesting LookupPrivDisplayName(%s)\n", priv_name->string);

      r.in.handle = handle;
      r.in.name = priv_name;
      r.in.language_id = language_id;
      r.in.language_id_sys = 0;
      r.out.returned_language_id = &returned_language_id;
      r.out.disp_name = &disp_name;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_LookupPrivDisplayName_r(b, tctx, &r),
            "LookupPrivDisplayName failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "LookupPrivDisplayName failed - %s\n", nt_errstr(r.out.result));
            return false;
      }
      torture_comment(tctx, "%s -> \"%s\"  (language 0x%x/0x%x)\n",
             priv_name->string, disp_name->string,
             r.in.language_id, *r.out.returned_language_id);

      return true;
}

static bool test_EnumAccountsWithUserRight(struct dcerpc_binding_handle *b,
                                 struct torture_context *tctx,
                                 struct policy_handle *handle,
                                 struct lsa_String *priv_name)
{
      struct lsa_EnumAccountsWithUserRight r;
      struct lsa_SidArray sids;

      ZERO_STRUCT(sids);

      torture_comment(tctx, "\nTesting EnumAccountsWithUserRight(%s)\n", priv_name->string);

      r.in.handle = handle;
      r.in.name = priv_name;
      r.out.sids = &sids;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_EnumAccountsWithUserRight_r(b, tctx, &r),
            "EnumAccountsWithUserRight failed");

      /* NT_STATUS_NO_MORE_ENTRIES means noone has this privilege */
      if (NT_STATUS_EQUAL(r.out.result, NT_STATUS_NO_MORE_ENTRIES)) {
            return true;
      }

      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "EnumAccountsWithUserRight failed - %s\n", nt_errstr(r.out.result));
            return false;
      }

      return true;
}


static bool test_EnumPrivs(struct dcerpc_binding_handle *b,
                     struct torture_context *tctx,
                     struct policy_handle *handle)
{
      struct lsa_EnumPrivs r;
      struct lsa_PrivArray privs1;
      uint32_t resume_handle = 0;
      int i;
      bool ret = true;

      torture_comment(tctx, "\nTesting EnumPrivs\n");

      r.in.handle = handle;
      r.in.resume_handle = &resume_handle;
      r.in.max_count = 100;
      r.out.resume_handle = &resume_handle;
      r.out.privs = &privs1;

      resume_handle = 0;
      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_EnumPrivs_r(b, tctx, &r),
            "EnumPrivs failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "EnumPrivs failed - %s\n", nt_errstr(r.out.result));
            return false;
      }

      for (i = 0; i< privs1.count; i++) {
            test_LookupPrivDisplayName(b, tctx, handle, (struct lsa_String *)&privs1.privs[i].name);
            test_LookupPrivValue(b, tctx, handle, (struct lsa_String *)&privs1.privs[i].name);
            if (!test_EnumAccountsWithUserRight(b, tctx, handle, (struct lsa_String *)&privs1.privs[i].name)) {
                  ret = false;
            }
      }

      return ret;
}

static bool test_QueryForestTrustInformation(struct dcerpc_binding_handle *b,
                                   struct torture_context *tctx,
                                   struct policy_handle *handle,
                                   const char *trusted_domain_name)
{
      bool ret = true;
      struct lsa_lsaRQueryForestTrustInformation r;
      struct lsa_String string;
      struct lsa_ForestTrustInformation info, *info_ptr;

      torture_comment(tctx, "\nTesting lsaRQueryForestTrustInformation\n");

      if (torture_setting_bool(tctx, "samba4", false)) {
            torture_comment(tctx, "skipping QueryForestTrustInformation against Samba4\n");
            return true;
      }

      ZERO_STRUCT(string);

      if (trusted_domain_name) {
            init_lsa_String(&string, trusted_domain_name);
      }

      info_ptr = &info;

      r.in.handle = handle;
      r.in.trusted_domain_name = &string;
      r.in.unknown = 0;
      r.out.forest_trust_info = &info_ptr;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_lsaRQueryForestTrustInformation_r(b, tctx, &r),
            "lsaRQueryForestTrustInformation failed");

      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "lsaRQueryForestTrustInformation of %s failed - %s\n", trusted_domain_name, nt_errstr(r.out.result));
            ret = false;
      }

      return ret;
}

static bool test_query_each_TrustDomEx(struct dcerpc_binding_handle *b,
                               struct torture_context *tctx,
                               struct policy_handle *handle,
                               struct lsa_DomainListEx *domains)
{
      int i;
      bool ret = true;

      for (i=0; i< domains->count; i++) {

            if (domains->domains[i].trust_attributes & NETR_TRUST_ATTRIBUTE_FOREST_TRANSITIVE) {
                  ret &= test_QueryForestTrustInformation(b, tctx, handle,
                                                domains->domains[i].domain_name.string);
            }
      }

      return ret;
}

static bool test_query_each_TrustDom(struct dcerpc_binding_handle *b,
                             struct torture_context *tctx,
                             struct policy_handle *handle,
                             struct lsa_DomainList *domains)
{
      int i,j;
      bool ret = true;

      torture_comment(tctx, "\nTesting OpenTrustedDomain, OpenTrustedDomainByName and QueryInfoTrustedDomain\n");
      for (i=0; i< domains->count; i++) {
            struct lsa_OpenTrustedDomain trust;
            struct lsa_OpenTrustedDomainByName trust_by_name;
            struct policy_handle trustdom_handle;
            struct policy_handle handle2;
            struct lsa_Close c;
            struct lsa_CloseTrustedDomainEx c_trust;
            int levels [] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13};
            int ok[]      = {1, 0, 1, 0, 0, 1, 0, 1, 0,  0,  0,  1, 1};

            if (domains->domains[i].sid) {
                  trust.in.handle = handle;
                  trust.in.sid = domains->domains[i].sid;
                  trust.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
                  trust.out.trustdom_handle = &trustdom_handle;

                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_OpenTrustedDomain_r(b, tctx, &trust),
                        "OpenTrustedDomain failed");

                  if (!NT_STATUS_IS_OK(trust.out.result)) {
                        torture_comment(tctx, "OpenTrustedDomain failed - %s\n", nt_errstr(trust.out.result));
                        return false;
                  }

                  c.in.handle = &trustdom_handle;
                  c.out.handle = &handle2;

                  c_trust.in.handle = &trustdom_handle;
                  c_trust.out.handle = &handle2;

                  for (j=0; j < ARRAY_SIZE(levels); j++) {
                        struct lsa_QueryTrustedDomainInfo q;
                        union lsa_TrustedDomainInfo *info = NULL;
                        q.in.trustdom_handle = &trustdom_handle;
                        q.in.level = levels[j];
                        q.out.info = &info;
                        torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QueryTrustedDomainInfo_r(b, tctx, &q),
                              "QueryTrustedDomainInfo failed");
                        if (!NT_STATUS_IS_OK(q.out.result) && ok[j]) {
                              torture_comment(tctx, "QueryTrustedDomainInfo level %d failed - %s\n",
                                     levels[j], nt_errstr(q.out.result));
                              ret = false;
                        } else if (NT_STATUS_IS_OK(q.out.result) && !ok[j]) {
                              torture_comment(tctx, "QueryTrustedDomainInfo level %d unexpectedly succeeded - %s\n",
                                     levels[j], nt_errstr(q.out.result));
                              ret = false;
                        }
                  }

                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_CloseTrustedDomainEx_r(b, tctx, &c_trust),
                        "CloseTrustedDomainEx failed");
                  if (!NT_STATUS_EQUAL(c_trust.out.result, NT_STATUS_NOT_IMPLEMENTED)) {
                        torture_comment(tctx, "Expected CloseTrustedDomainEx to return NT_STATUS_NOT_IMPLEMENTED, instead - %s\n", nt_errstr(c_trust.out.result));
                        return false;
                  }

                  c.in.handle = &trustdom_handle;
                  c.out.handle = &handle2;

                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_Close_r(b, tctx, &c),
                        "Close failed");
                  if (!NT_STATUS_IS_OK(c.out.result)) {
                        torture_comment(tctx, "Close of trusted domain failed - %s\n", nt_errstr(c.out.result));
                        return false;
                  }

                  for (j=0; j < ARRAY_SIZE(levels); j++) {
                        struct lsa_QueryTrustedDomainInfoBySid q;
                        union lsa_TrustedDomainInfo *info = NULL;

                        if (!domains->domains[i].sid) {
                              continue;
                        }

                        q.in.handle  = handle;
                        q.in.dom_sid = domains->domains[i].sid;
                        q.in.level   = levels[j];
                        q.out.info   = &info;

                        torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QueryTrustedDomainInfoBySid_r(b, tctx, &q),
                              "lsa_QueryTrustedDomainInfoBySid failed");
                        if (!NT_STATUS_IS_OK(q.out.result) && ok[j]) {
                              torture_comment(tctx, "QueryTrustedDomainInfoBySid level %d failed - %s\n",
                                     levels[j], nt_errstr(q.out.result));
                              ret = false;
                        } else if (NT_STATUS_IS_OK(q.out.result) && !ok[j]) {
                              torture_comment(tctx, "QueryTrustedDomainInfoBySid level %d unexpectedly succeeded - %s\n",
                                     levels[j], nt_errstr(q.out.result));
                              ret = false;
                        }
                  }
            }

            trust_by_name.in.handle = handle;
            trust_by_name.in.name.string = domains->domains[i].name.string;
            trust_by_name.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
            trust_by_name.out.trustdom_handle = &trustdom_handle;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_OpenTrustedDomainByName_r(b, tctx, &trust_by_name),
                  "OpenTrustedDomainByName failed");

            if (!NT_STATUS_IS_OK(trust_by_name.out.result)) {
                  torture_comment(tctx, "OpenTrustedDomainByName failed - %s\n", nt_errstr(trust_by_name.out.result));
                  return false;
            }

            for (j=0; j < ARRAY_SIZE(levels); j++) {
                  struct lsa_QueryTrustedDomainInfo q;
                  union lsa_TrustedDomainInfo *info = NULL;
                  q.in.trustdom_handle = &trustdom_handle;
                  q.in.level = levels[j];
                  q.out.info = &info;
                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QueryTrustedDomainInfo_r(b, tctx, &q),
                        "QueryTrustedDomainInfo failed");
                  if (!NT_STATUS_IS_OK(q.out.result) && ok[j]) {
                        torture_comment(tctx, "QueryTrustedDomainInfo level %d failed - %s\n",
                               levels[j], nt_errstr(q.out.result));
                        ret = false;
                  } else if (NT_STATUS_IS_OK(q.out.result) && !ok[j]) {
                        torture_comment(tctx, "QueryTrustedDomainInfo level %d unexpectedly succeeded - %s\n",
                               levels[j], nt_errstr(q.out.result));
                        ret = false;
                  }
            }

            c.in.handle = &trustdom_handle;
            c.out.handle = &handle2;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_Close_r(b, tctx, &c),
                  "Close failed");
            if (!NT_STATUS_IS_OK(c.out.result)) {
                  torture_comment(tctx, "Close of trusted domain failed - %s\n", nt_errstr(c.out.result));
                  return false;
            }

            for (j=0; j < ARRAY_SIZE(levels); j++) {
                  struct lsa_QueryTrustedDomainInfoByName q;
                  union lsa_TrustedDomainInfo *info = NULL;
                  struct lsa_String name;

                  name.string = domains->domains[i].name.string;

                  q.in.handle         = handle;
                  q.in.trusted_domain = &name;
                  q.in.level          = levels[j];
                  q.out.info          = &info;
                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QueryTrustedDomainInfoByName_r(b, tctx, &q),
                        "QueryTrustedDomainInfoByName failed");
                  if (!NT_STATUS_IS_OK(q.out.result) && ok[j]) {
                        torture_comment(tctx, "QueryTrustedDomainInfoByName level %d failed - %s\n",
                               levels[j], nt_errstr(q.out.result));
                        ret = false;
                  } else if (NT_STATUS_IS_OK(q.out.result) && !ok[j]) {
                        torture_comment(tctx, "QueryTrustedDomainInfoByName level %d unexpectedly succeeded - %s\n",
                               levels[j], nt_errstr(q.out.result));
                        ret = false;
                  }
            }
      }
      return ret;
}

static bool test_EnumTrustDom(struct dcerpc_binding_handle *b,
                        struct torture_context *tctx,
                        struct policy_handle *handle)
{
      struct lsa_EnumTrustDom r;
      uint32_t in_resume_handle = 0;
      uint32_t out_resume_handle;
      struct lsa_DomainList domains;
      bool ret = true;

      torture_comment(tctx, "\nTesting EnumTrustDom\n");

      r.in.handle = handle;
      r.in.resume_handle = &in_resume_handle;
      r.in.max_size = 0;
      r.out.domains = &domains;
      r.out.resume_handle = &out_resume_handle;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_EnumTrustDom_r(b, tctx, &r),
            "lsa_EnumTrustDom failed");

      /* according to MS-LSAD 3.1.4.7.8 output resume handle MUST
       * always be larger than the previous input resume handle, in
       * particular when hitting the last query it is vital to set the
       * resume handle correctly to avoid infinite client loops, as
       * seen e.g.  with Windows XP SP3 when resume handle is 0 and
       * status is NT_STATUS_OK - gd */

      if (NT_STATUS_IS_OK(r.out.result) ||
          NT_STATUS_EQUAL(r.out.result, NT_STATUS_NO_MORE_ENTRIES) ||
          NT_STATUS_EQUAL(r.out.result, STATUS_MORE_ENTRIES))
      {
            if (out_resume_handle <= in_resume_handle) {
                  torture_comment(tctx, "EnumTrustDom failed - should have returned output resume_handle (0x%08x) larger than input resume handle (0x%08x)\n",
                        out_resume_handle, in_resume_handle);
                  return false;
            }
      }

      if (NT_STATUS_IS_OK(r.out.result)) {
            if (domains.count == 0) {
                  torture_comment(tctx, "EnumTrustDom failed - should have returned 'NT_STATUS_NO_MORE_ENTRIES' for 0 trusted domains\n");
                  return false;
            }
      } else if (!(NT_STATUS_EQUAL(r.out.result, STATUS_MORE_ENTRIES) || NT_STATUS_EQUAL(r.out.result, NT_STATUS_NO_MORE_ENTRIES))) {
            torture_comment(tctx, "EnumTrustDom of zero size failed - %s\n", nt_errstr(r.out.result));
            return false;
      }

      /* Start from the bottom again */
      in_resume_handle = 0;

      do {
            r.in.handle = handle;
            r.in.resume_handle = &in_resume_handle;
            r.in.max_size = LSA_ENUM_TRUST_DOMAIN_MULTIPLIER * 3;
            r.out.domains = &domains;
            r.out.resume_handle = &out_resume_handle;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_EnumTrustDom_r(b, tctx, &r),
                  "EnumTrustDom failed");

            /* according to MS-LSAD 3.1.4.7.8 output resume handle MUST
             * always be larger than the previous input resume handle, in
             * particular when hitting the last query it is vital to set the
             * resume handle correctly to avoid infinite client loops, as
             * seen e.g.  with Windows XP SP3 when resume handle is 0 and
             * status is NT_STATUS_OK - gd */

            if (NT_STATUS_IS_OK(r.out.result) ||
                NT_STATUS_EQUAL(r.out.result, NT_STATUS_NO_MORE_ENTRIES) ||
                NT_STATUS_EQUAL(r.out.result, STATUS_MORE_ENTRIES))
            {
                  if (out_resume_handle <= in_resume_handle) {
                        torture_comment(tctx, "EnumTrustDom failed - should have returned output resume_handle (0x%08x) larger than input resume handle (0x%08x)\n",
                              out_resume_handle, in_resume_handle);
                        return false;
                  }
            }

            /* NO_MORE_ENTRIES is allowed */
            if (NT_STATUS_EQUAL(r.out.result, NT_STATUS_NO_MORE_ENTRIES)) {
                  if (domains.count == 0) {
                        return true;
                  }
                  torture_comment(tctx, "EnumTrustDom failed - should have returned 0 trusted domains with 'NT_STATUS_NO_MORE_ENTRIES'\n");
                  return false;
            } else if (NT_STATUS_EQUAL(r.out.result, STATUS_MORE_ENTRIES)) {
                  /* Windows 2003 gets this off by one on the first run */
                  if (r.out.domains->count < 3 || r.out.domains->count > 4) {
                        torture_comment(tctx, "EnumTrustDom didn't fill the buffer we "
                               "asked it to (got %d, expected %d / %d == %d entries)\n",
                               r.out.domains->count, LSA_ENUM_TRUST_DOMAIN_MULTIPLIER * 3,
                               LSA_ENUM_TRUST_DOMAIN_MULTIPLIER, r.in.max_size);
                        ret = false;
                  }
            } else if (!NT_STATUS_IS_OK(r.out.result)) {
                  torture_comment(tctx, "EnumTrustDom failed - %s\n", nt_errstr(r.out.result));
                  return false;
            }

            if (domains.count == 0) {
                  torture_comment(tctx, "EnumTrustDom failed - should have returned 'NT_STATUS_NO_MORE_ENTRIES' for 0 trusted domains\n");
                  return false;
            }

            ret &= test_query_each_TrustDom(b, tctx, handle, &domains);

            in_resume_handle = out_resume_handle;

      } while ((NT_STATUS_EQUAL(r.out.result, STATUS_MORE_ENTRIES)));

      return ret;
}

static bool test_EnumTrustDomEx(struct dcerpc_binding_handle *b,
                        struct torture_context *tctx,
                        struct policy_handle *handle)
{
      struct lsa_EnumTrustedDomainsEx r_ex;
      uint32_t resume_handle = 0;
      struct lsa_DomainListEx domains_ex;
      bool ret = true;

      torture_comment(tctx, "\nTesting EnumTrustedDomainsEx\n");

      r_ex.in.handle = handle;
      r_ex.in.resume_handle = &resume_handle;
      r_ex.in.max_size = LSA_ENUM_TRUST_DOMAIN_EX_MULTIPLIER * 3;
      r_ex.out.domains = &domains_ex;
      r_ex.out.resume_handle = &resume_handle;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_EnumTrustedDomainsEx_r(b, tctx, &r_ex),
            "EnumTrustedDomainsEx failed");

      if (!(NT_STATUS_EQUAL(r_ex.out.result, STATUS_MORE_ENTRIES) || NT_STATUS_EQUAL(r_ex.out.result, NT_STATUS_NO_MORE_ENTRIES))) {
            torture_comment(tctx, "EnumTrustedDomainEx of zero size failed - %s\n", nt_errstr(r_ex.out.result));
            return false;
      }

      resume_handle = 0;
      do {
            r_ex.in.handle = handle;
            r_ex.in.resume_handle = &resume_handle;
            r_ex.in.max_size = LSA_ENUM_TRUST_DOMAIN_EX_MULTIPLIER * 3;
            r_ex.out.domains = &domains_ex;
            r_ex.out.resume_handle = &resume_handle;

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_EnumTrustedDomainsEx_r(b, tctx, &r_ex),
                  "EnumTrustedDomainsEx failed");

            /* NO_MORE_ENTRIES is allowed */
            if (NT_STATUS_EQUAL(r_ex.out.result, NT_STATUS_NO_MORE_ENTRIES)) {
                  if (domains_ex.count == 0) {
                        return true;
                  }
                  torture_comment(tctx, "EnumTrustDomainsEx failed - should have returned 0 trusted domains with 'NT_STATUS_NO_MORE_ENTRIES'\n");
                  return false;
            } else if (NT_STATUS_EQUAL(r_ex.out.result, STATUS_MORE_ENTRIES)) {
                  /* Windows 2003 gets this off by one on the first run */
                  if (r_ex.out.domains->count < 3 || r_ex.out.domains->count > 4) {
                        torture_comment(tctx, "EnumTrustDom didn't fill the buffer we "
                               "asked it to (got %d, expected %d / %d == %d entries)\n",
                               r_ex.out.domains->count,
                               r_ex.in.max_size,
                               LSA_ENUM_TRUST_DOMAIN_EX_MULTIPLIER,
                               r_ex.in.max_size / LSA_ENUM_TRUST_DOMAIN_EX_MULTIPLIER);
                  }
            } else if (!NT_STATUS_IS_OK(r_ex.out.result)) {
                  torture_comment(tctx, "EnumTrustedDomainEx failed - %s\n", nt_errstr(r_ex.out.result));
                  return false;
            }

            if (domains_ex.count == 0) {
                  torture_comment(tctx, "EnumTrustDomainEx failed - should have returned 'NT_STATUS_NO_MORE_ENTRIES' for 0 trusted domains\n");
                  return false;
            }

            ret &= test_query_each_TrustDomEx(b, tctx, handle, &domains_ex);

      } while ((NT_STATUS_EQUAL(r_ex.out.result, STATUS_MORE_ENTRIES)));

      return ret;
}


static bool test_CreateTrustedDomain(struct dcerpc_binding_handle *b,
                             struct torture_context *tctx,
                             struct policy_handle *handle,
                             uint32_t num_trusts)
{
      bool ret = true;
      struct lsa_CreateTrustedDomain r;
      struct lsa_DomainInfo trustinfo;
      struct dom_sid **domsid;
      struct policy_handle *trustdom_handle;
      struct lsa_QueryTrustedDomainInfo q;
      union lsa_TrustedDomainInfo *info = NULL;
      int i;

      torture_comment(tctx, "\nTesting CreateTrustedDomain for %d domains\n", num_trusts);

      if (!test_EnumTrustDom(b, tctx, handle)) {
            ret = false;
      }

      if (!test_EnumTrustDomEx(b, tctx, handle)) {
            ret = false;
      }

      domsid = talloc_array(tctx, struct dom_sid *, num_trusts);
      trustdom_handle = talloc_array(tctx, struct policy_handle, num_trusts);

      for (i=0; i< num_trusts; i++) {
            char *trust_name = talloc_asprintf(tctx, "torturedom%02d", i);
            char *trust_sid = talloc_asprintf(tctx, "S-1-5-21-97398-379795-100%02d", i);

            domsid[i] = dom_sid_parse_talloc(tctx, trust_sid);

            trustinfo.sid = domsid[i];
            init_lsa_String((struct lsa_String *)&trustinfo.name, trust_name);

            r.in.policy_handle = handle;
            r.in.info = &trustinfo;
            r.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
            r.out.trustdom_handle = &trustdom_handle[i];

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_CreateTrustedDomain_r(b, tctx, &r),
                  "CreateTrustedDomain failed");
            if (NT_STATUS_EQUAL(r.out.result, NT_STATUS_OBJECT_NAME_COLLISION)) {
                  test_DeleteTrustedDomain(b, tctx, handle, trustinfo.name);
                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_CreateTrustedDomain_r(b, tctx, &r),
                        "CreateTrustedDomain failed");
            }
            if (!NT_STATUS_IS_OK(r.out.result)) {
                  torture_comment(tctx, "CreateTrustedDomain failed - %s\n", nt_errstr(r.out.result));
                  ret = false;
            } else {

                  q.in.trustdom_handle = &trustdom_handle[i];
                  q.in.level = LSA_TRUSTED_DOMAIN_INFO_INFO_EX;
                  q.out.info = &info;
                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QueryTrustedDomainInfo_r(b, tctx, &q),
                        "QueryTrustedDomainInfo failed");
                  if (!NT_STATUS_IS_OK(q.out.result)) {
                        torture_comment(tctx, "QueryTrustedDomainInfo level %d failed - %s\n", q.in.level, nt_errstr(q.out.result));
                        ret = false;
                  } else if (!q.out.info) {
                        ret = false;
                  } else {
                        if (strcmp(info->info_ex.netbios_name.string, trustinfo.name.string) != 0) {
                              torture_comment(tctx, "QueryTrustedDomainInfo returned inconsistant short name: %s != %s\n",
                                     info->info_ex.netbios_name.string, trustinfo.name.string);
                              ret = false;
                        }
                        if (info->info_ex.trust_type != LSA_TRUST_TYPE_DOWNLEVEL) {
                              torture_comment(tctx, "QueryTrustedDomainInfo of %s returned incorrect trust type %d != %d\n",
                                     trust_name, info->info_ex.trust_type, LSA_TRUST_TYPE_DOWNLEVEL);
                              ret = false;
                        }
                        if (info->info_ex.trust_attributes != 0) {
                              torture_comment(tctx, "QueryTrustedDomainInfo of %s returned incorrect trust attributes %d != %d\n",
                                     trust_name, info->info_ex.trust_attributes, 0);
                              ret = false;
                        }
                        if (info->info_ex.trust_direction != LSA_TRUST_DIRECTION_OUTBOUND) {
                              torture_comment(tctx, "QueryTrustedDomainInfo of %s returned incorrect trust direction %d != %d\n",
                                     trust_name, info->info_ex.trust_direction, LSA_TRUST_DIRECTION_OUTBOUND);
                              ret = false;
                        }
                  }
            }
      }

      /* now that we have some domains to look over, we can test the enum calls */
      if (!test_EnumTrustDom(b, tctx, handle)) {
            ret = false;
      }

      if (!test_EnumTrustDomEx(b, tctx, handle)) {
            ret = false;
      }

      for (i=0; i<num_trusts; i++) {
            if (!test_DeleteTrustedDomainBySid(b, tctx, handle, domsid[i])) {
                  ret = false;
            }
      }

      return ret;
}

static bool test_CreateTrustedDomainEx2(struct dcerpc_pipe *p,
                              struct torture_context *tctx,
                              struct policy_handle *handle,
                              uint32_t num_trusts)
{
      NTSTATUS status;
      bool ret = true;
      struct lsa_CreateTrustedDomainEx2 r;
      struct lsa_TrustDomainInfoInfoEx trustinfo;
      struct lsa_TrustDomainInfoAuthInfoInternal authinfo;
      struct trustDomainPasswords auth_struct;
      DATA_BLOB auth_blob;
      struct dom_sid **domsid;
      struct policy_handle *trustdom_handle;
      struct lsa_QueryTrustedDomainInfo q;
      union lsa_TrustedDomainInfo *info = NULL;
      DATA_BLOB session_key;
      enum ndr_err_code ndr_err;
      int i;
      struct dcerpc_binding_handle *b = p->binding_handle;

      torture_comment(tctx, "\nTesting CreateTrustedDomainEx2 for %d domains\n", num_trusts);

      domsid = talloc_array(tctx, struct dom_sid *, num_trusts);
      trustdom_handle = talloc_array(tctx, struct policy_handle, num_trusts);

      status = dcerpc_fetch_session_key(p, &session_key);
      if (!NT_STATUS_IS_OK(status)) {
            torture_comment(tctx, "dcerpc_fetch_session_key failed - %s\n", nt_errstr(status));
            return false;
      }

      for (i=0; i< num_trusts; i++) {
            char *trust_name = talloc_asprintf(tctx, "torturedom%02d", i);
            char *trust_name_dns = talloc_asprintf(tctx, "torturedom%02d.samba.example.com", i);
            char *trust_sid = talloc_asprintf(tctx, "S-1-5-21-97398-379795-100%02d", i);

            domsid[i] = dom_sid_parse_talloc(tctx, trust_sid);

            trustinfo.sid = domsid[i];
            trustinfo.netbios_name.string = trust_name;
            trustinfo.domain_name.string = trust_name_dns;

            /* Create inbound, some outbound, and some
             * bi-directional trusts in a repeating pattern based
             * on i */

            /* 1 == inbound, 2 == outbound, 3 == both */
            trustinfo.trust_direction = (i % 3) + 1;

            /* Try different trust types too */

            /* 1 == downlevel (NT4), 2 == uplevel (ADS), 3 == MIT (kerberos but not AD) */
            trustinfo.trust_type = (((i / 3) + 1) % 3) + 1;

            trustinfo.trust_attributes = LSA_TRUST_ATTRIBUTE_USES_RC4_ENCRYPTION;

            generate_random_buffer(auth_struct.confounder, sizeof(auth_struct.confounder));

            auth_struct.outgoing.count = 0;
            auth_struct.incoming.count = 0;

            ndr_err = ndr_push_struct_blob(&auth_blob, tctx, &auth_struct,
                                     (ndr_push_flags_fn_t)ndr_push_trustDomainPasswords);
            if (!NDR_ERR_CODE_IS_SUCCESS(ndr_err)) {
                  torture_comment(tctx, "ndr_push_struct_blob of trustDomainPasswords structure failed");
                  ret = false;
            }

            arcfour_crypt_blob(auth_blob.data, auth_blob.length, &session_key);

            authinfo.auth_blob.size = auth_blob.length;
            authinfo.auth_blob.data = auth_blob.data;

            r.in.policy_handle = handle;
            r.in.info = &trustinfo;
            r.in.auth_info = &authinfo;
            r.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
            r.out.trustdom_handle = &trustdom_handle[i];

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_CreateTrustedDomainEx2_r(b, tctx, &r),
                  "CreateTrustedDomainEx2 failed");
            if (NT_STATUS_EQUAL(r.out.result, NT_STATUS_OBJECT_NAME_COLLISION)) {
                  test_DeleteTrustedDomain(b, tctx, handle, trustinfo.netbios_name);
                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_CreateTrustedDomainEx2_r(b, tctx, &r),
                        "CreateTrustedDomainEx2 failed");
            }
            if (!NT_STATUS_IS_OK(r.out.result)) {
                  torture_comment(tctx, "CreateTrustedDomainEx failed2 - %s\n", nt_errstr(r.out.result));
                  ret = false;
            } else {

                  q.in.trustdom_handle = &trustdom_handle[i];
                  q.in.level = LSA_TRUSTED_DOMAIN_INFO_INFO_EX;
                  q.out.info = &info;
                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QueryTrustedDomainInfo_r(b, tctx, &q),
                        "QueryTrustedDomainInfo failed");
                  if (!NT_STATUS_IS_OK(q.out.result)) {
                        torture_comment(tctx, "QueryTrustedDomainInfo level 1 failed - %s\n", nt_errstr(q.out.result));
                        ret = false;
                  } else if (!q.out.info) {
                        torture_comment(tctx, "QueryTrustedDomainInfo level 1 failed to return an info pointer\n");
                        ret = false;
                  } else {
                        if (strcmp(info->info_ex.netbios_name.string, trustinfo.netbios_name.string) != 0) {
                              torture_comment(tctx, "QueryTrustedDomainInfo returned inconsistant short name: %s != %s\n",
                                     info->info_ex.netbios_name.string, trustinfo.netbios_name.string);
                              ret = false;
                        }
                        if (info->info_ex.trust_type != trustinfo.trust_type) {
                              torture_comment(tctx, "QueryTrustedDomainInfo of %s returned incorrect trust type %d != %d\n",
                                     trust_name, info->info_ex.trust_type, trustinfo.trust_type);
                              ret = false;
                        }
                        if (info->info_ex.trust_attributes != LSA_TRUST_ATTRIBUTE_USES_RC4_ENCRYPTION) {
                              torture_comment(tctx, "QueryTrustedDomainInfo of %s returned incorrect trust attributes %d != %d\n",
                                     trust_name, info->info_ex.trust_attributes, LSA_TRUST_ATTRIBUTE_USES_RC4_ENCRYPTION);
                              ret = false;
                        }
                        if (info->info_ex.trust_direction != trustinfo.trust_direction) {
                              torture_comment(tctx, "QueryTrustedDomainInfo of %s returned incorrect trust direction %d != %d\n",
                                     trust_name, info->info_ex.trust_direction, trustinfo.trust_direction);
                              ret = false;
                        }
                  }
            }
      }

      /* now that we have some domains to look over, we can test the enum calls */
      if (!test_EnumTrustDom(b, tctx, handle)) {
            torture_comment(tctx, "test_EnumTrustDom failed\n");
            ret = false;
      }

      if (!test_EnumTrustDomEx(b, tctx, handle)) {
            torture_comment(tctx, "test_EnumTrustDomEx failed\n");
            ret = false;
      }

      for (i=0; i<num_trusts; i++) {
            if (!test_DeleteTrustedDomainBySid(b, tctx, handle, domsid[i])) {
                  torture_comment(tctx, "test_DeleteTrustedDomainBySid failed\n");
                  ret = false;
            }
      }

      return ret;
}

static bool test_QueryDomainInfoPolicy(struct dcerpc_binding_handle *b,
                         struct torture_context *tctx,
                         struct policy_handle *handle)
{
      struct lsa_QueryDomainInformationPolicy r;
      union lsa_DomainInformationPolicy *info = NULL;
      int i;
      bool ret = true;

      if (torture_setting_bool(tctx, "samba3", false)) {
            torture_skip(tctx, "skipping QueryDomainInformationPolicy test\n");
      }

      torture_comment(tctx, "\nTesting QueryDomainInformationPolicy\n");

      for (i=2;i<4;i++) {
            r.in.handle = handle;
            r.in.level = i;
            r.out.info = &info;

            torture_comment(tctx, "\nTrying QueryDomainInformationPolicy level %d\n", i);

            torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QueryDomainInformationPolicy_r(b, tctx, &r),
                  "QueryDomainInformationPolicy failed");

            /* If the server does not support EFS, then this is the correct return */
            if (i == LSA_DOMAIN_INFO_POLICY_EFS && NT_STATUS_EQUAL(r.out.result, NT_STATUS_OBJECT_NAME_NOT_FOUND)) {
                  continue;
            } else if (!NT_STATUS_IS_OK(r.out.result)) {
                  torture_comment(tctx, "QueryDomainInformationPolicy failed - %s\n", nt_errstr(r.out.result));
                  ret = false;
                  continue;
            }
      }

      return ret;
}


static bool test_QueryInfoPolicyCalls(    bool version2,
                              struct dcerpc_binding_handle *b,
                              struct torture_context *tctx,
                              struct policy_handle *handle)
{
      struct lsa_QueryInfoPolicy r;
      union lsa_PolicyInformation *info = NULL;
      int i;
      bool ret = true;
      const char *call = talloc_asprintf(tctx, "QueryInfoPolicy%s", version2 ? "2":"");

      torture_comment(tctx, "\nTesting %s\n", call);

      if (version2 && torture_setting_bool(tctx, "samba3", false)) {
            torture_skip(tctx, "skipping QueryInfoPolicy2 tests\n");
      }

      for (i=1;i<=14;i++) {
            r.in.handle = handle;
            r.in.level = i;
            r.out.info = &info;

            torture_comment(tctx, "\nTrying %s level %d\n", call, i);

            if (version2)
                  /* We can perform the cast, because both types are
                     structurally equal */
                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QueryInfoPolicy2_r(b, tctx,
                         (struct lsa_QueryInfoPolicy2*) &r),
                         "QueryInfoPolicy2 failed");
            else
                  torture_assert_ntstatus_ok(tctx, dcerpc_lsa_QueryInfoPolicy_r(b, tctx, &r),
                        "QueryInfoPolicy2 failed");

            switch (i) {
            case LSA_POLICY_INFO_MOD:
            case LSA_POLICY_INFO_AUDIT_FULL_SET:
            case LSA_POLICY_INFO_AUDIT_FULL_QUERY:
                  if (!NT_STATUS_EQUAL(r.out.result, NT_STATUS_INVALID_PARAMETER)) {
                        torture_comment(tctx, "Server should have failed level %u: %s\n", i, nt_errstr(r.out.result));
                        ret = false;
                  }
                  break;
            case LSA_POLICY_INFO_DOMAIN:
            case LSA_POLICY_INFO_ACCOUNT_DOMAIN:
            case LSA_POLICY_INFO_REPLICA:
            case LSA_POLICY_INFO_QUOTA:
            case LSA_POLICY_INFO_ROLE:
            case LSA_POLICY_INFO_AUDIT_LOG:
            case LSA_POLICY_INFO_AUDIT_EVENTS:
            case LSA_POLICY_INFO_PD:
                  if (!NT_STATUS_IS_OK(r.out.result)) {
                        torture_comment(tctx, "%s failed - %s\n", call, nt_errstr(r.out.result));
                        ret = false;
                  }
                  break;
            case LSA_POLICY_INFO_L_ACCOUNT_DOMAIN:
            case LSA_POLICY_INFO_DNS_INT:
            case LSA_POLICY_INFO_DNS:
                  if (torture_setting_bool(tctx, "samba3", false)) {
                        /* Other levels not implemented yet */
                        if (!NT_STATUS_EQUAL(r.out.result, NT_STATUS_INVALID_INFO_CLASS)) {
                              torture_comment(tctx, "%s failed - %s\n", call, nt_errstr(r.out.result));
                              ret = false;
                        }
                  } else if (!NT_STATUS_IS_OK(r.out.result)) {
                        torture_comment(tctx, "%s failed - %s\n", call, nt_errstr(r.out.result));
                        ret = false;
                  }
                  break;
            default:
                  if (torture_setting_bool(tctx, "samba4", false)) {
                        /* Other levels not implemented yet */
                        if (!NT_STATUS_EQUAL(r.out.result, NT_STATUS_INVALID_INFO_CLASS)) {
                              torture_comment(tctx, "%s failed - %s\n", call, nt_errstr(r.out.result));
                              ret = false;
                        }
                  } else if (!NT_STATUS_IS_OK(r.out.result)) {
                        torture_comment(tctx, "%s failed - %s\n", call, nt_errstr(r.out.result));
                        ret = false;
                  }
                  break;
            }

            if (NT_STATUS_IS_OK(r.out.result) && (i == LSA_POLICY_INFO_DNS
                  || i == LSA_POLICY_INFO_DNS_INT)) {
                  /* Let's look up some of these names */

                  struct lsa_TransNameArray tnames;
                  tnames.count = 14;
                  tnames.names = talloc_zero_array(tctx, struct lsa_TranslatedName, tnames.count);
                  tnames.names[0].name.string = info->dns.name.string;
                  tnames.names[0].sid_type = SID_NAME_DOMAIN;
                  tnames.names[1].name.string = info->dns.dns_domain.string;
                  tnames.names[1].sid_type = SID_NAME_DOMAIN;
                  tnames.names[2].name.string = talloc_asprintf(tctx, "%s\\", info->dns.name.string);
                  tnames.names[2].sid_type = SID_NAME_DOMAIN;
                  tnames.names[3].name.string = talloc_asprintf(tctx, "%s\\", info->dns.dns_domain.string);
                  tnames.names[3].sid_type = SID_NAME_DOMAIN;
                  tnames.names[4].name.string = talloc_asprintf(tctx, "%s\\guest", info->dns.name.string);
                  tnames.names[4].sid_type = SID_NAME_USER;
                  tnames.names[5].name.string = talloc_asprintf(tctx, "%s\\krbtgt", info->dns.name.string);
                  tnames.names[5].sid_type = SID_NAME_USER;
                  tnames.names[6].name.string = talloc_asprintf(tctx, "%s\\guest", info->dns.dns_domain.string);
                  tnames.names[6].sid_type = SID_NAME_USER;
                  tnames.names[7].name.string = talloc_asprintf(tctx, "%s\\krbtgt", info->dns.dns_domain.string);
                  tnames.names[7].sid_type = SID_NAME_USER;
                  tnames.names[8].name.string = talloc_asprintf(tctx, "krbtgt@%s", info->dns.name.string);
                  tnames.names[8].sid_type = SID_NAME_USER;
                  tnames.names[9].name.string = talloc_asprintf(tctx, "krbtgt@%s", info->dns.dns_domain.string);
                  tnames.names[9].sid_type = SID_NAME_USER;
                  tnames.names[10].name.string = talloc_asprintf(tctx, "%s\\"TEST_MACHINENAME "$", info->dns.name.string);
                  tnames.names[10].sid_type = SID_NAME_USER;
                  tnames.names[11].name.string = talloc_asprintf(tctx, "%s\\"TEST_MACHINENAME "$", info->dns.dns_domain.string);
                  tnames.names[11].sid_type = SID_NAME_USER;
                  tnames.names[12].name.string = talloc_asprintf(tctx, TEST_MACHINENAME "$@%s", info->dns.name.string);
                  tnames.names[12].sid_type = SID_NAME_USER;
                  tnames.names[13].name.string = talloc_asprintf(tctx, TEST_MACHINENAME "$@%s", info->dns.dns_domain.string);
                  tnames.names[13].sid_type = SID_NAME_USER;
                  ret &= test_LookupNames(b, tctx, handle, &tnames);

            }
      }

      return ret;
}

static bool test_QueryInfoPolicy(struct dcerpc_binding_handle *b,
                         struct torture_context *tctx,
                         struct policy_handle *handle)
{
      return test_QueryInfoPolicyCalls(false, b, tctx, handle);
}

static bool test_QueryInfoPolicy2(struct dcerpc_binding_handle *b,
                          struct torture_context *tctx,
                          struct policy_handle *handle)
{
      return test_QueryInfoPolicyCalls(true, b, tctx, handle);
}

static bool test_GetUserName(struct dcerpc_binding_handle *b,
                       struct torture_context *tctx)
{
      struct lsa_GetUserName r;
      bool ret = true;
      struct lsa_String *authority_name_p = NULL;
      struct lsa_String *account_name_p = NULL;

      torture_comment(tctx, "\nTesting GetUserName\n");

      r.in.system_name  = "\\";
      r.in.account_name = &account_name_p;
      r.in.authority_name     = NULL;
      r.out.account_name      = &account_name_p;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_GetUserName_r(b, tctx, &r),
            "GetUserName failed");

      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "GetUserName failed - %s\n", nt_errstr(r.out.result));
            ret = false;
      }

      account_name_p = NULL;
      r.in.account_name = &account_name_p;
      r.in.authority_name     = &authority_name_p;
      r.out.account_name      = &account_name_p;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_GetUserName_r(b, tctx, &r),
            "GetUserName failed");

      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "GetUserName failed - %s\n", nt_errstr(r.out.result));
            ret = false;
      }

      return ret;
}

bool test_lsa_Close(struct dcerpc_binding_handle *b,
                struct torture_context *tctx,
                struct policy_handle *handle)
{
      struct lsa_Close r;
      struct policy_handle handle2;

      torture_comment(tctx, "\nTesting Close\n");

      r.in.handle = handle;
      r.out.handle = &handle2;

      torture_assert_ntstatus_ok(tctx, dcerpc_lsa_Close_r(b, tctx, &r),
            "Close failed");
      if (!NT_STATUS_IS_OK(r.out.result)) {
            torture_comment(tctx, "Close failed - %s\n",
            nt_errstr(r.out.result));
            return false;
      }

      torture_assert_ntstatus_equal(tctx, dcerpc_lsa_Close_r(b, tctx, &r),
            NT_STATUS_RPC_SS_CONTEXT_MISMATCH, "Close should failed");

      torture_comment(tctx, "\n");

      return true;
}

bool torture_rpc_lsa(struct torture_context *tctx)
{
        NTSTATUS status;
        struct dcerpc_pipe *p;
      bool ret = true;
      struct policy_handle *handle;
      struct test_join *join = NULL;
      struct cli_credentials *machine_creds;
      struct dcerpc_binding_handle *b;

      status = torture_rpc_connection(tctx, &p, &ndr_table_lsarpc);
      if (!NT_STATUS_IS_OK(status)) {
            return false;
      }
      b = p->binding_handle;

      if (!test_OpenPolicy(b, tctx)) {
            ret = false;
      }

      if (!test_lsa_OpenPolicy2(b, tctx, &handle)) {
            ret = false;
      }

      if (handle) {
            join = torture_join_domain(tctx, TEST_MACHINENAME, ACB_WSTRUST, &machine_creds);
            if (!join) {
                  ret = false;
            }

            if (!test_LookupSids_async(b, tctx, handle)) {
                  ret = false;
            }

            if (!test_QueryDomainInfoPolicy(b, tctx, handle)) {
                  ret = false;
            }

            if (!test_CreateSecret(p, tctx, handle)) {
                  ret = false;
            }

            if (!test_QueryInfoPolicy(b, tctx, handle)) {
                  ret = false;
            }

            if (!test_QueryInfoPolicy2(b, tctx, handle)) {
                  ret = false;
            }

            if (!test_Delete(b, tctx, handle)) {
                  ret = false;
            }

            if (!test_many_LookupSids(p, tctx, handle)) {
                  ret = false;
            }

            if (!test_lsa_Close(b, tctx, handle)) {
                  ret = false;
            }

            torture_leave_domain(tctx, join);

      } else {
            if (!test_many_LookupSids(p, tctx, handle)) {
                  ret = false;
            }
      }

      if (!test_GetUserName(b, tctx)) {
            ret = false;
      }

      return ret;
}

bool torture_rpc_lsa_get_user(struct torture_context *tctx)
{
        NTSTATUS status;
        struct dcerpc_pipe *p;
      bool ret = true;
      struct dcerpc_binding_handle *b;

      status = torture_rpc_connection(tctx, &p, &ndr_table_lsarpc);
      if (!NT_STATUS_IS_OK(status)) {
            return false;
      }
      b = p->binding_handle;

      if (!test_GetUserName(b, tctx)) {
            ret = false;
      }

      return ret;
}

static bool testcase_LookupNames(struct torture_context *tctx,
                         struct dcerpc_pipe *p)
{
      bool ret = true;
      struct policy_handle *handle;
      struct lsa_TransNameArray tnames;
      struct lsa_TransNameArray2 tnames2;
      struct dcerpc_binding_handle *b = p->binding_handle;

      if (!test_OpenPolicy(b, tctx)) {
            ret = false;
      }

      if (!test_lsa_OpenPolicy2(b, tctx, &handle)) {
            ret = false;
      }

      if (!handle) {
            ret = false;
      }

      tnames.count = 1;
      tnames.names = talloc_array(tctx, struct lsa_TranslatedName, tnames.count);
      ZERO_STRUCT(tnames.names[0]);
      tnames.names[0].name.string = "BUILTIN";
      tnames.names[0].sid_type = SID_NAME_DOMAIN;

      if (!test_LookupNames(b, tctx, handle, &tnames)) {
            ret = false;
      }

      tnames2.count = 1;
      tnames2.names = talloc_array(tctx, struct lsa_TranslatedName2, tnames2.count);
      ZERO_STRUCT(tnames2.names[0]);
      tnames2.names[0].name.string = "BUILTIN";
      tnames2.names[0].sid_type = SID_NAME_DOMAIN;

      if (!test_LookupNames2(b, tctx, handle, &tnames2, true)) {
            ret = false;
      }

      if (!test_LookupNames3(b, tctx, handle, &tnames2, true)) {
            ret = false;
      }

      if (!test_LookupNames_wellknown(b, tctx, handle)) {
            ret = false;
      }

      if (!test_LookupNames_NULL(b, tctx, handle)) {
            ret = false;
      }

      if (!test_LookupNames_bogus(b, tctx, handle)) {
            ret = false;
      }

      if (!test_lsa_Close(b, tctx, handle)) {
            ret = false;
      }

      return ret;
}

struct torture_suite *torture_rpc_lsa_lookup_names(TALLOC_CTX *mem_ctx)
{
      struct torture_suite *suite;
      struct torture_rpc_tcase *tcase;

      suite = torture_suite_create(mem_ctx, "LSA-LOOKUPNAMES");

      tcase = torture_suite_add_rpc_iface_tcase(suite, "lsa",
                                      &ndr_table_lsarpc);
      torture_rpc_tcase_add_test(tcase, "LookupNames",
                           testcase_LookupNames);

      return suite;
}

struct lsa_trustdom_state {
      uint32_t num_trusts;
};

static bool testcase_TrustedDomains(struct torture_context *tctx,
                            struct dcerpc_pipe *p,
                            void *data)
{
      bool ret = true;
      struct policy_handle *handle;
      struct lsa_trustdom_state *state =
            talloc_get_type_abort(data, struct lsa_trustdom_state);
      struct dcerpc_binding_handle *b = p->binding_handle;

      torture_comment(tctx, "Testing %d domains\n", state->num_trusts);

      if (!test_OpenPolicy(b, tctx)) {
            ret = false;
      }

      if (!test_lsa_OpenPolicy2(b, tctx, &handle)) {
            ret = false;
      }

      if (!handle) {
            ret = false;
      }

      if (!test_CreateTrustedDomain(b, tctx, handle, state->num_trusts)) {
            ret = false;
      }

      if (!test_CreateTrustedDomainEx2(p, tctx, handle, state->num_trusts)) {
            ret = false;
      }

      if (!test_lsa_Close(b, tctx, handle)) {
            ret = false;
      }

      return ret;
}

struct torture_suite *torture_rpc_lsa_trusted_domains(TALLOC_CTX *mem_ctx)
{
      struct torture_suite *suite;
      struct torture_rpc_tcase *tcase;
      struct lsa_trustdom_state *state;

      state = talloc(mem_ctx, struct lsa_trustdom_state);

      state->num_trusts = 12;

      suite = torture_suite_create(mem_ctx, "LSA-TRUSTED-DOMAINS");

      tcase = torture_suite_add_rpc_iface_tcase(suite, "lsa",
                                      &ndr_table_lsarpc);
      torture_rpc_tcase_add_test_ex(tcase, "TrustedDomains",
                              testcase_TrustedDomains,
                              state);

      return suite;
}

static bool testcase_Privileges(struct torture_context *tctx,
                        struct dcerpc_pipe *p)
{
      bool ret = true;
      struct policy_handle *handle;
      struct dcerpc_binding_handle *b = p->binding_handle;

      if (!test_OpenPolicy(b, tctx)) {
            ret = false;
      }

      if (!test_lsa_OpenPolicy2(b, tctx, &handle)) {
            ret = false;
      }

      if (!handle) {
            ret = false;
      }

      if (!test_CreateAccount(b, tctx, handle)) {
            ret = false;
      }

      if (!test_EnumAccounts(b, tctx, handle)) {
            ret = false;
      }

      if (!test_EnumPrivs(b, tctx, handle)) {
            ret = false;
      }

      if (!test_lsa_Close(b, tctx, handle)) {
            ret = false;
      }

      return ret;
}


struct torture_suite *torture_rpc_lsa_privileges(TALLOC_CTX *mem_ctx)
{
      struct torture_suite *suite;
      struct torture_rpc_tcase *tcase;

      suite = torture_suite_create(mem_ctx, "LSA-PRIVILEGES");

      tcase = torture_suite_add_rpc_iface_tcase(suite, "lsa",
                                      &ndr_table_lsarpc);
      torture_rpc_tcase_add_test(tcase, "Privileges",
                           testcase_Privileges);

      return suite;
}

Generated by  Doxygen 1.6.0   Back to index