# Abrir el Exchange Management Shell como Administrator (Run As Administrator)

$server = "ex2013.aprendiendoexchange.local" # Nombre del servidor Exchange 2013
$autodiscover = "autodiscover.aprendiendoexchange.com" # Nombre para Autodiscover Interno
$mail = "mail.aprendiendoexchange.com"   # Nombre principal para acceder al correo
$dominioCorreo = "aprendiendoexchange.com" # Nombre de dominio de correo principal
$dominioAD = "aprendiendoexchange.local" # Nombre de dominio de Active Directory

Write-Host "Agregando consolas administrativas..." -ForegroundColor green
Import-Module ServerManager
Install-WindowsFeature RSAT-DNS-Server | out-null
Write-Host "Configurando Transporte..." -ForegroundColor green
New-AcceptedDomain -Name $dominioCorreo -DomainName $dominioCorreo -DomainType authoritative | out-null
Get-EmailAddressPolicy | Set-EmailAddressPolicy -EnabledEmailAddressTemplates SMTP:@$dominioCorreo,smtp:@$dominioAD | out-null
Get-ReceiveConnector "*client front*" | Set-ReceiveConnector -Fqdn $mail

New-ReceiveConnector –Name AppRelayAnon –TransportRole Frontend –Bindings 0.0.0.0:25 –Usage Custom –RemoteIPRanges 192.168.1.120 –Server $server –Banner "220 Conector para relay anonimo" –PermissionGroups Anonymous | out-null

Get-ReceiveConnector AppRelayAnon | Add-ADPermission –User "NT AUTHORITY\ANONYMOUS LOGON" –ExtendedRights "MS-Exch-SMTP-Accept-Any-Recipient" | out-null

New-ReceiveConnector –Name AppRelay -TransportRole Frontend -Bindings 0.0.0.0:25 -RemoteIPRanges 192.168.1.171 -Server $server -Banner "220 Conector para relay de aplicaciones" -AuthMechanism Tls,ExternalAuthoritative -PermissionGroups ExchangeServers | out-null
New-SendConnector -Name Internet -AddressSpaces * | out-null
Write-Host "Configurando bases de datos..." -ForegroundColor green
Get-MailboxDatabase | Set-MailboxDatabase -Name DB1
Sleep 2
Mount-Database DB1
Write-Host "Configurando acceso de clientes..." -ForegroundColor Green
Get-OutlookAnywhere -server $server | Set-OutlookAnywhere -InternalHostName $mail -ExternalHostName $mail -SSLOffloading $false -ExternalClientsRequireSSL $true -InternalClientsRequireSSL $true -InternalClientAuthenticationMethod ntlm -ExternalClientAuthenticationMethod ntlm
Get-ActiveSyncVirtualDirectory | Set-ActiveSyncVirtualDirectory -InternalUrl https://$mail/Microsoft-Server-Activesync -ExternalUrl https://$mail/Microsoft-Server-Activesync 
Get-ClientAccessServer | Set-ClientAccessServer -AutoDiscoverServiceInternalUri https://$autodiscover/Autodiscover/Autodiscover.xml 
Get-OwaVirtualDirectory | ?{$_.identity -like "*owa*"} | Set-OwaVirtualDirectory -InternalUrl https://$mail/owa -ExternalUrl https://$mail/owa
Get-WebServicesVirtualDirectory | Set-WebServicesVirtualDirectory -InternalUrl https://$mail/EWS/Exchange.asmx
Get-OabVirtualDirectory | Set-OabVirtualDirectory -InternalUrl https://$mail/OAB -ExternalUrl https://$mail/OAB 
Get-ActiveSyncVirtualDirectory | Set-ActiveSyncVirtualDirectory -InternalUrl https://$mail/Microsoft-Server-Activesync -ExternalUrl https://$mail/Microsoft-Server-Activesync 
Set-ImapSettings –x509certificatename $mail
Set-Service MSExchangeIMAP4 -StartupType Automatic
Set-Service MSExchangeIMAP4BE -StartupType Automatic
Restart-Service MSExchangeIMAP4
Restart-Service MSExchangeIMAP4BE

Write-Host "Configurando solicitud de certificado en C:\Temp..." -ForegroundColor Green

New-ExchangeCertificate -GenerateRequest -RequestFile c:\Temp\mail.req -KeySize 2048 -SubjectName "c=UY, s=Montevideo, l=Montevideo, o=AExchange, ou=IT, cn=$mail" -DomainName $mail ,$autodiscover -PrivateKeyExportable $True | out-null
$cred = ConvertTo-SecureString -AsPlainText -String "Aprendiendoe2019." -Force
write-host "Creando buzones en base DB1 (contraseña: Aprendiendoe2019.)" -ForegroundColor Green
for($i = 0 ; $i -lt 500 ; $i++)
{
new-mailbox -name usuario$i -userprincipalname usuario$i@$dominioAD -database DB1 -Password $cred | out-null
}
New-Mailbox -name PFMailbox1 -PublicFolder

write-host "Creando Carpetas Públicas" -ForegroundColor green
New-PublicFolder -Name Departamentos -Path \ -mailbox PFMailbox1
New-PublicFolder -Name Marketing -Path \Departamentos -mailbox PFMailbox1
New-PublicFolder -Name Ventas -Path \Departamentos -mailbox PFMailbox1
New-PublicFolder -Name RRHH -Path \Departamentos -mailbox PFMailbox1
New-PublicFolder -Name Contable -Path \Departamentos -mailbox PFMailbox1
New-PublicFolder -Name IT -Path \Departamentos -mailbox PFMailbox1

write-host "Aplicando políticas de direcciones" -ForegroundColor green

Get-EmailAddressPolicy | Update-EmailAddressPolicy

Write-Host "Fin de script"