/*
   Unix SMB/CIFS implementation.
   RPC pipe client

   Copyright (C) Andrew Tridgell              1992-2000,
   Copyright (C) Luke Kenneth Casson Leighton 1996-2000,
   Copyright (C) Elrond                            2000,
   Copyright (C) Tim Potter                        2000
   Copyright (C) Guenther Deschner		   2008

   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 "rpcclient.h"
#include "../libcli/auth/libcli_auth.h"
#include "../librpc/gen_ndr/ndr_samr.h"
#include "../librpc/gen_ndr/ndr_samr_c.h"
#include "rpc_client/cli_samr.h"
#include "rpc_client/init_samr.h"
#include "rpc_client/init_lsa.h"
#include "../libcli/security/security.h"
#include "lib/util/smb_strtox.h"

static struct dom_sid domain_sid;

/****************************************************************************
 display samr_user_info_7 structure
 ****************************************************************************/
static void display_samr_user_info_7(struct samr_UserInfo7 *r)
{
	printf("\tUser Name   :\t%s\n", r->account_name.string);
}

/****************************************************************************
 display samr_user_info_9 structure
 ****************************************************************************/
static void display_samr_user_info_9(struct samr_UserInfo9 *r)
{
	printf("\tPrimary group RID   :\tox%x\n", r->primary_gid);
}

/****************************************************************************
 display samr_user_info_16 structure
 ****************************************************************************/
static void display_samr_user_info_16(struct samr_UserInfo16 *r)
{
	printf("\tAcct Flags   :\tox%x\n", r->acct_flags);
}

/****************************************************************************
 display samr_user_info_20 structure
 ****************************************************************************/
static void display_samr_user_info_20(struct samr_UserInfo20 *r)
{
	printf("\tRemote Dial :\n");
	dump_data(0, (uint8_t *)r->parameters.array, r->parameters.length*2);
}


/****************************************************************************
 display samr_user_info_21 structure
 ****************************************************************************/
static void display_samr_user_info_21(struct samr_UserInfo21 *r)
{
	printf("\tUser Name   :\t%s\n", r->account_name.string);
	printf("\tFull Name   :\t%s\n", r->full_name.string);
	printf("\tHome Drive  :\t%s\n", r->home_directory.string);
	printf("\tDir Drive   :\t%s\n", r->home_drive.string);
	printf("\tProfile Path:\t%s\n", r->profile_path.string);
	printf("\tLogon Script:\t%s\n", r->logon_script.string);
	printf("\tDescription :\t%s\n", r->description.string);
	printf("\tWorkstations:\t%s\n", r->workstations.string);
	printf("\tComment     :\t%s\n", r->comment.string);
	printf("\tRemote Dial :\n");
	dump_data(0, (uint8_t *)r->parameters.array, r->parameters.length*2);

	printf("\tLogon Time               :\t%s\n",
	       http_timestring(talloc_tos(), nt_time_to_unix(r->last_logon)));
	printf("\tLogoff Time              :\t%s\n",
	       http_timestring(talloc_tos(), nt_time_to_unix(r->last_logoff)));
	printf("\tKickoff Time             :\t%s\n",
	       http_timestring(talloc_tos(), nt_time_to_unix(r->acct_expiry)));
	printf("\tPassword last set Time   :\t%s\n",
	       http_timestring(talloc_tos(), nt_time_to_unix(r->last_password_change)));
	printf("\tPassword can change Time :\t%s\n",
	       http_timestring(talloc_tos(), nt_time_to_unix(r->allow_password_change)));
	printf("\tPassword must change Time:\t%s\n",
	       http_timestring(talloc_tos(), nt_time_to_unix(r->force_password_change)));

	printf("\tunknown_2[0..31]...\n"); /* user passwords? */

	printf("\tuser_rid :\t0x%x\n"  , r->rid); /* User ID */
	printf("\tgroup_rid:\t0x%x\n"  , r->primary_gid); /* Group ID */
	printf("\tacb_info :\t0x%08x\n", r->acct_flags); /* Account Control Info */

	printf("\tfields_present:\t0x%08x\n", r->fields_present); /* 0x00ff ffff */
	printf("\tlogon_divs:\t%d\n", r->logon_hours.units_per_week); /* 0x0000 00a8 which is 168 which is num hrs in a week */
	printf("\tbad_password_count:\t0x%08x\n", r->bad_password_count);
	printf("\tlogon_count:\t0x%08x\n", r->logon_count);

	printf("\tpadding1[0..7]...\n");

	if (r->logon_hours.bits) {
		printf("\tlogon_hrs[0..%d]...\n", r->logon_hours.units_per_week/8);
	}
}


static void display_password_properties(uint32_t password_properties)
{
	printf("password_properties: 0x%08x\n", password_properties);

	if (password_properties & DOMAIN_PASSWORD_COMPLEX)
		printf("\tDOMAIN_PASSWORD_COMPLEX\n");

	if (password_properties & DOMAIN_PASSWORD_NO_ANON_CHANGE)
		printf("\tDOMAIN_PASSWORD_NO_ANON_CHANGE\n");

	if (password_properties & DOMAIN_PASSWORD_NO_CLEAR_CHANGE)
		printf("\tDOMAIN_PASSWORD_NO_CLEAR_CHANGE\n");

	if (password_properties & DOMAIN_PASSWORD_LOCKOUT_ADMINS)
		printf("\tDOMAIN_PASSWORD_LOCKOUT_ADMINS\n");

	if (password_properties & DOMAIN_PASSWORD_STORE_CLEARTEXT)
		printf("\tDOMAIN_PASSWORD_STORE_CLEARTEXT\n");

	if (password_properties & DOMAIN_REFUSE_PASSWORD_CHANGE)
		printf("\tDOMAIN_REFUSE_PASSWORD_CHANGE\n");
}

static void display_sam_dom_info_1(struct samr_DomInfo1 *info1)
{
	printf("Minimum password length:\t\t\t%d\n",
		info1->min_password_length);
	printf("Password uniqueness (remember x passwords):\t%d\n",
		info1->password_history_length);
	display_password_properties(info1->password_properties);
	printf("password expire in:\t\t\t\t%s\n",
		display_time(info1->max_password_age));
	printf("Min password age (allow changing in x days):\t%s\n",
		display_time(info1->min_password_age));
}

static void display_sam_dom_info_2(struct samr_DomGeneralInformation *general)
{
	printf("Domain:\t\t%s\n", general->domain_name.string);
	printf("Server:\t\t%s\n", general->primary.string);
	printf("Comment:\t%s\n", general->oem_information.string);

	printf("Total Users:\t%d\n", general->num_users);
	printf("Total Groups:\t%d\n", general->num_groups);
	printf("Total Aliases:\t%d\n", general->num_aliases);

	printf("Sequence No:\t%llu\n", (unsigned long long)general->sequence_num);

	printf("Force Logoff:\t%" PRIu64 "\n",
	       (uint64_t)nt_time_to_unix_abs(&general->force_logoff_time));

	printf("Domain Server State:\t0x%x\n", general->domain_server_state);
	printf("Server Role:\t%s\n", server_role_str(general->role));
	printf("Unknown 3:\t0x%x\n", general->unknown3);
}

static void display_sam_dom_info_3(struct samr_DomInfo3 *info3)
{
	printf("Force Logoff:\t%" PRIu64 "\n",
	       (uint64_t)nt_time_to_unix_abs(&info3->force_logoff_time));
}

static void display_sam_dom_info_4(struct samr_DomOEMInformation *oem)
{
	printf("Comment:\t%s\n", oem->oem_information.string);
}

static void display_sam_dom_info_5(struct samr_DomInfo5 *info5)
{
	printf("Domain:\t\t%s\n", info5->domain_name.string);
}

static void display_sam_dom_info_6(struct samr_DomInfo6 *info6)
{
	printf("Server:\t\t%s\n", info6->primary.string);
}

static void display_sam_dom_info_7(struct samr_DomInfo7 *info7)
{
	printf("Server Role:\t%s\n", server_role_str(info7->role));
}

static void display_sam_dom_info_8(struct samr_DomInfo8 *info8)
{
	printf("Sequence No:\t%llu\n", (unsigned long long)info8->sequence_num);
	printf("Domain Create Time:\t%s\n",
		http_timestring(talloc_tos(), nt_time_to_unix(info8->domain_create_time)));
}

static void display_sam_dom_info_9(struct samr_DomInfo9 *info9)
{
	printf("Domain Server State:\t0x%x\n", info9->domain_server_state);
}

static void display_sam_dom_info_12(struct samr_DomInfo12 *info12)
{
	printf("Bad password lockout duration:               %s\n",
		display_time(info12->lockout_duration));
	printf("Reset Lockout after:                         %s\n",
		display_time(info12->lockout_window));
	printf("Lockout after bad attempts:                  %d\n",
		info12->lockout_threshold);
}

static void display_sam_dom_info_13(struct samr_DomInfo13 *info13)
{
	printf("Sequence No:\t%llu\n", (unsigned long long)info13->sequence_num);
	printf("Domain Create Time:\t%s\n",
		http_timestring(talloc_tos(), nt_time_to_unix(info13->domain_create_time)));
	printf("Sequence No at last promotion:\t%llu\n",
		(unsigned long long)info13->modified_count_at_last_promotion);
}

static void display_sam_info_1(struct samr_DispEntryGeneral *r)
{
	printf("index: 0x%x ", r->idx);
	printf("RID: 0x%x ", r->rid);
	printf("acb: 0x%08x ", r->acct_flags);
	printf("Account: %s\t", r->account_name.string);
	printf("Name: %s\t", r->full_name.string);
	printf("Desc: %s\n", r->description.string);
}

static void display_sam_info_2(struct samr_DispEntryFull *r)
{
	printf("index: 0x%x ", r->idx);
	printf("RID: 0x%x ", r->rid);
	printf("acb: 0x%08x ", r->acct_flags);
	printf("Account: %s\t", r->account_name.string);
	printf("Desc: %s\n", r->description.string);
}

static void display_sam_info_3(struct samr_DispEntryFullGroup *r)
{
	printf("index: 0x%x ", r->idx);
	printf("RID: 0x%x ", r->rid);
	printf("acb: 0x%08x ", r->acct_flags);
	printf("Account: %s\t", r->account_name.string);
	printf("Desc: %s\n", r->description.string);
}

static void display_sam_info_4(struct samr_DispEntryAscii *r)
{
	printf("index: 0x%x ", r->idx);
	printf("Account: %s\n", r->account_name.string);
}

static void display_sam_info_5(struct samr_DispEntryAscii *r)
{
	printf("index: 0x%x ", r->idx);
	printf("Account: %s\n", r->account_name.string);
}

static NTSTATUS rpccli_try_samr_connects(
	struct rpc_pipe_client *cli,
	TALLOC_CTX *mem_ctx,
	uint32_t access_mask,
	struct policy_handle *connect_pol)
{
	struct dcerpc_binding_handle *b = cli->binding_handle;
	NTSTATUS status;
	NTSTATUS result = NT_STATUS_UNSUCCESSFUL;
	uint32_t start_idx = 0;
	uint32_t i, num_entries;
	struct samr_SamArray *sam = NULL;
	struct dom_sid *domsid = NULL;

	status = dcerpc_try_samr_connects(
		b,
		mem_ctx,
		cli->srv_name_slash,
		access_mask,
		connect_pol,
		&result);
	if (!NT_STATUS_IS_OK(status)) {
		return status;
	}
	if (!NT_STATUS_IS_OK(result)) {
		return result;
	}

	if (!is_null_sid(&domain_sid)) {
		return NT_STATUS_OK;
	}

	/*
	 * Look up the servers domain SID. Just pick the first
	 * non-builtin domain from samr_EnumDomains.
	 */

	status = dcerpc_samr_EnumDomains(
		b,
		mem_ctx,
		connect_pol,
		&start_idx,
		&sam,
		0xffff,
		&num_entries,
		&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto fail;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto fail;
	}

	for (i=0; i<num_entries; i++) {
		if (!strequal(sam->entries[i].name.string, "builtin")) {
			break;
		}
	}
	if (i == num_entries) {
		status = NT_STATUS_NOT_FOUND;
		goto fail;
	}

	status = dcerpc_samr_LookupDomain(
		b,
		mem_ctx,
		connect_pol,
		&sam->entries[i].name,
		&domsid,
		&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto fail;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto fail;
	}

	sid_copy(&domain_sid, domsid);
	TALLOC_FREE(domsid);

	return NT_STATUS_OK;

fail:
	dcerpc_samr_Close(b, mem_ctx, connect_pol, &result);
	return status;
}

/****************************************************************************
 ****************************************************************************/

static NTSTATUS get_domain_handle(struct rpc_pipe_client *cli,
				  TALLOC_CTX *mem_ctx,
				  const char *sam,
				  struct policy_handle *connect_pol,
				  uint32_t access_mask,
				  struct dom_sid *_domain_sid,
				  struct policy_handle *domain_pol)
{
	struct dcerpc_binding_handle *b = cli->binding_handle;
	NTSTATUS status = NT_STATUS_INVALID_PARAMETER, result;

	if (strcasecmp_m(sam, "domain") == 0) {
		status = dcerpc_samr_OpenDomain(b, mem_ctx,
					      connect_pol,
					      access_mask,
					      _domain_sid,
					      domain_pol,
					      &result);
	} else if (strcasecmp_m(sam, "builtin") == 0) {
		status = dcerpc_samr_OpenDomain(b, mem_ctx,
					      connect_pol,
					      access_mask,
					      discard_const_p(struct dom_sid2, &global_sid_Builtin),
					      domain_pol,
					      &result);
	}

	if (!NT_STATUS_IS_OK(status)) {
		return status;
	}

	return result;
}

/**********************************************************************
 * Query user information
 */
static NTSTATUS cmd_samr_query_user(struct rpc_pipe_client *cli,
                                    TALLOC_CTX *mem_ctx,
                                    int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol, user_pol;
	NTSTATUS status, result;
	uint32_t info_level = 21;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	union samr_UserInfo *info = NULL;
	uint32_t user_rid = 0;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 2) || (argc > 4)) {
		printf("Usage: %s rid [info level] [access mask] \n", argv[0]);
		return NT_STATUS_OK;
	}

	sscanf(argv[1], "%i", &user_rid);

	if (argc > 2)
		sscanf(argv[2], "%i", &info_level);

	if (argc > 3)
		sscanf(argv[3], "%x", &access_mask);


	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					MAXIMUM_ALLOWED_ACCESS,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_OpenUser(b, mem_ctx,
				      &domain_pol,
				      access_mask,
				      user_rid,
				      &user_pol,
				      &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (NT_STATUS_EQUAL(result, NT_STATUS_NO_SUCH_USER) &&
	    (user_rid == 0)) {

		/* Probably this was a user name, try lookupnames */
		struct samr_Ids rids, types;
		struct lsa_String lsa_acct_name;

		init_lsa_String(&lsa_acct_name, argv[1]);

		status = dcerpc_samr_LookupNames(b, mem_ctx,
						 &domain_pol,
						 1,
						 &lsa_acct_name,
						 &rids,
						 &types,
						 &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}

		if (NT_STATUS_IS_OK(result)) {
			if (rids.count != 1) {
				status = NT_STATUS_INVALID_NETWORK_RESPONSE;
				goto done;
			}
			if (types.count != 1) {
				status = NT_STATUS_INVALID_NETWORK_RESPONSE;
				goto done;
			}

			status = dcerpc_samr_OpenUser(b, mem_ctx,
						      &domain_pol,
						      access_mask,
						      rids.ids[0],
						      &user_pol,
						      &result);
			if (!NT_STATUS_IS_OK(status)) {
				goto done;
			}
		}
	}


	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_QueryUserInfo(b, mem_ctx,
					   &user_pol,
					   info_level,
					   &info,
					   &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	switch (info_level) {
	case 7:
		display_samr_user_info_7(&info->info7);
		break;
	case 9:
		display_samr_user_info_9(&info->info9);
		break;
	case 16:
		display_samr_user_info_16(&info->info16);
		break;
	case 20:
		display_samr_user_info_20(&info->info20);
		break;
	case 21:
		display_samr_user_info_21(&info->info21);
		break;
	default:
		printf("Unsupported infolevel: %d\n", info_level);
		break;
	}

	dcerpc_samr_Close(b, mem_ctx, &user_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);

done:
	return status;
}

/****************************************************************************
 display group info
 ****************************************************************************/
static void display_group_info1(struct samr_GroupInfoAll *info1)
{
	printf("\tGroup Name:\t%s\n", info1->name.string);
	printf("\tDescription:\t%s\n", info1->description.string);
	printf("\tGroup Attribute:%d\n", info1->attributes);
	printf("\tNum Members:%d\n", info1->num_members);
}

/****************************************************************************
 display group info
 ****************************************************************************/
static void display_group_info2(struct lsa_String *info2)
{
	printf("\tGroup Description:%s\n", info2->string);
}


/****************************************************************************
 display group info
 ****************************************************************************/
static void display_group_info3(struct samr_GroupInfoAttributes *info3)
{
	printf("\tGroup Attribute:%d\n", info3->attributes);
}


/****************************************************************************
 display group info
 ****************************************************************************/
static void display_group_info4(struct lsa_String *info4)
{
	printf("\tGroup Description:%s\n", info4->string);
}

/****************************************************************************
 display group info
 ****************************************************************************/
static void display_group_info5(struct samr_GroupInfoAll *info5)
{
	printf("\tGroup Name:\t%s\n", info5->name.string);
	printf("\tDescription:\t%s\n", info5->description.string);
	printf("\tGroup Attribute:%d\n", info5->attributes);
	printf("\tNum Members:%d\n", info5->num_members);
}

/****************************************************************************
 display sam sync structure
 ****************************************************************************/
static void display_group_info(union samr_GroupInfo *info,
			       enum samr_GroupInfoEnum level)
{
	switch (level) {
		case 1:
			display_group_info1(&info->all);
			break;
		case 2:
			display_group_info2(&info->name);
			break;
		case 3:
			display_group_info3(&info->attributes);
			break;
		case 4:
			display_group_info4(&info->description);
			break;
		case 5:
			display_group_info5(&info->all2);
			break;
	}
}

/***********************************************************************
 * Query group information
 */
static NTSTATUS cmd_samr_query_group(struct rpc_pipe_client *cli,
                                     TALLOC_CTX *mem_ctx,
                                     int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol, group_pol;
	NTSTATUS status, result;
	enum samr_GroupInfoEnum info_level = GROUPINFOALL;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	union samr_GroupInfo *group_info = NULL;
	uint32_t group_rid;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 2) || (argc > 4)) {
		printf("Usage: %s rid [info level] [access mask]\n", argv[0]);
		return NT_STATUS_OK;
	}

        sscanf(argv[1], "%i", &group_rid);

	if (argc > 2)
		info_level = atoi(argv[2]);

	if (argc > 3)
		sscanf(argv[3], "%x", &access_mask);

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					MAXIMUM_ALLOWED_ACCESS,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_OpenGroup(b, mem_ctx,
				       &domain_pol,
				       access_mask,
				       group_rid,
				       &group_pol,
				       &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_QueryGroupInfo(b, mem_ctx,
					    &group_pol,
					    info_level,
					    &group_info,
					    &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	display_group_info(group_info, info_level);

	dcerpc_samr_Close(b, mem_ctx, &group_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
done:
	return status;
}

/* Query groups a user is a member of */

static NTSTATUS cmd_samr_query_usergroups(struct rpc_pipe_client *cli,
                                          TALLOC_CTX *mem_ctx,
                                          int argc, const char **argv)
{
	struct policy_handle 		connect_pol,
				domain_pol,
				user_pol;
	NTSTATUS status, result;
	uint32_t 		user_rid;
	uint32_t		access_mask = MAXIMUM_ALLOWED_ACCESS;
	int 			i;
	struct samr_RidWithAttributeArray *rid_array = NULL;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 2) || (argc > 3)) {
		printf("Usage: %s rid [access mask]\n", argv[0]);
		return NT_STATUS_OK;
	}

	sscanf(argv[1], "%i", &user_rid);

	if (argc > 2)
		sscanf(argv[2], "%x", &access_mask);

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					MAXIMUM_ALLOWED_ACCESS,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_OpenUser(b, mem_ctx,
				      &domain_pol,
				      access_mask,
				      user_rid,
				      &user_pol,
				      &result);

	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_GetGroupsForUser(b, mem_ctx,
					      &user_pol,
					      &rid_array,
					      &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	for (i = 0; i < rid_array->count; i++) {
		printf("\tgroup rid:[0x%x] attr:[0x%x]\n",
		       rid_array->rids[i].rid,
		       rid_array->rids[i].attributes);
	}

	dcerpc_samr_Close(b, mem_ctx, &user_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
 done:
	return status;
}

/* Query aliases a user is a member of */

static NTSTATUS cmd_samr_query_useraliases(struct rpc_pipe_client *cli,
					   TALLOC_CTX *mem_ctx,
					   int argc, const char **argv)
{
	struct policy_handle 		connect_pol, domain_pol;
	NTSTATUS status, result;
	struct dom_sid                *sids;
	uint32_t                num_sids;
	uint32_t		access_mask = MAXIMUM_ALLOWED_ACCESS;
	int 			i;
	struct lsa_SidArray sid_array;
	struct samr_Ids alias_rids;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if (argc < 3) {
		printf("Usage: %s builtin|domain sid1 sid2 ...\n", argv[0]);
		return NT_STATUS_INVALID_PARAMETER;
	}

	sids = NULL;
	num_sids = 0;

	for (i=2; i<argc; i++) {
		struct dom_sid tmp_sid;
		if (!string_to_sid(&tmp_sid, argv[i])) {
			printf("%s is not a legal SID\n", argv[i]);
			return NT_STATUS_INVALID_PARAMETER;
		}
		result = add_sid_to_array(mem_ctx, &tmp_sid, &sids, &num_sids);
		if (!NT_STATUS_IS_OK(result)) {
			return result;
		}
	}

	if (num_sids) {
		sid_array.sids = talloc_zero_array(mem_ctx, struct lsa_SidPtr, num_sids);
		if (sid_array.sids == NULL)
			return NT_STATUS_NO_MEMORY;
	} else {
		sid_array.sids = NULL;
	}

	for (i=0; i<num_sids; i++) {
		sid_array.sids[i].sid = dom_sid_dup(mem_ctx, &sids[i]);
		if (!sid_array.sids[i].sid) {
			return NT_STATUS_NO_MEMORY;
		}
	}

	sid_array.num_sids = num_sids;

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = get_domain_handle(cli, mem_ctx, argv[1],
				   &connect_pol,
				   access_mask,
				   &domain_sid,
				   &domain_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = dcerpc_samr_GetAliasMembership(b, mem_ctx,
						&domain_pol,
						&sid_array,
						&alias_rids,
						&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	for (i = 0; i < alias_rids.count; i++) {
		printf("\tgroup rid:[0x%x]\n", alias_rids.ids[i]);
	}

	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
 done:
	return status;
}

/* Query members of a group */

static NTSTATUS cmd_samr_query_groupmem(struct rpc_pipe_client *cli,
                                        TALLOC_CTX *mem_ctx,
                                        int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol, group_pol;
	NTSTATUS status, result;
	uint32_t group_rid;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	int i;
	unsigned int old_timeout;
	struct samr_RidAttrArray *rids = NULL;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 2) || (argc > 3)) {
		printf("Usage: %s rid [access mask]\n", argv[0]);
		return NT_STATUS_OK;
	}

	sscanf(argv[1], "%i", &group_rid);

	if (argc > 2)
		sscanf(argv[2], "%x", &access_mask);

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					MAXIMUM_ALLOWED_ACCESS,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_OpenGroup(b, mem_ctx,
				       &domain_pol,
				       access_mask,
				       group_rid,
				       &group_pol,
				       &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Make sure to wait for our DC's reply */
	old_timeout = rpccli_set_timeout(cli, 30000); /* 30 seconds. */
	rpccli_set_timeout(cli, MAX(30000, old_timeout)); /* At least 30 sec */

	status = dcerpc_samr_QueryGroupMember(b, mem_ctx,
					      &group_pol,
					      &rids,
					      &result);

	rpccli_set_timeout(cli, old_timeout);

	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	for (i = 0; i < rids->count; i++) {
		printf("\trid:[0x%x] attr:[0x%x]\n", rids->rids[i],
		       rids->attributes[i]);
	}

	dcerpc_samr_Close(b, mem_ctx, &group_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
 done:
	return status;
}

/* Enumerate domain users */

static NTSTATUS cmd_samr_enum_dom_users(struct rpc_pipe_client *cli,
					TALLOC_CTX *mem_ctx,
					int argc, const char **argv)
{
	struct policy_handle connect_pol;
	struct policy_handle domain_pol = { 0, };
	NTSTATUS status, result;
	uint32_t start_idx, num_dom_users, i;
	struct samr_SamArray *dom_users = NULL;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	uint32_t acb_mask = ACB_NORMAL;
	uint32_t size = 0xffff;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 1) || (argc > 4)) {
		printf("Usage: %s [access_mask] [acb_mask] [size]\n", argv[0]);
		return NT_STATUS_OK;
	}

	if (argc > 1) {
		sscanf(argv[1], "%x", &access_mask);
	}

	if (argc > 2) {
		sscanf(argv[2], "%x", &acb_mask);
	}

	if (argc > 3) {
		sscanf(argv[3], "%x", &size);
	}

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = get_domain_handle(cli, mem_ctx, "domain",
				   &connect_pol,
				   access_mask,
				   &domain_sid,
				   &domain_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Enumerate domain users */

	start_idx = 0;

	do {
		status = dcerpc_samr_EnumDomainUsers(b, mem_ctx,
						     &domain_pol,
						     &start_idx,
						     acb_mask,
						     &dom_users,
						     size,
						     &num_dom_users,
						     &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (NT_STATUS_IS_OK(result) ||
		    NT_STATUS_V(result) == NT_STATUS_V(STATUS_MORE_ENTRIES)) {

			for (i = 0; i < num_dom_users; i++)
                               printf("user:[%s] rid:[0x%x]\n",
				       dom_users->entries[i].name.string,
				       dom_users->entries[i].idx);
		}

	} while (NT_STATUS_V(result) == NT_STATUS_V(STATUS_MORE_ENTRIES));

 done:
	if (is_valid_policy_hnd(&domain_pol))
		dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);

	if (is_valid_policy_hnd(&connect_pol))
		dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);

	return status;
}

/* Enumerate domain groups */

static NTSTATUS cmd_samr_enum_dom_groups(struct rpc_pipe_client *cli,
                                         TALLOC_CTX *mem_ctx,
                                         int argc, const char **argv)
{
	struct policy_handle connect_pol;
	struct policy_handle domain_pol = { 0, };
	NTSTATUS status, result;
	uint32_t start_idx, num_dom_groups, i;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	struct samr_SamArray *dom_groups = NULL;
	uint32_t size = 0xffff;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 1) || (argc > 3)) {
		printf("Usage: %s [access_mask] [max_size]\n", argv[0]);
		return NT_STATUS_OK;
	}

	if (argc > 1) {
		sscanf(argv[1], "%x", &access_mask);
	}

	if (argc > 2) {
		sscanf(argv[2], "%x", &size);
	}

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = get_domain_handle(cli, mem_ctx, "domain",
				   &connect_pol,
				   access_mask,
				   &domain_sid,
				   &domain_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Enumerate domain groups */

	start_idx = 0;

	do {
		status = dcerpc_samr_EnumDomainGroups(b, mem_ctx,
						      &domain_pol,
						      &start_idx,
						      &dom_groups,
						      size,
						      &num_dom_groups,
						      &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (NT_STATUS_IS_OK(result) ||
		    NT_STATUS_V(result) == NT_STATUS_V(STATUS_MORE_ENTRIES)) {

			for (i = 0; i < num_dom_groups; i++)
				printf("group:[%s] rid:[0x%x]\n",
				       dom_groups->entries[i].name.string,
				       dom_groups->entries[i].idx);
		}

	} while (NT_STATUS_V(result) == NT_STATUS_V(STATUS_MORE_ENTRIES));

 done:
	if (is_valid_policy_hnd(&domain_pol))
		dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);

	if (is_valid_policy_hnd(&connect_pol))
		dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);

	return status;
}

/* Enumerate alias groups */

static NTSTATUS cmd_samr_enum_als_groups(struct rpc_pipe_client *cli,
                                         TALLOC_CTX *mem_ctx,
                                         int argc, const char **argv)
{
	struct policy_handle connect_pol;
	struct policy_handle domain_pol = { 0, };
	NTSTATUS status, result;
	uint32_t start_idx, num_als_groups, i;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	struct samr_SamArray *als_groups = NULL;
	uint32_t size = 0xffff;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 2) || (argc > 4)) {
		printf("Usage: %s builtin|domain [access mask] [max_size]\n", argv[0]);
		return NT_STATUS_OK;
	}

	if (argc > 2) {
		sscanf(argv[2], "%x", &access_mask);
	}

	if (argc > 3) {
		sscanf(argv[3], "%x", &size);
	}

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = get_domain_handle(cli, mem_ctx, argv[1],
				   &connect_pol,
				   access_mask,
				   &domain_sid,
				   &domain_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Enumerate alias groups */

	start_idx = 0;

	do {
		status = dcerpc_samr_EnumDomainAliases(b, mem_ctx,
						       &domain_pol,
						       &start_idx,
						       &als_groups,
						       size,
						       &num_als_groups,
						       &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (NT_STATUS_IS_OK(result) ||
		    NT_STATUS_V(result) == NT_STATUS_V(STATUS_MORE_ENTRIES)) {

			for (i = 0; i < num_als_groups; i++)
				printf("group:[%s] rid:[0x%x]\n",
				       als_groups->entries[i].name.string,
				       als_groups->entries[i].idx);
		}
	} while (NT_STATUS_V(result) == NT_STATUS_V(STATUS_MORE_ENTRIES));

 done:
	if (is_valid_policy_hnd(&domain_pol))
		dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);

	if (is_valid_policy_hnd(&connect_pol))
		dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);

	return status;
}

/* Enumerate domains */

static NTSTATUS cmd_samr_enum_domains(struct rpc_pipe_client *cli,
				      TALLOC_CTX *mem_ctx,
				      int argc, const char **argv)
{
	struct policy_handle connect_pol;
	NTSTATUS status, result;
	uint32_t start_idx, size, num_entries, i;
	uint32_t access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
	struct samr_SamArray *sam = NULL;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 1) || (argc > 2)) {
		printf("Usage: %s [access mask]\n", argv[0]);
		return NT_STATUS_OK;
	}

	if (argc > 1) {
		sscanf(argv[1], "%x", &access_mask);
	}

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  access_mask,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Enumerate domains */

	start_idx = 0;
	size = 0xffff;

	do {
		status = dcerpc_samr_EnumDomains(b, mem_ctx,
						 &connect_pol,
						 &start_idx,
						 &sam,
						 size,
						 &num_entries,
						 &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (NT_STATUS_IS_OK(result) ||
		    NT_STATUS_V(result) == NT_STATUS_V(STATUS_MORE_ENTRIES)) {

			for (i = 0; i < num_entries; i++)
				printf("name:[%s] idx:[0x%x]\n",
				       sam->entries[i].name.string,
				       sam->entries[i].idx);
		}
	} while (NT_STATUS_V(result) == NT_STATUS_V(STATUS_MORE_ENTRIES));

 done:
	if (is_valid_policy_hnd(&connect_pol)) {
		dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
	}

	return status;
}


/* Query alias membership */

static NTSTATUS cmd_samr_query_aliasmem(struct rpc_pipe_client *cli,
                                        TALLOC_CTX *mem_ctx,
                                        int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol, alias_pol;
	NTSTATUS status, result;
	uint32_t alias_rid, i;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	struct lsa_SidArray sid_array;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 3) || (argc > 4)) {
		printf("Usage: %s builtin|domain rid [access mask]\n", argv[0]);
		return NT_STATUS_OK;
	}

	sscanf(argv[2], "%i", &alias_rid);

	if (argc > 3)
		sscanf(argv[3], "%x", &access_mask);

	/* Open SAMR handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Open handle on domain */

	status = get_domain_handle(cli, mem_ctx, argv[1],
				   &connect_pol,
				   MAXIMUM_ALLOWED_ACCESS,
				   &domain_sid,
				   &domain_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Open handle on alias */

	status = dcerpc_samr_OpenAlias(b, mem_ctx,
				       &domain_pol,
				       access_mask,
				       alias_rid,
				       &alias_pol,
				       &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_GetMembersInAlias(b, mem_ctx,
					       &alias_pol,
					       &sid_array,
					       &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	for (i = 0; i < sid_array.num_sids; i++) {
		struct dom_sid_buf sid_str;

		printf("\tsid:[%s]\n",
		       dom_sid_str_buf(sid_array.sids[i].sid, &sid_str));
	}

	dcerpc_samr_Close(b, mem_ctx, &alias_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
 done:
	return status;
}

/* Query alias info */

static NTSTATUS cmd_samr_query_aliasinfo(struct rpc_pipe_client *cli,
					 TALLOC_CTX *mem_ctx,
					 int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol, alias_pol;
	NTSTATUS status, result;
	uint32_t alias_rid;
	uint32_t access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
	union samr_AliasInfo *info = NULL;
	enum samr_AliasInfoEnum level = ALIASINFOALL;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 3) || (argc > 4)) {
		printf("Usage: %s builtin|domain rid [level] [access mask]\n",
			argv[0]);
		return NT_STATUS_OK;
	}

	sscanf(argv[2], "%i", &alias_rid);

	if (argc > 2) {
		level = atoi(argv[3]);
	}

	if (argc > 3) {
		sscanf(argv[4], "%x", &access_mask);
	}

	/* Open SAMR handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  SEC_FLAG_MAXIMUM_ALLOWED,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Open handle on domain */

	status = get_domain_handle(cli, mem_ctx, argv[1],
				   &connect_pol,
				   SEC_FLAG_MAXIMUM_ALLOWED,
				   &domain_sid,
				   &domain_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Open handle on alias */

	status = dcerpc_samr_OpenAlias(b, mem_ctx,
				       &domain_pol,
				       access_mask,
				       alias_rid,
				       &alias_pol,
				       &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_QueryAliasInfo(b, mem_ctx,
					    &alias_pol,
					    level,
					    &info,
					    &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	switch (level) {
		case ALIASINFOALL:
			printf("Name: %s\n", info->all.name.string);
			printf("Description: %s\n", info->all.description.string);
			printf("Num Members: %d\n", info->all.num_members);
			break;
		case ALIASINFONAME:
			printf("Name: %s\n", info->name.string);
			break;
		case ALIASINFODESCRIPTION:
			printf("Description: %s\n", info->description.string);
			break;
		default:
			break;
	}

	dcerpc_samr_Close(b, mem_ctx, &alias_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
 done:
	return status;
}


/* Query delete an alias membership */

static NTSTATUS cmd_samr_delete_alias(struct rpc_pipe_client *cli,
				      TALLOC_CTX *mem_ctx,
				      int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol, alias_pol;
	NTSTATUS status, result;
	uint32_t alias_rid;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	struct dcerpc_binding_handle *b = cli->binding_handle;
	int error = 0;

	if (argc != 3) {
		printf("Usage: %s builtin|domain [rid|name]\n", argv[0]);
		return NT_STATUS_OK;
	}

	alias_rid = smb_strtoul(argv[2], NULL, 10, &error, SMB_STR_STANDARD);
	if (error != 0) {
		return NT_STATUS_INVALID_PARAMETER;
	}


	/* Open SAMR handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Open handle on domain */

	status = get_domain_handle(cli, mem_ctx, argv[1],
				   &connect_pol,
				   MAXIMUM_ALLOWED_ACCESS,
				   &domain_sid,
				   &domain_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Open handle on alias */

	status = dcerpc_samr_OpenAlias(b, mem_ctx,
				       &domain_pol,
				       access_mask,
				       alias_rid,
				       &alias_pol,
				       &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result) && (alias_rid == 0)) {
		/* Probably this was a user name, try lookupnames */
		struct samr_Ids rids, types;
		struct lsa_String lsa_acct_name;

		init_lsa_String(&lsa_acct_name, argv[2]);

		status = dcerpc_samr_LookupNames(b, mem_ctx,
						 &domain_pol,
						 1,
						 &lsa_acct_name,
						 &rids,
						 &types,
						 &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (NT_STATUS_IS_OK(result)) {
			if (rids.count != 1) {
				status = NT_STATUS_INVALID_NETWORK_RESPONSE;
				goto done;
			}
			if (types.count != 1) {
				status = NT_STATUS_INVALID_NETWORK_RESPONSE;
				goto done;
			}

			status = dcerpc_samr_OpenAlias(b, mem_ctx,
						       &domain_pol,
						       access_mask,
						       rids.ids[0],
						       &alias_pol,
						       &result);
			if (!NT_STATUS_IS_OK(status)) {
				goto done;
			}
		}
	}

	status = dcerpc_samr_DeleteDomAlias(b, mem_ctx,
					    &alias_pol,
					    &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
 done:
	return status;
}

/* Query display info */

static NTSTATUS cmd_samr_query_dispinfo_internal(struct rpc_pipe_client *cli,
						 TALLOC_CTX *mem_ctx,
						 int argc, const char **argv,
						 uint32_t opcode)
{
	struct policy_handle connect_pol, domain_pol;
	NTSTATUS status, result;
	uint32_t start_idx=0, max_entries=250, max_size = 0xffff, num_entries = 0, i;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	uint32_t info_level = 1;
	union samr_DispInfo info;
	int loop_count = 0;
	bool got_params = False; /* Use get_query_dispinfo_params() or not? */
	uint32_t total_size, returned_size;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if (argc > 6) {
		printf("Usage: %s [info level] [start index] [max entries] [max size] [access mask]\n", argv[0]);
		return NT_STATUS_OK;
	}

	if (argc >= 2)
                sscanf(argv[1], "%i", &info_level);

	if (argc >= 3)
                sscanf(argv[2], "%i", &start_idx);

	if (argc >= 4) {
                sscanf(argv[3], "%i", &max_entries);
		got_params = True;
	}

	if (argc >= 5) {
                sscanf(argv[4], "%i", &max_size);
		got_params = True;
	}

	if (argc >= 6)
                sscanf(argv[5], "%x", &access_mask);

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					access_mask,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Query display info */

	do {

		if (!got_params)
			dcerpc_get_query_dispinfo_params(
				loop_count, &max_entries, &max_size);

		switch (opcode) {
		case NDR_SAMR_QUERYDISPLAYINFO:
			status = dcerpc_samr_QueryDisplayInfo(b, mem_ctx,
							      &domain_pol,
							      info_level,
							      start_idx,
							      max_entries,
							      max_size,
							      &total_size,
							      &returned_size,
							      &info,
							      &result);
			break;
		case NDR_SAMR_QUERYDISPLAYINFO2:
			status = dcerpc_samr_QueryDisplayInfo2(b, mem_ctx,
							       &domain_pol,
							       info_level,
							       start_idx,
							       max_entries,
							       max_size,
							       &total_size,
							       &returned_size,
							       &info,
							       &result);

			break;
		case NDR_SAMR_QUERYDISPLAYINFO3:
			status = dcerpc_samr_QueryDisplayInfo3(b, mem_ctx,
							       &domain_pol,
							       info_level,
							       start_idx,
							       max_entries,
							       max_size,
							       &total_size,
							       &returned_size,
							       &info,
							       &result);

			break;
		default:
			return NT_STATUS_INVALID_PARAMETER;
		}

		if (!NT_STATUS_IS_OK(status)) {
			break;
		}
		status = result;
		if (!NT_STATUS_IS_OK(result) &&
		    !NT_STATUS_EQUAL(result, NT_STATUS_NO_MORE_ENTRIES) &&
		    !NT_STATUS_EQUAL(result, STATUS_MORE_ENTRIES)) {
			break;
		}

		loop_count++;

		switch (info_level) {
			case 1:
				num_entries = info.info1.count;
				break;
			case 2:
				num_entries = info.info2.count;
				break;
			case 3:
				num_entries = info.info3.count;
				break;
			case 4:
				num_entries = info.info4.count;
				break;
			case 5:
				num_entries = info.info5.count;
				break;
			default:
				break;
		}

		start_idx += num_entries;

		if (num_entries == 0)
			break;

		for (i = 0; i < num_entries; i++) {
			switch (info_level) {
			case 1:
				display_sam_info_1(&info.info1.entries[i]);
				break;
			case 2:
				display_sam_info_2(&info.info2.entries[i]);
				break;
			case 3:
				display_sam_info_3(&info.info3.entries[i]);
				break;
			case 4:
				display_sam_info_4(&info.info4.entries[i]);
				break;
			case 5:
				display_sam_info_5(&info.info5.entries[i]);
				break;
			}
		}
	} while ( NT_STATUS_EQUAL(result, STATUS_MORE_ENTRIES));

	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
 done:
	return status;
}

static NTSTATUS cmd_samr_query_dispinfo(struct rpc_pipe_client *cli,
					TALLOC_CTX *mem_ctx,
					int argc, const char **argv)
{
	return cmd_samr_query_dispinfo_internal(cli, mem_ctx, argc, argv,
						NDR_SAMR_QUERYDISPLAYINFO);
}

static NTSTATUS cmd_samr_query_dispinfo2(struct rpc_pipe_client *cli,
					 TALLOC_CTX *mem_ctx,
					 int argc, const char **argv)
{
	return cmd_samr_query_dispinfo_internal(cli, mem_ctx, argc, argv,
						NDR_SAMR_QUERYDISPLAYINFO2);
}

static NTSTATUS cmd_samr_query_dispinfo3(struct rpc_pipe_client *cli,
					 TALLOC_CTX *mem_ctx,
					 int argc, const char **argv)
{
	return cmd_samr_query_dispinfo_internal(cli, mem_ctx, argc, argv,
						NDR_SAMR_QUERYDISPLAYINFO3);
}

/* Query domain info */

static NTSTATUS cmd_samr_query_dominfo(struct rpc_pipe_client *cli,
                                       TALLOC_CTX *mem_ctx,
                                       int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol;
	NTSTATUS status, result;
	uint32_t switch_level = 2;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	union samr_DomainInfo *info = NULL;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if (argc > 3) {
		printf("Usage: %s [info level] [access mask]\n", argv[0]);
		return NT_STATUS_OK;
	}

	if (argc > 1)
                sscanf(argv[1], "%i", &switch_level);

	if (argc > 2)
                sscanf(argv[2], "%x", &access_mask);

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					access_mask,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Query domain info */

	status = dcerpc_samr_QueryDomainInfo(b, mem_ctx,
					     &domain_pol,
					     switch_level,
					     &info,
					     &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Display domain info */

	switch (switch_level) {
	case 1:
		display_sam_dom_info_1(&info->info1);
		break;
	case 2:
		display_sam_dom_info_2(&info->general);
		break;
	case 3:
		display_sam_dom_info_3(&info->info3);
		break;
	case 4:
		display_sam_dom_info_4(&info->oem);
		break;
	case 5:
		display_sam_dom_info_5(&info->info5);
		break;
	case 6:
		display_sam_dom_info_6(&info->info6);
		break;
	case 7:
		display_sam_dom_info_7(&info->info7);
		break;
	case 8:
		display_sam_dom_info_8(&info->info8);
		break;
	case 9:
		display_sam_dom_info_9(&info->info9);
		break;
	case 12:
		display_sam_dom_info_12(&info->info12);
		break;
	case 13:
		display_sam_dom_info_13(&info->info13);
		break;

	default:
		printf("cannot display domain info for switch value %d\n",
		       switch_level);
		break;
	}

 done:

	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
	return status;
}

/* Create domain user */

static NTSTATUS cmd_samr_create_dom_user(struct rpc_pipe_client *cli,
                                         TALLOC_CTX *mem_ctx,
                                         int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol, user_pol;
	NTSTATUS status, result;
	struct lsa_String acct_name;
	uint32_t acb_info;
	uint32_t acct_flags, user_rid;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	uint32_t access_granted = 0;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 2) || (argc > 3)) {
		printf("Usage: %s username [access mask]\n", argv[0]);
		return NT_STATUS_OK;
	}

	init_lsa_String(&acct_name, argv[1]);

	if (argc > 2)
                sscanf(argv[2], "%x", &access_mask);

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					access_mask,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Create domain user */

	acb_info = ACB_NORMAL;
	acct_flags = SEC_GENERIC_READ | SEC_GENERIC_WRITE | SEC_GENERIC_EXECUTE |
		     SEC_STD_WRITE_DAC | SEC_STD_DELETE |
		     SAMR_USER_ACCESS_SET_PASSWORD |
		     SAMR_USER_ACCESS_GET_ATTRIBUTES |
		     SAMR_USER_ACCESS_SET_ATTRIBUTES;

	status = dcerpc_samr_CreateUser2(b, mem_ctx,
					 &domain_pol,
					 &acct_name,
					 acb_info,
					 acct_flags,
					 &user_pol,
					 &access_granted,
					 &user_rid,
					 &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_Close(b, mem_ctx, &user_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

	status = dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

	status = dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

 done:
	return status;
}

/* Create domain group */

static NTSTATUS cmd_samr_create_dom_group(struct rpc_pipe_client *cli,
                                          TALLOC_CTX *mem_ctx,
                                          int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol, group_pol;
	NTSTATUS status, result;
	struct lsa_String grp_name;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	uint32_t rid = 0;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 2) || (argc > 3)) {
		printf("Usage: %s groupname [access mask]\n", argv[0]);
		return NT_STATUS_OK;
	}

	init_lsa_String(&grp_name, argv[1]);

	if (argc > 2)
                sscanf(argv[2], "%x", &access_mask);

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					access_mask,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Create domain user */
	status = dcerpc_samr_CreateDomainGroup(b, mem_ctx,
					       &domain_pol,
					       &grp_name,
					       MAXIMUM_ALLOWED_ACCESS,
					       &group_pol,
					       &rid,
					       &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_Close(b, mem_ctx, &group_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

	status = dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

	status = dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

 done:
	return status;
}

/* Create domain alias */

static NTSTATUS cmd_samr_create_dom_alias(struct rpc_pipe_client *cli,
                                          TALLOC_CTX *mem_ctx,
                                          int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol, alias_pol;
	NTSTATUS status, result;
	struct lsa_String alias_name;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	uint32_t rid = 0;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 2) || (argc > 3)) {
		printf("Usage: %s aliasname [access mask]\n", argv[0]);
		return NT_STATUS_OK;
	}

	init_lsa_String(&alias_name, argv[1]);

	if (argc > 2)
                sscanf(argv[2], "%x", &access_mask);

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					access_mask,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Create domain user */

	status = dcerpc_samr_CreateDomAlias(b, mem_ctx,
					    &domain_pol,
					    &alias_name,
					    MAXIMUM_ALLOWED_ACCESS,
					    &alias_pol,
					    &rid,
					    &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}


	status = dcerpc_samr_Close(b, mem_ctx, &alias_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

	status = dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

	status = dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

 done:
	return status;
}

/* Lookup sam names */

static NTSTATUS cmd_samr_lookup_names(struct rpc_pipe_client *cli,
                                      TALLOC_CTX *mem_ctx,
                                      int argc, const char **argv)
{
	NTSTATUS status, result;
	struct policy_handle connect_pol, domain_pol;
	uint32_t num_names;
	struct samr_Ids rids, name_types;
	int i;
	struct lsa_String *names = NULL;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if (argc < 3) {
		printf("Usage: %s  domain|builtin name1 [name2 [name3] [...]]\n", argv[0]);
		printf("check on the domain SID: S-1-5-21-x-y-z\n");
		printf("or check on the builtin SID: S-1-5-32\n");
		return NT_STATUS_OK;
	}

	/* Get sam policy and domain handles */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = get_domain_handle(cli, mem_ctx, argv[1],
				   &connect_pol,
				   MAXIMUM_ALLOWED_ACCESS,
				   &domain_sid,
				   &domain_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Look up names */

	num_names = argc - 2;

	if ((names = talloc_array(mem_ctx, struct lsa_String, num_names)) == NULL) {
		dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
		dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
		status = NT_STATUS_NO_MEMORY;
		goto done;
	}

	for (i = 0; i < num_names; i++) {
		init_lsa_String(&names[i], argv[i + 2]);
	}

	status = dcerpc_samr_LookupNames(b, mem_ctx,
					 &domain_pol,
					 num_names,
					 names,
					 &rids,
					 &name_types,
					 &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}
	if (rids.count != num_names) {
		status = NT_STATUS_INVALID_NETWORK_RESPONSE;
		goto done;
	}
	if (name_types.count != num_names) {
		status = NT_STATUS_INVALID_NETWORK_RESPONSE;
		goto done;
	}

	/* Display results */

	for (i = 0; i < num_names; i++)
		printf("name %s: 0x%x (%d)\n", names[i].string, rids.ids[i],
		       name_types.ids[i]);

	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
 done:
	return status;
}

/* Lookup sam rids */

static NTSTATUS cmd_samr_lookup_rids(struct rpc_pipe_client *cli,
                                     TALLOC_CTX *mem_ctx,
                                     int argc, const char **argv)
{
	NTSTATUS status, result;
	struct policy_handle connect_pol, domain_pol;
	uint32_t num_rids, *rids;
	struct lsa_Strings names;
	struct samr_Ids types;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	int i;

	if (argc < 3) {
		printf("Usage: %s domain|builtin rid1 [rid2 [rid3] [...]]\n", argv[0]);
		return NT_STATUS_OK;
	}

	/* Get sam policy and domain handles */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = get_domain_handle(cli, mem_ctx, argv[1],
				   &connect_pol,
				   MAXIMUM_ALLOWED_ACCESS,
				   &domain_sid,
				   &domain_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Look up rids */

	num_rids = argc - 2;

	if ((rids = talloc_array(mem_ctx, uint32_t, num_rids)) == NULL) {
		dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
		dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
		status = NT_STATUS_NO_MEMORY;
		goto done;
	}

	for (i = 0; i < argc - 2; i++)
                sscanf(argv[i + 2], "%i", &rids[i]);

	status = dcerpc_samr_LookupRids(b, mem_ctx,
					&domain_pol,
					num_rids,
					rids,
					&names,
					&types,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	status = result;
	if (!NT_STATUS_IS_OK(result) &&
	    !NT_STATUS_EQUAL(result, STATUS_SOME_UNMAPPED))
		goto done;

	/* Display results */
	if (num_rids != names.count) {
		status = NT_STATUS_INVALID_NETWORK_RESPONSE;
		goto done;
	}
	if (num_rids != types.count) {
		status = NT_STATUS_INVALID_NETWORK_RESPONSE;
		goto done;
	}

	for (i = 0; i < num_rids; i++) {
		printf("rid 0x%x: %s (%d)\n",
			rids[i], names.names[i].string, types.ids[i]);
	}

	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
 done:
	return status;
}

/* Delete domain group */

static NTSTATUS cmd_samr_delete_dom_group(struct rpc_pipe_client *cli,
                                         TALLOC_CTX *mem_ctx,
                                         int argc, const char **argv)
{
	NTSTATUS status, result;
	struct policy_handle connect_pol, domain_pol, group_pol;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 2) || (argc > 3)) {
		printf("Usage: %s groupname\n", argv[0]);
		return NT_STATUS_OK;
	}

	if (argc > 2)
                sscanf(argv[2], "%x", &access_mask);

	/* Get sam policy and domain handles */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					MAXIMUM_ALLOWED_ACCESS,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Get handle on group */

	{
		struct samr_Ids group_rids, name_types;
		struct lsa_String lsa_acct_name;

		init_lsa_String(&lsa_acct_name, argv[1]);

		status = dcerpc_samr_LookupNames(b, mem_ctx,
						 &domain_pol,
						 1,
						 &lsa_acct_name,
						 &group_rids,
						 &name_types,
						 &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (!NT_STATUS_IS_OK(result)) {
			status = result;
			goto done;
		}
		if (group_rids.count != 1) {
			status = NT_STATUS_INVALID_NETWORK_RESPONSE;
			goto done;
		}
		if (name_types.count != 1) {
			status = NT_STATUS_INVALID_NETWORK_RESPONSE;
			goto done;
		}

		status = dcerpc_samr_OpenGroup(b, mem_ctx,
					       &domain_pol,
					       access_mask,
					       group_rids.ids[0],
					       &group_pol,
					       &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (!NT_STATUS_IS_OK(result)) {
			status = result;
			goto done;
		}
	}

	/* Delete group */

	status = dcerpc_samr_DeleteDomainGroup(b, mem_ctx,
					       &group_pol,
					       &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Display results */

	dcerpc_samr_Close(b, mem_ctx, &group_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);

 done:
	return status;
}

/* Delete domain user */

static NTSTATUS cmd_samr_delete_dom_user(struct rpc_pipe_client *cli,
                                         TALLOC_CTX *mem_ctx,
                                         int argc, const char **argv)
{
	NTSTATUS status, result;
	struct policy_handle connect_pol, domain_pol, user_pol;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if ((argc < 2) || (argc > 3)) {
		printf("Usage: %s username\n", argv[0]);
		return NT_STATUS_OK;
	}

	if (argc > 2)
                sscanf(argv[2], "%x", &access_mask);

	/* Get sam policy and domain handles */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					MAXIMUM_ALLOWED_ACCESS,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Get handle on user */

	{
		struct samr_Ids user_rids, name_types;
		struct lsa_String lsa_acct_name;

		init_lsa_String(&lsa_acct_name, argv[1]);

		status = dcerpc_samr_LookupNames(b, mem_ctx,
						 &domain_pol,
						 1,
						 &lsa_acct_name,
						 &user_rids,
						 &name_types,
						 &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (!NT_STATUS_IS_OK(result)) {
			status = result;
			goto done;
		}
		if (user_rids.count != 1) {
			status = NT_STATUS_INVALID_NETWORK_RESPONSE;
			goto done;
		}
		if (name_types.count != 1) {
			status = NT_STATUS_INVALID_NETWORK_RESPONSE;
			goto done;
		}

		status = dcerpc_samr_OpenUser(b, mem_ctx,
					      &domain_pol,
					      access_mask,
					      user_rids.ids[0],
					      &user_pol,
					      &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (!NT_STATUS_IS_OK(result)) {
			status = result;
			goto done;
		}
	}

	/* Delete user */

	status = dcerpc_samr_DeleteUser(b, mem_ctx,
					&user_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Display results */

	dcerpc_samr_Close(b, mem_ctx, &user_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);

 done:
	return status;
}

/**********************************************************************
 * Query user security object
 */
static NTSTATUS cmd_samr_query_sec_obj(struct rpc_pipe_client *cli,
                                    TALLOC_CTX *mem_ctx,
                                    int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol, user_pol, *pol;
	NTSTATUS status, result;
	uint32_t sec_info = SECINFO_DACL;
	uint32_t user_rid = 0;
	TALLOC_CTX *ctx = NULL;
	struct sec_desc_buf *sec_desc_buf=NULL;
	bool domain = False;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	ctx=talloc_init("cmd_samr_query_sec_obj");

	if ((argc < 1) || (argc > 3)) {
		printf("Usage: %s [rid|-d] [sec_info]\n", argv[0]);
		printf("\tSpecify rid for security on user, -d for security on domain\n");
		TALLOC_FREE(ctx);
		return NT_STATUS_OK;
	}

	if (argc > 1) {
		if (strcmp(argv[1], "-d") == 0)
			domain = True;
		else
			sscanf(argv[1], "%i", &user_rid);
	}

	if (argc == 3) {
		sec_info = atoi(argv[2]);
	}

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	if (domain || user_rid) {
		status = dcerpc_samr_OpenDomain(b, mem_ctx,
						&connect_pol,
						MAXIMUM_ALLOWED_ACCESS,
						&domain_sid,
						&domain_pol,
						&result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (!NT_STATUS_IS_OK(result)) {
			status = result;
			goto done;
		}
	}

	if (user_rid) {
		status = dcerpc_samr_OpenUser(b, mem_ctx,
					      &domain_pol,
					      MAXIMUM_ALLOWED_ACCESS,
					      user_rid,
					      &user_pol,
					      &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (!NT_STATUS_IS_OK(result)) {
			status = result;
			goto done;
		}
	}

	/* Pick which query pol to use */

	pol = &connect_pol;

	if (domain)
		pol = &domain_pol;

	if (user_rid)
		pol = &user_pol;

	/* Query SAM security object */

	status = dcerpc_samr_QuerySecurity(b, mem_ctx,
					   pol,
					   sec_info,
					   &sec_desc_buf,
					   &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	display_sec_desc(sec_desc_buf->sd);

	dcerpc_samr_Close(b, mem_ctx, &user_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
done:
	TALLOC_FREE(ctx);
	return status;
}

static NTSTATUS cmd_samr_get_usrdom_pwinfo(struct rpc_pipe_client *cli,
					   TALLOC_CTX *mem_ctx,
					   int argc, const char **argv)
{
	NTSTATUS status, result;
	struct policy_handle connect_pol, domain_pol, user_pol;
	struct samr_PwInfo info;
	uint32_t rid;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if (argc != 2) {
		printf("Usage: %s rid\n", argv[0]);
		return NT_STATUS_OK;
	}

	sscanf(argv[1], "%i", &rid);

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					MAXIMUM_ALLOWED_ACCESS,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_OpenUser(b, mem_ctx,
				      &domain_pol,
				      MAXIMUM_ALLOWED_ACCESS,
				      rid,
				      &user_pol,
				      &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_GetUserPwInfo(b, mem_ctx,
					   &user_pol,
					   &info,
					   &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	status = result;
	if (NT_STATUS_IS_OK(result)) {
		printf("%s\n",
			NDR_PRINT_STRUCT_STRING(mem_ctx,
				samr_PwInfo, &info));
	}

 done:
	dcerpc_samr_Close(b, mem_ctx, &user_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);

	return status;
}

static NTSTATUS cmd_samr_get_dom_pwinfo(struct rpc_pipe_client *cli,
					TALLOC_CTX *mem_ctx,
					int argc, const char **argv)
{
	NTSTATUS status, result;
	struct lsa_String domain_name;
	struct samr_PwInfo info;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if (argc < 1 || argc > 3) {
		printf("Usage: %s <domain>\n", argv[0]);
		return NT_STATUS_OK;
	}

	init_lsa_String(&domain_name, argv[1]);

	status = dcerpc_samr_GetDomPwInfo(b, mem_ctx,
					  &domain_name,
					  &info,
					  &result);
	if (!NT_STATUS_IS_OK(status)) {
		return status;
	}
	if (NT_STATUS_IS_OK(result)) {
		printf("min_password_length: %d\n", info.min_password_length);
		display_password_properties(info.password_properties);
	}

	return result;
}

/* Look up domain name */

static NTSTATUS cmd_samr_lookup_domain(struct rpc_pipe_client *cli,
				       TALLOC_CTX *mem_ctx,
				       int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol;
	NTSTATUS status, result;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	struct lsa_String domain_name;
	struct dom_sid *sid = NULL;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if (argc != 2) {
		printf("Usage: %s domain_name\n", argv[0]);
		return NT_STATUS_OK;
	}

	init_lsa_String(&domain_name, argv[1]);

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  access_mask,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					access_mask,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_LookupDomain(b, mem_ctx,
					  &connect_pol,
					  &domain_name,
					  &sid,
					  &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	if (NT_STATUS_IS_OK(result)) {
		struct dom_sid_buf sid_str;
		printf("SAMR_LOOKUP_DOMAIN: Domain Name: %s Domain SID: %s\n",
		       argv[1],
		       dom_sid_str_buf(sid, &sid_str));
	}

	dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
done:
	return status;
}

/* Change user password */

static NTSTATUS cmd_samr_chgpasswd(struct rpc_pipe_client *cli,
				   TALLOC_CTX *mem_ctx,
				   int argc, const char **argv)
{
	struct policy_handle connect_pol;
	struct policy_handle domain_pol = { 0, };
	struct policy_handle user_pol = { 0, };
	NTSTATUS status, result;
	const char *user, *oldpass, *newpass;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	struct samr_Ids rids, types;
	struct lsa_String lsa_acct_name;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if (argc < 3) {
		printf("Usage: %s username oldpass newpass\n", argv[0]);
		return NT_STATUS_INVALID_PARAMETER;
	}

	user = argv[1];
	oldpass = argv[2];
	newpass = argv[3];

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					access_mask,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	init_lsa_String(&lsa_acct_name, user);

	status = dcerpc_samr_LookupNames(b, mem_ctx,
					 &domain_pol,
					 1,
					 &lsa_acct_name,
					 &rids,
					 &types,
					 &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}
	if (rids.count != 1) {
		status = NT_STATUS_INVALID_NETWORK_RESPONSE;
		goto done;
	}
	if (types.count != 1) {
		status = NT_STATUS_INVALID_NETWORK_RESPONSE;
		goto done;
	}

	status = dcerpc_samr_OpenUser(b, mem_ctx,
				      &domain_pol,
				      access_mask,
				      rids.ids[0],
				      &user_pol,
				      &result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Change user password */
	status = rpccli_samr_chgpasswd_user(cli, mem_ctx,
					    &user_pol,
					    newpass,
					    oldpass);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

 done:
	if (is_valid_policy_hnd(&user_pol)) {
		dcerpc_samr_Close(b, mem_ctx, &user_pol, &result);
	}
	if (is_valid_policy_hnd(&domain_pol)) {
		dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	}
	if (is_valid_policy_hnd(&connect_pol)) {
		dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
	}

	return status;
}


/* Change user password */

static NTSTATUS cmd_samr_chgpasswd2(struct rpc_pipe_client *cli,
				    TALLOC_CTX *mem_ctx,
				    int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol;
	NTSTATUS status, result;
	const char *user, *oldpass, *newpass;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if (argc < 3) {
		printf("Usage: %s username oldpass newpass\n", argv[0]);
		return NT_STATUS_INVALID_PARAMETER;
	}

	user = argv[1];
	oldpass = argv[2];
	newpass = argv[3];

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					access_mask,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Change user password */
	status = rpccli_samr_chgpasswd_user2(cli, mem_ctx, user, newpass, oldpass);

	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

	status = dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

 done:
	return status;
}


/* Change user password */

static NTSTATUS cmd_samr_chgpasswd3(struct rpc_pipe_client *cli,
				    TALLOC_CTX *mem_ctx,
				    int argc, const char **argv)
{
	struct policy_handle connect_pol, domain_pol;
	NTSTATUS status, result;
	const char *user, *oldpass, *newpass;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	struct samr_DomInfo1 *info = NULL;
	struct userPwdChangeFailureInformation *reject = NULL;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if (argc < 4) {
		printf("Usage: %s username oldpass newpass\n", argv[0]);
		return NT_STATUS_INVALID_PARAMETER;
	}

	user = argv[1];
	oldpass = argv[2];
	newpass = argv[3];

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_pol,
					access_mask,
					&domain_sid,
					&domain_pol,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	/* Change user password */
	status = rpccli_samr_chgpasswd_user3(cli, mem_ctx,
					     user,
					     newpass,
					     oldpass,
					     &info,
					     &reject);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	if (NT_STATUS_EQUAL(result, NT_STATUS_PASSWORD_RESTRICTION)) {

		display_sam_dom_info_1(info);

		switch (reject->extendedFailureReason) {
			case SAM_PWD_CHANGE_PASSWORD_TOO_SHORT:
				d_printf("SAM_PWD_CHANGE_PASSWORD_TOO_SHORT\n");
				break;
			case SAM_PWD_CHANGE_PWD_IN_HISTORY:
				d_printf("SAM_PWD_CHANGE_PWD_IN_HISTORY\n");
				break;
			case SAM_PWD_CHANGE_NOT_COMPLEX:
				d_printf("SAM_PWD_CHANGE_NOT_COMPLEX\n");
				break;
			default:
				d_printf("unknown reject reason: %d\n",
					reject->extendedFailureReason);
				break;
		}
	}

	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_Close(b, mem_ctx, &domain_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

	status = dcerpc_samr_Close(b, mem_ctx, &connect_pol, &result);
	if (!NT_STATUS_IS_OK(status)) goto done;

 done:
	return status;
}

static NTSTATUS cmd_samr_chgpasswd4(struct rpc_pipe_client *cli,
				    TALLOC_CTX *mem_ctx,
				    int argc,
				    const char **argv)
{
	struct dcerpc_binding_handle *b = cli->binding_handle;
	const char *srv_name_slash = cli->srv_name_slash;
	const char *user = NULL;
	const char *oldpass = NULL;
	const char *newpass = NULL;
	NTSTATUS status;
	NTSTATUS result = NT_STATUS_UNSUCCESSFUL;

	if (argc < 4) {
		printf("Usage: %s username oldpass newpass\n", argv[0]);
		return NT_STATUS_INVALID_PARAMETER;
	}

	user = argv[1];
	oldpass = argv[2];
	newpass = argv[3];

	/* Change user password */
	status = dcerpc_samr_chgpasswd_user4(b,
					     mem_ctx,
					     srv_name_slash,
					     user,
					     oldpass,
					     newpass,
					     &result);
	if (!NT_STATUS_IS_OK(status)) {
		return status;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
	}

	return status;
}

static NTSTATUS cmd_samr_setuserinfo_int(struct rpc_pipe_client *cli,
					 TALLOC_CTX *mem_ctx,
					 int argc, const char **argv,
					 int opcode)
{
	struct policy_handle connect_pol, domain_pol, user_pol;
	NTSTATUS status, result;
	const char *user, *param;
	uint32_t access_mask = MAXIMUM_ALLOWED_ACCESS;
	uint32_t level;
	uint32_t user_rid;
	union samr_UserInfo info;
	struct samr_CryptPassword pwd_buf;
	struct samr_CryptPasswordEx pwd_buf_ex;
	struct samr_EncryptedPasswordAES pwd_buf_aes;
	uint8_t nt_hash[16];
	uint8_t lm_hash[16];
	DATA_BLOB session_key;
	uint8_t salt_data[16];
	DATA_BLOB salt = {
		.data = salt_data,
		.length = sizeof(salt_data),
	};
	uint8_t password_expired = 0;
	struct dcerpc_binding_handle *b = cli->binding_handle;
	TALLOC_CTX *frame = NULL;
	int rc;

	if (argc < 4) {
		printf("Usage: %s username level password [password_expired]\n",
			argv[0]);
		return NT_STATUS_INVALID_PARAMETER;
	}

	frame = talloc_stackframe();

	user = argv[1];
	level = atoi(argv[2]);
	param = argv[3];

	if (argc >= 5) {
		password_expired = atoi(argv[4]);
	}

	status = dcerpc_binding_handle_transport_session_key(
				b, frame, &session_key);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	generate_nonce_buffer(salt.data, salt.length);

	switch(level) {
	case 18:
	case 21:
		nt_lm_owf_gen(param, nt_hash, lm_hash);
		break;
	case 23:
	case 24:
		status = init_samr_CryptPassword(param, &session_key, &pwd_buf);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		break;
	case 25:
	case 26:
		status = init_samr_CryptPasswordEx(param, &session_key, &pwd_buf_ex);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		break;
	case 31:
		status = init_samr_CryptPasswordAES(frame,
						    param,
						    &salt,
						    &session_key,
						    &pwd_buf_aes);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		break;
	default:
		break;
	}

	switch (level) {
	case 18:
		{
			DATA_BLOB in,out;
			in = data_blob_const(nt_hash, 16);
			out = data_blob_talloc_zero(frame, 16);
			if (out.data == NULL) {
				status = NT_STATUS_NO_MEMORY;
				goto done;
			}
			rc = sess_crypt_blob(&out, &in, &session_key, SAMBA_GNUTLS_ENCRYPT);
			if (rc != 0) {
				status = gnutls_error_to_ntstatus(rc,
								  NT_STATUS_ACCESS_DISABLED_BY_POLICY_OTHER);
			}
			memcpy(nt_hash, out.data, out.length);
		}
		{
			DATA_BLOB in,out;
			in = data_blob_const(lm_hash, 16);
			out = data_blob_talloc_zero(frame, 15);
			if (out.data == NULL) {
				status = NT_STATUS_NO_MEMORY;
				goto done;
			}
			rc = sess_crypt_blob(&out, &in, &session_key, SAMBA_GNUTLS_ENCRYPT);
			if (rc != 0) {
				status = gnutls_error_to_ntstatus(rc,
								  NT_STATUS_ACCESS_DISABLED_BY_POLICY_OTHER);
			}
			memcpy(lm_hash, out.data, out.length);
		}

		memcpy(info.info18.nt_pwd.hash, nt_hash, 16);
		memcpy(info.info18.lm_pwd.hash, lm_hash, 16);
		info.info18.nt_pwd_active	= true;
		info.info18.lm_pwd_active	= true;
		info.info18.password_expired	= password_expired;

		break;
	case 21:
		ZERO_STRUCT(info.info21);

		info.info21.fields_present = SAMR_FIELD_NT_PASSWORD_PRESENT |
					     SAMR_FIELD_LM_PASSWORD_PRESENT;
		if (argc >= 5) {
			info.info21.fields_present |= SAMR_FIELD_EXPIRED_FLAG;
			info.info21.password_expired = password_expired;
		}

		info.info21.lm_password_set = true;
		info.info21.lm_owf_password.length = 16;
		info.info21.lm_owf_password.size = 16;

		info.info21.nt_password_set = true;
		info.info21.nt_owf_password.length = 16;
		info.info21.nt_owf_password.size = 16;

		{
			DATA_BLOB in,out;
			in = data_blob_const(nt_hash, 16);
			out = data_blob_talloc_zero(frame, 16);
			if (out.data == NULL) {
				status = NT_STATUS_NO_MEMORY;
				goto done;
			}
			rc = sess_crypt_blob(&out, &in, &session_key, SAMBA_GNUTLS_ENCRYPT);
			if (rc != 0) {
				status = gnutls_error_to_ntstatus(rc,
								  NT_STATUS_ACCESS_DISABLED_BY_POLICY_OTHER);
			}
			info.info21.nt_owf_password.array =
				(uint16_t *)talloc_memdup(frame, out.data, 16);
		}
		{
			DATA_BLOB in,out;
			in = data_blob_const(lm_hash, 16);
			out = data_blob_talloc_zero(frame, 16);
			rc = sess_crypt_blob(&out, &in, &session_key, SAMBA_GNUTLS_ENCRYPT);
			if (rc != 0) {
				status = gnutls_error_to_ntstatus(rc,
								  NT_STATUS_ACCESS_DISABLED_BY_POLICY_OTHER);
			}
			info.info21.lm_owf_password.array =
				(uint16_t *)talloc_memdup(frame, out.data, 16);
			if (out.data == NULL) {
				status = NT_STATUS_NO_MEMORY;
				goto done;
			}
		}

		break;
	case 23:
		ZERO_STRUCT(info.info23);

		info.info23.info.fields_present = SAMR_FIELD_NT_PASSWORD_PRESENT |
						  SAMR_FIELD_LM_PASSWORD_PRESENT;
		if (argc >= 5) {
			info.info23.info.fields_present |= SAMR_FIELD_EXPIRED_FLAG;
			info.info23.info.password_expired = password_expired;
		}

		info.info23.password = pwd_buf;

		break;
	case 24:
		info.info24.password		= pwd_buf;
		info.info24.password_expired	= password_expired;

		break;
	case 25:
		ZERO_STRUCT(info.info25);

		info.info25.info.fields_present = SAMR_FIELD_NT_PASSWORD_PRESENT |
						  SAMR_FIELD_LM_PASSWORD_PRESENT;
		if (argc >= 5) {
			info.info25.info.fields_present |= SAMR_FIELD_EXPIRED_FLAG;
			info.info25.info.password_expired = password_expired;
		}

		info.info25.password = pwd_buf_ex;

		break;
	case 26:
		info.info26.password		= pwd_buf_ex;
		info.info26.password_expired	= password_expired;

		break;
	case 31:
		info.info31.password		= pwd_buf_aes;
		info.info31.password_expired	= password_expired;
		break;
	default:
		status = NT_STATUS_INVALID_INFO_CLASS;
		goto done;
	}

	/* Get sam policy handle */

	status = rpccli_try_samr_connects(cli, frame,
					  MAXIMUM_ALLOWED_ACCESS,
					  &connect_pol);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	/* Get domain policy handle */

	status = dcerpc_samr_OpenDomain(b, frame,
					&connect_pol,
					access_mask,
					&domain_sid,
					&domain_pol,
					&result);

	if (!NT_STATUS_IS_OK(status))
		goto done;
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	user_rid = strtol(user, NULL, 0);
	if (user_rid) {
		status = dcerpc_samr_OpenUser(b, frame,
					      &domain_pol,
					      access_mask,
					      user_rid,
					      &user_pol,
					      &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}

		status = result;
	}

	if (NT_STATUS_EQUAL(status, NT_STATUS_NO_SUCH_USER) ||
	    (user_rid == 0)) {

		/* Probably this was a user name, try lookupnames */
		struct samr_Ids rids, types;
		struct lsa_String lsa_acct_name;

		init_lsa_String(&lsa_acct_name, user);

		status = dcerpc_samr_LookupNames(b, frame,
						 &domain_pol,
						 1,
						 &lsa_acct_name,
						 &rids,
						 &types,
						 &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (!NT_STATUS_IS_OK(result)) {
			status = result;
			goto done;
		}
		if (rids.count != 1) {
			status = NT_STATUS_INVALID_NETWORK_RESPONSE;
			goto done;
		}
		if (types.count != 1) {
			status = NT_STATUS_INVALID_NETWORK_RESPONSE;
			goto done;
		}

		status = dcerpc_samr_OpenUser(b, frame,
					      &domain_pol,
					      access_mask,
					      rids.ids[0],
					      &user_pol,
					      &result);
		if (!NT_STATUS_IS_OK(status)) {
			goto done;
		}
		if (!NT_STATUS_IS_OK(result)) {
			status = result;
			goto done;
		}
	}

	switch (opcode) {
	case NDR_SAMR_SETUSERINFO:
		status = dcerpc_samr_SetUserInfo(b, frame,
						 &user_pol,
						 level,
						 &info,
						 &result);
		break;
	case NDR_SAMR_SETUSERINFO2:
		status = dcerpc_samr_SetUserInfo2(b, frame,
						  &user_pol,
						  level,
						  &info,
						  &result);
		break;
	default:
		status = NT_STATUS_INVALID_PARAMETER;
		goto done;
	}
	if (!NT_STATUS_IS_OK(status)) {
		DEBUG(0,("status: %s\n", nt_errstr(status)));
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		DEBUG(0,("result: %s\n", nt_errstr(status)));
		goto done;
	}

	status = NT_STATUS_OK;
 done:
	TALLOC_FREE(frame);
	return status;
}

static NTSTATUS cmd_samr_setuserinfo(struct rpc_pipe_client *cli,
				     TALLOC_CTX *mem_ctx,
				     int argc, const char **argv)
{
	return cmd_samr_setuserinfo_int(cli, mem_ctx, argc, argv,
					NDR_SAMR_SETUSERINFO);
}

static NTSTATUS cmd_samr_setuserinfo2(struct rpc_pipe_client *cli,
				      TALLOC_CTX *mem_ctx,
				      int argc, const char **argv)
{
	return cmd_samr_setuserinfo_int(cli, mem_ctx, argc, argv,
					NDR_SAMR_SETUSERINFO2);
}

static NTSTATUS cmd_samr_get_dispinfo_idx(struct rpc_pipe_client *cli,
					  TALLOC_CTX *mem_ctx,
					  int argc, const char **argv)
{
	NTSTATUS status, result;
	struct policy_handle connect_handle;
	struct policy_handle domain_handle = { 0, };
	uint16_t level = 1;
	struct lsa_String name;
	uint32_t idx = 0;
	struct dcerpc_binding_handle *b = cli->binding_handle;

	if (argc < 2 || argc > 3) {
		printf("Usage: %s name level\n", argv[0]);
		return NT_STATUS_INVALID_PARAMETER;
	}

	init_lsa_String(&name, argv[1]);

	if (argc == 3) {
		level = atoi(argv[2]);
	}

	status = rpccli_try_samr_connects(cli, mem_ctx,
					  SEC_FLAG_MAXIMUM_ALLOWED,
					  &connect_handle);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = dcerpc_samr_OpenDomain(b, mem_ctx,
					&connect_handle,
					SEC_FLAG_MAXIMUM_ALLOWED,
					&domain_sid,
					&domain_handle,
					&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}
	if (!NT_STATUS_IS_OK(result)) {
		status = result;
		goto done;
	}

	status = dcerpc_samr_GetDisplayEnumerationIndex(b, mem_ctx,
							&domain_handle,
							level,
							&name,
							&idx,
							&result);
	if (!NT_STATUS_IS_OK(status)) {
		goto done;
	}

	status = result;

	if (NT_STATUS_IS_OK(status) ||
	    NT_STATUS_EQUAL(status, NT_STATUS_NO_MORE_ENTRIES)) {
		printf("idx: %d (0x%08x)\n", idx, idx);
	}
 done:

	if (is_valid_policy_hnd(&domain_handle)) {
		dcerpc_samr_Close(b, mem_ctx, &domain_handle, &result);
	}
	if (is_valid_policy_hnd(&connect_handle)) {
		dcerpc_samr_Close(b, mem_ctx, &connect_handle, &result);
	}

	return status;

}
/* List of commands exported by this module */

struct cmd_set samr_commands[] = {

	{
		.name = "SAMR",
	},

	{
		.name               = "queryuser",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_user,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query user info",
		.usage              = "",
	},
	{
		.name               = "querygroup",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_group,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query group info",
		.usage              = "",
	},
	{
		.name               = "queryusergroups",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_usergroups,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query user groups",
		.usage              = "",
	},
	{
		.name               = "queryuseraliases",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_useraliases,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query user aliases",
		.usage              = "",
	},
	{
		.name               = "querygroupmem",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_groupmem,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query group membership",
		.usage              = "",
	},
	{
		.name               = "queryaliasmem",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_aliasmem,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query alias membership",
		.usage              = "",
	},
	{
		.name               = "queryaliasinfo",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_aliasinfo,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query alias info",
		.usage              = "",
	},
	{
		.name               = "deletealias",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_delete_alias,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Delete an alias",
		.usage              = "",
	},
	{
		.name               = "querydispinfo",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_dispinfo,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query display info",
		.usage              = "",
	},
	{
		.name               = "querydispinfo2",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_dispinfo2,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query display info",
		.usage              = "",
	},
	{
		.name               = "querydispinfo3",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_dispinfo3,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query display info",
		.usage              = "",
	},
	{
		.name               = "querydominfo",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_dominfo,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query domain info",
		.usage              = "",
	},
	{
		.name               = "enumdomusers",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_enum_dom_users,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Enumerate domain users",
		.usage              = "",
	},
	{
		.name               = "enumdomgroups",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_enum_dom_groups,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Enumerate domain groups",
		.usage              = "",
	},
	{
		.name               = "enumalsgroups",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_enum_als_groups,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Enumerate alias groups",
		.usage              = "",
	},
	{
		.name               = "enumdomains",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_enum_domains,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Enumerate domains",
		.usage              = "",
	},

	{
		.name               = "createdomuser",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_create_dom_user,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Create domain user",
		.usage              = "",
	},
	{
		.name               = "createdomgroup",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_create_dom_group,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Create domain group",
		.usage              = "",
	},
	{
		.name               = "createdomalias",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_create_dom_alias,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Create domain alias",
		.usage              = "",
	},
	{
		.name               = "samlookupnames",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_lookup_names,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Look up names",
		.usage              = "",
	},
	{
		.name               = "samlookuprids",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_lookup_rids,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Look up names",
		.usage              = "",
	},
	{
		.name               = "deletedomgroup",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_delete_dom_group,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Delete domain group",
		.usage              = "",
	},
	{
		.name               = "deletedomuser",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_delete_dom_user,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Delete domain user",
		.usage              = "",
	},
	{
		.name               = "samquerysecobj",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_query_sec_obj,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Query SAMR security object",
		.usage              = "",
	},
	{
		.name               = "getdompwinfo",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_get_dom_pwinfo,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Retrieve domain password info",
		.usage              = "",
	},
	{
		.name               = "getusrdompwinfo",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_get_usrdom_pwinfo,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Retrieve user domain password info",
		.usage              = "",
	},

	{
		.name               = "lookupdomain",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_lookup_domain,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Lookup Domain Name",
		.usage              = "",
	},
	{
		.name               = "chgpasswd",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_chgpasswd,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Change user password",
		.usage              = "",
	},
	{
		.name               = "chgpasswd2",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_chgpasswd2,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Change user password",
		.usage              = "",
	},
	{
		.name               = "chgpasswd3",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_chgpasswd3,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Change user password",
		.usage              = "",
	},
	{
		.name               = "chgpasswd4",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_chgpasswd4,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Change user password",
		.usage              = "",
	},
	{
		.name               = "getdispinfoidx",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_get_dispinfo_idx,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Get Display Information Index",
		.usage              = "",
	},
	{
		.name               = "setuserinfo",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_setuserinfo,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Set user info",
		.usage              = "",
	},
	{
		.name               = "setuserinfo2",
		.returntype         = RPC_RTYPE_NTSTATUS,
		.ntfn               = cmd_samr_setuserinfo2,
		.wfn                = NULL,
		.table              = &ndr_table_samr,
		.rpc_pipe           = NULL,
		.description        = "Set user info2",
		.usage              = "",
	},
	{
		.name = NULL,
	},
};
