R/directoryservice_interfaces.R

In paws.security.identity: 'Amazon Web Services' Security, Identity, & Compliance Services

# This file is generated by make.paws. Please do not edit here.
#' @importFrom paws.common populate
#' @include directoryservice_service.R
NULL

.directoryservice$accept_shared_directory_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SharedDirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$accept_shared_directory_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SharedDirectory = structure(list(OwnerAccountId = structure(logical(0), tags = list(type = "string")), OwnerDirectoryId = structure(logical(0), tags = list(type = "string")), ShareMethod = structure(logical(0), tags = list(type = "string")), SharedAccountId = structure(logical(0), tags = list(type = "string")), SharedDirectoryId = structure(logical(0), tags = list(type = "string")), ShareStatus = structure(logical(0), tags = list(type = "string")), ShareNotes = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), CreatedDateTime = structure(logical(0), tags = list(type = "timestamp")), LastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$add_ip_routes_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), IpRoutes = structure(list(structure(list(CidrIp = structure(logical(0), tags = list(type = "string")), Description = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list")), UpdateSecurityGroupForDirectoryControllers = structure(logical(0), tags = list(type = "boolean"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$add_ip_routes_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$add_region_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), RegionName = structure(logical(0), tags = list(type = "string")), VPCSettings = structure(list(VpcId = structure(logical(0), tags = list(type = "string")), SubnetIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$add_region_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$add_tags_to_resource_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(ResourceId = structure(logical(0), tags = list(type = "string")), Tags = structure(list(structure(list(Key = structure(logical(0), tags = list(type = "string")), Value = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$add_tags_to_resource_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$cancel_schema_extension_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), SchemaExtensionId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$cancel_schema_extension_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$connect_directory_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(Name = structure(logical(0), tags = list(type = "string")), ShortName = structure(logical(0), tags = list(type = "string")), Password = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), Description = structure(logical(0), tags = list(type = "string")), Size = structure(logical(0), tags = list(type = "string")), ConnectSettings = structure(list(VpcId = structure(logical(0), tags = list(type = "string")), SubnetIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), CustomerDnsIps = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), CustomerUserName = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure")), Tags = structure(list(structure(list(Key = structure(logical(0), tags = list(type = "string")), Value = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$connect_directory_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_alias_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Alias = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_alias_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Alias = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_computer_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), ComputerName = structure(logical(0), tags = list(type = "string")), Password = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), OrganizationalUnitDistinguishedName = structure(logical(0), tags = list(type = "string")), ComputerAttributes = structure(list(structure(list(Name = structure(logical(0), tags = list(type = "string")), Value = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_computer_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(Computer = structure(list(ComputerId = structure(logical(0), tags = list(type = "string")), ComputerName = structure(logical(0), tags = list(type = "string")), ComputerAttributes = structure(list(structure(list(Name = structure(logical(0), tags = list(type = "string")), Value = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_conditional_forwarder_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), RemoteDomainName = structure(logical(0), tags = list(type = "string")), DnsIpAddrs = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_conditional_forwarder_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_directory_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(Name = structure(logical(0), tags = list(type = "string")), ShortName = structure(logical(0), tags = list(type = "string")), Password = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), Description = structure(logical(0), tags = list(type = "string")), Size = structure(logical(0), tags = list(type = "string")), VpcSettings = structure(list(VpcId = structure(logical(0), tags = list(type = "string")), SubnetIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure")), Tags = structure(list(structure(list(Key = structure(logical(0), tags = list(type = "string")), Value = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_directory_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_log_subscription_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), LogGroupName = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_log_subscription_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_microsoft_ad_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(Name = structure(logical(0), tags = list(type = "string")), ShortName = structure(logical(0), tags = list(type = "string")), Password = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), Description = structure(logical(0), tags = list(type = "string")), VpcSettings = structure(list(VpcId = structure(logical(0), tags = list(type = "string")), SubnetIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure")), Edition = structure(logical(0), tags = list(type = "string")), Tags = structure(list(structure(list(Key = structure(logical(0), tags = list(type = "string")), Value = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_microsoft_ad_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_snapshot_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Name = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_snapshot_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SnapshotId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_trust_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), RemoteDomainName = structure(logical(0), tags = list(type = "string")), TrustPassword = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), TrustDirection = structure(logical(0), tags = list(type = "string")), TrustType = structure(logical(0), tags = list(type = "string")), ConditionalForwarderIpAddrs = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), SelectiveAuth = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$create_trust_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(TrustId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$delete_conditional_forwarder_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), RemoteDomainName = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$delete_conditional_forwarder_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$delete_directory_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$delete_directory_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$delete_log_subscription_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$delete_log_subscription_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$delete_snapshot_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SnapshotId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$delete_snapshot_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SnapshotId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$delete_trust_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(TrustId = structure(logical(0), tags = list(type = "string")), DeleteAssociatedConditionalForwarder = structure(logical(0), tags = list(type = "boolean"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$delete_trust_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(TrustId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$deregister_certificate_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), CertificateId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$deregister_certificate_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$deregister_event_topic_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), TopicName = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$deregister_event_topic_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_certificate_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), CertificateId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_certificate_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(Certificate = structure(list(CertificateId = structure(logical(0), tags = list(type = "string")), State = structure(logical(0), tags = list(type = "string")), StateReason = structure(logical(0), tags = list(type = "string")), CommonName = structure(logical(0), tags = list(type = "string")), RegisteredDateTime = structure(logical(0), tags = list(type = "timestamp")), ExpiryDateTime = structure(logical(0), tags = list(type = "timestamp")), Type = structure(logical(0), tags = list(type = "string")), ClientCertAuthSettings = structure(list(OCSPUrl = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_client_authentication_settings_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Type = structure(logical(0), tags = list(type = "string")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_client_authentication_settings_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(ClientAuthenticationSettingsInfo = structure(list(structure(list(Type = structure(logical(0), tags = list(type = "string")), Status = structure(logical(0), tags = list(type = "string")), LastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_conditional_forwarders_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), RemoteDomainNames = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_conditional_forwarders_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(ConditionalForwarders = structure(list(structure(list(RemoteDomainName = structure(logical(0), tags = list(type = "string")), DnsIpAddrs = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), ReplicationScope = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_directories_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_directories_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryDescriptions = structure(list(structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Name = structure(logical(0), tags = list(type = "string")), ShortName = structure(logical(0), tags = list(type = "string")), Size = structure(logical(0), tags = list(type = "string")), Edition = structure(logical(0), tags = list(type = "string")), Alias = structure(logical(0), tags = list(type = "string")), AccessUrl = structure(logical(0), tags = list(type = "string")), Description = structure(logical(0), tags = list(type = "string")), DnsIpAddrs = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), Stage = structure(logical(0), tags = list(type = "string")), ShareStatus = structure(logical(0), tags = list(type = "string")), ShareMethod = structure(logical(0), tags = list(type = "string")), ShareNotes = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), LaunchTime = structure(logical(0), tags = list(type = "timestamp")), StageLastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp")), Type = structure(logical(0), tags = list(type = "string")), VpcSettings = structure(list(VpcId = structure(logical(0), tags = list(type = "string")), SubnetIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), SecurityGroupId = structure(logical(0), tags = list(type = "string")), AvailabilityZones = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure")), ConnectSettings = structure(list(VpcId = structure(logical(0), tags = list(type = "string")), SubnetIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), CustomerUserName = structure(logical(0), tags = list(type = "string")), SecurityGroupId = structure(logical(0), tags = list(type = "string")), AvailabilityZones = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), ConnectIps = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure")), RadiusSettings = structure(list(RadiusServers = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), RadiusPort = structure(logical(0), tags = list(type = "integer")), RadiusTimeout = structure(logical(0), tags = list(type = "integer")), RadiusRetries = structure(logical(0), tags = list(type = "integer")), SharedSecret = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), AuthenticationProtocol = structure(logical(0), tags = list(type = "string")), DisplayLabel = structure(logical(0), tags = list(type = "string")), UseSameUsername = structure(logical(0), tags = list(type = "boolean"))), tags = list(type = "structure")), RadiusStatus = structure(logical(0), tags = list(type = "string")), StageReason = structure(logical(0), tags = list(type = "string")), SsoEnabled = structure(logical(0), tags = list(type = "boolean")), DesiredNumberOfDomainControllers = structure(logical(0), tags = list(type = "integer")), OwnerDirectoryDescription = structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), AccountId = structure(logical(0), tags = list(type = "string")), DnsIpAddrs = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), VpcSettings = structure(list(VpcId = structure(logical(0), tags = list(type = "string")), SubnetIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), SecurityGroupId = structure(logical(0), tags = list(type = "string")), AvailabilityZones = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure")), RadiusSettings = structure(list(RadiusServers = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), RadiusPort = structure(logical(0), tags = list(type = "integer")), RadiusTimeout = structure(logical(0), tags = list(type = "integer")), RadiusRetries = structure(logical(0), tags = list(type = "integer")), SharedSecret = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), AuthenticationProtocol = structure(logical(0), tags = list(type = "string")), DisplayLabel = structure(logical(0), tags = list(type = "string")), UseSameUsername = structure(logical(0), tags = list(type = "boolean"))), tags = list(type = "structure")), RadiusStatus = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure")), RegionsInfo = structure(list(PrimaryRegion = structure(logical(0), tags = list(type = "string")), AdditionalRegions = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure")), OsVersion = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_domain_controllers_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), DomainControllerIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_domain_controllers_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DomainControllers = structure(list(structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), DomainControllerId = structure(logical(0), tags = list(type = "string")), DnsIpAddr = structure(logical(0), tags = list(type = "string")), VpcId = structure(logical(0), tags = list(type = "string")), SubnetId = structure(logical(0), tags = list(type = "string")), AvailabilityZone = structure(logical(0), tags = list(type = "string")), Status = structure(logical(0), tags = list(type = "string")), StatusReason = structure(logical(0), tags = list(type = "string")), LaunchTime = structure(logical(0), tags = list(type = "timestamp")), StatusLastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_event_topics_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), TopicNames = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_event_topics_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(EventTopics = structure(list(structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), TopicName = structure(logical(0), tags = list(type = "string")), TopicArn = structure(logical(0), tags = list(type = "string")), CreatedDateTime = structure(logical(0), tags = list(type = "timestamp")), Status = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_ldaps_settings_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Type = structure(logical(0), tags = list(type = "string")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_ldaps_settings_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(LDAPSSettingsInfo = structure(list(structure(list(LDAPSStatus = structure(logical(0), tags = list(type = "string")), LDAPSStatusReason = structure(logical(0), tags = list(type = "string")), LastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_regions_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), RegionName = structure(logical(0), tags = list(type = "string")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_regions_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(RegionsDescription = structure(list(structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), RegionName = structure(logical(0), tags = list(type = "string")), RegionType = structure(logical(0), tags = list(type = "string")), Status = structure(logical(0), tags = list(type = "string")), VpcSettings = structure(list(VpcId = structure(logical(0), tags = list(type = "string")), SubnetIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure")), DesiredNumberOfDomainControllers = structure(logical(0), tags = list(type = "integer")), LaunchTime = structure(logical(0), tags = list(type = "timestamp")), StatusLastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp")), LastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_settings_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Status = structure(logical(0), tags = list(type = "string")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_settings_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), SettingEntries = structure(list(structure(list(Type = structure(logical(0), tags = list(type = "string")), Name = structure(logical(0), tags = list(type = "string")), AllowedValues = structure(logical(0), tags = list(type = "string")), AppliedValue = structure(logical(0), tags = list(type = "string")), RequestedValue = structure(logical(0), tags = list(type = "string")), RequestStatus = structure(logical(0), tags = list(type = "string")), RequestDetailedStatus = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "map")), RequestStatusMessage = structure(logical(0), tags = list(type = "string")), LastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp")), LastRequestedDateTime = structure(logical(0), tags = list(type = "timestamp")), DataType = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_shared_directories_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(OwnerDirectoryId = structure(logical(0), tags = list(type = "string")), SharedDirectoryIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_shared_directories_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SharedDirectories = structure(list(structure(list(OwnerAccountId = structure(logical(0), tags = list(type = "string")), OwnerDirectoryId = structure(logical(0), tags = list(type = "string")), ShareMethod = structure(logical(0), tags = list(type = "string")), SharedAccountId = structure(logical(0), tags = list(type = "string")), SharedDirectoryId = structure(logical(0), tags = list(type = "string")), ShareStatus = structure(logical(0), tags = list(type = "string")), ShareNotes = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), CreatedDateTime = structure(logical(0), tags = list(type = "timestamp")), LastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_snapshots_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), SnapshotIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_snapshots_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(Snapshots = structure(list(structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), SnapshotId = structure(logical(0), tags = list(type = "string")), Type = structure(logical(0), tags = list(type = "string")), Name = structure(logical(0), tags = list(type = "string")), Status = structure(logical(0), tags = list(type = "string")), StartTime = structure(logical(0), tags = list(type = "timestamp"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_trusts_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), TrustIds = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_trusts_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(Trusts = structure(list(structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), TrustId = structure(logical(0), tags = list(type = "string")), RemoteDomainName = structure(logical(0), tags = list(type = "string")), TrustType = structure(logical(0), tags = list(type = "string")), TrustDirection = structure(logical(0), tags = list(type = "string")), TrustState = structure(logical(0), tags = list(type = "string")), CreatedDateTime = structure(logical(0), tags = list(type = "timestamp")), LastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp")), StateLastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp")), TrustStateReason = structure(logical(0), tags = list(type = "string")), SelectiveAuth = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_update_directory_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), UpdateType = structure(logical(0), tags = list(type = "string")), RegionName = structure(logical(0), tags = list(type = "string")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$describe_update_directory_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(UpdateActivities = structure(list(structure(list(Region = structure(logical(0), tags = list(type = "string")), Status = structure(logical(0), tags = list(type = "string")), StatusReason = structure(logical(0), tags = list(type = "string")), InitiatedBy = structure(logical(0), tags = list(type = "string")), NewValue = structure(list(OSUpdateSettings = structure(list(OSVersion = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "structure")), PreviousValue = structure(list(OSUpdateSettings = structure(list(OSVersion = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "structure")), StartTime = structure(logical(0), tags = list(type = "timestamp")), LastUpdatedDateTime = structure(logical(0), tags = list(type = "timestamp"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$disable_client_authentication_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Type = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$disable_client_authentication_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$disable_ldaps_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Type = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$disable_ldaps_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$disable_radius_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$disable_radius_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$disable_sso_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), UserName = structure(logical(0), tags = list(type = "string")), Password = structure(logical(0), tags = list(type = "string", sensitive = TRUE))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$disable_sso_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$enable_client_authentication_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Type = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$enable_client_authentication_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$enable_ldaps_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Type = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$enable_ldaps_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$enable_radius_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), RadiusSettings = structure(list(RadiusServers = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), RadiusPort = structure(logical(0), tags = list(type = "integer")), RadiusTimeout = structure(logical(0), tags = list(type = "integer")), RadiusRetries = structure(logical(0), tags = list(type = "integer")), SharedSecret = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), AuthenticationProtocol = structure(logical(0), tags = list(type = "string")), DisplayLabel = structure(logical(0), tags = list(type = "string")), UseSameUsername = structure(logical(0), tags = list(type = "boolean"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$enable_radius_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$enable_sso_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), UserName = structure(logical(0), tags = list(type = "string")), Password = structure(logical(0), tags = list(type = "string", sensitive = TRUE))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$enable_sso_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$get_directory_limits_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$get_directory_limits_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryLimits = structure(list(CloudOnlyDirectoriesLimit = structure(logical(0), tags = list(type = "integer")), CloudOnlyDirectoriesCurrentCount = structure(logical(0), tags = list(type = "integer")), CloudOnlyDirectoriesLimitReached = structure(logical(0), tags = list(type = "boolean")), CloudOnlyMicrosoftADLimit = structure(logical(0), tags = list(type = "integer")), CloudOnlyMicrosoftADCurrentCount = structure(logical(0), tags = list(type = "integer")), CloudOnlyMicrosoftADLimitReached = structure(logical(0), tags = list(type = "boolean")), ConnectedDirectoriesLimit = structure(logical(0), tags = list(type = "integer")), ConnectedDirectoriesCurrentCount = structure(logical(0), tags = list(type = "integer")), ConnectedDirectoriesLimitReached = structure(logical(0), tags = list(type = "boolean"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$get_snapshot_limits_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$get_snapshot_limits_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SnapshotLimits = structure(list(ManualSnapshotsLimit = structure(logical(0), tags = list(type = "integer")), ManualSnapshotsCurrentCount = structure(logical(0), tags = list(type = "integer")), ManualSnapshotsLimitReached = structure(logical(0), tags = list(type = "boolean"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$list_certificates_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$list_certificates_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(NextToken = structure(logical(0), tags = list(type = "string")), CertificatesInfo = structure(list(structure(list(CertificateId = structure(logical(0), tags = list(type = "string")), CommonName = structure(logical(0), tags = list(type = "string")), State = structure(logical(0), tags = list(type = "string")), ExpiryDateTime = structure(logical(0), tags = list(type = "timestamp")), Type = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$list_ip_routes_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$list_ip_routes_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(IpRoutesInfo = structure(list(structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), CidrIp = structure(logical(0), tags = list(type = "string")), IpRouteStatusMsg = structure(logical(0), tags = list(type = "string")), AddedDateTime = structure(logical(0), tags = list(type = "timestamp")), IpRouteStatusReason = structure(logical(0), tags = list(type = "string")), Description = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$list_log_subscriptions_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$list_log_subscriptions_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(LogSubscriptions = structure(list(structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), LogGroupName = structure(logical(0), tags = list(type = "string")), SubscriptionCreatedDateTime = structure(logical(0), tags = list(type = "timestamp"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$list_schema_extensions_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$list_schema_extensions_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SchemaExtensionsInfo = structure(list(structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), SchemaExtensionId = structure(logical(0), tags = list(type = "string")), Description = structure(logical(0), tags = list(type = "string")), SchemaExtensionStatus = structure(logical(0), tags = list(type = "string")), SchemaExtensionStatusReason = structure(logical(0), tags = list(type = "string")), StartDateTime = structure(logical(0), tags = list(type = "timestamp")), EndDateTime = structure(logical(0), tags = list(type = "timestamp"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$list_tags_for_resource_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(ResourceId = structure(logical(0), tags = list(type = "string")), NextToken = structure(logical(0), tags = list(type = "string")), Limit = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$list_tags_for_resource_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(Tags = structure(list(structure(list(Key = structure(logical(0), tags = list(type = "string")), Value = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list")), NextToken = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$register_certificate_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), CertificateData = structure(logical(0), tags = list(type = "string")), Type = structure(logical(0), tags = list(type = "string")), ClientCertAuthSettings = structure(list(OCSPUrl = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$register_certificate_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(CertificateId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$register_event_topic_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), TopicName = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$register_event_topic_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$reject_shared_directory_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SharedDirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$reject_shared_directory_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SharedDirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$remove_ip_routes_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), CidrIps = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$remove_ip_routes_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$remove_region_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$remove_region_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$remove_tags_from_resource_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(ResourceId = structure(logical(0), tags = list(type = "string")), TagKeys = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$remove_tags_from_resource_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$reset_user_password_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), UserName = structure(logical(0), tags = list(type = "string")), NewPassword = structure(logical(0), tags = list(type = "string", sensitive = TRUE))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$reset_user_password_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$restore_from_snapshot_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SnapshotId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$restore_from_snapshot_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$share_directory_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), ShareNotes = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), ShareTarget = structure(list(Id = structure(logical(0), tags = list(type = "string")), Type = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure")), ShareMethod = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$share_directory_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SharedDirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$start_schema_extension_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), CreateSnapshotBeforeSchemaExtension = structure(logical(0), tags = list(type = "boolean")), LdifContent = structure(logical(0), tags = list(type = "string")), Description = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$start_schema_extension_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SchemaExtensionId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$unshare_directory_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), UnshareTarget = structure(list(Id = structure(logical(0), tags = list(type = "string")), Type = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$unshare_directory_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(SharedDirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_conditional_forwarder_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), RemoteDomainName = structure(logical(0), tags = list(type = "string")), DnsIpAddrs = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_conditional_forwarder_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_directory_setup_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), UpdateType = structure(logical(0), tags = list(type = "string")), OSUpdateSettings = structure(list(OSVersion = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure")), CreateSnapshotBeforeUpdate = structure(logical(0), tags = list(box = TRUE, type = "boolean"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_directory_setup_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_number_of_domain_controllers_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), DesiredNumber = structure(logical(0), tags = list(type = "integer"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_number_of_domain_controllers_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_radius_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), RadiusSettings = structure(list(RadiusServers = structure(list(structure(logical(0), tags = list(type = "string"))), tags = list(type = "list")), RadiusPort = structure(logical(0), tags = list(type = "integer")), RadiusTimeout = structure(logical(0), tags = list(type = "integer")), RadiusRetries = structure(logical(0), tags = list(type = "integer")), SharedSecret = structure(logical(0), tags = list(type = "string", sensitive = TRUE)), AuthenticationProtocol = structure(logical(0), tags = list(type = "string")), DisplayLabel = structure(logical(0), tags = list(type = "string")), UseSameUsername = structure(logical(0), tags = list(type = "boolean"))), tags = list(type = "structure"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_radius_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_settings_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string")), Settings = structure(list(structure(list(Name = structure(logical(0), tags = list(type = "string")), Value = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))), tags = list(type = "list"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_settings_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(DirectoryId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_trust_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(TrustId = structure(logical(0), tags = list(type = "string")), SelectiveAuth = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$update_trust_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(RequestId = structure(logical(0), tags = list(type = "string")), TrustId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$verify_trust_input <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(TrustId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}

.directoryservice$verify_trust_output <- function(...) {
  args <- c(as.list(environment()), list(...))
  shape <- structure(list(TrustId = structure(logical(0), tags = list(type = "string"))), tags = list(type = "structure"))
  return(populate(args, shape))
}