Apoc70

param (
    [switch]$DisableLegacyTls
)
# Last updated: 2024-02-21

if($DisableLegacyTls) {
    # Disable TLS 1.0 and 1.1
    # Following https://learn.microsoft.com/exchange/plan-and-deploy/post-installation-tasks/security-best-practices/exchange-tls-configuration?view=exchserver-2019&WT.mc_id=M365-MVP-5003086

    # Disable TLS 1.0

Apoc70

<#
  .SYNOPSIS
  This script exports On-Premises Exchange Org and Exchange Online Org configurations to Xml

  .DESCRIPTION
  The script exports dat using Export-CLixml to the folder \Output
  You must create the folder prior to excurting the script.

  .PARAMETER Environment
  The envrionment to query, either OnPremises or ExchangeOnline

Apoc70

# This script exports all Exchange security groups that have members
# Empty groups are not included in the CSV output.

# Your domain DN
$Domain = 'DC=varunagroup,DC=de'

# Preferred domain controller FQDN
$DomainControllerFQDN = 'testms01.varunagroup.de'

# Fetch Exchange security groups

Apoc70

# Original source: https://techstronghold.com/scripting/@rudolfvesely/powershell-script-to-get-all-iis-bindings-and-ssl-certificates/
# Updated the script for a sorted output on Exchange Servers

Import-Module -Name WebAdministration

Get-ChildItem -Path IIS:SSLBindings | Sort-Object Port | ForEach-Object -Process `
{
    if ($_.Sites)
    {
        $certificate = Get-ChildItem -Path CERT:LocalMachine/My |

Apoc70

[Version]
Signature="$Windows NT$"

[NewRequest]
Subject = "CN=mail.varunagroup.de,OU=IT,O=Varunagroup AG,L=Berlin,S=BE,C=DE" ; Remove to use an empty Subject name.

Exportable = TRUE ; TRUE = Private key is exportable
KeyLength = 2048 ; Valid key sizes: 1024, 2048, 4096, 8192, 16384
KeySpec = 1 ; Key Exchange – Required for encryption
KeyUsage = 0xA0 ; Digital Signature, Key Encipherment

Apoc70

[Version]
Signature="$Windows NT$"

[NewRequest]
Subject = "CN=mail.varunagroup.de,OU=IT,O=Varunagroup AG,L=Berlin,S=BE,C=DE" ; Remove to use an empty Subject name.

Exportable = TRUE ; TRUE = Private key is exportable
KeyLength = 2048 ; Valid key sizes: 1024, 2048, 4096, 8192, 16384
KeySpec = 1 ; Key Exchange – Required for encryption
KeyUsage = 0xA0 ; Digital Signature, Key Encipherment

Apoc70

# Get EXO mailboxes by size
Get-ExoMailbox -RecipientTypeDetails UserMailbox -ResultSize Unlimited | Get-ExoMailboxStatistics | Sort TotalItemSize -Descending | Format-Table DisplayName, TotalItemSize, ItemCount

Apoc70

# New B2B user email address
$newEmailAddress = "user@setebos-ag.com"

# Update primary SMTP address for a selected user
$B2BUserToUpdate = 'USER_varunagroup.de#EXT#'
Set-MailUser $B2BUserToUpdate -ExternalEmailAddress "SMTP:$newEmailAddress" -WindowsEmailAddress $newEmailAddress 

Apoc70

# Fetch all mail users 
$DomainNameFilter = '*varunagroup.de'
Get-MailUser -ResultSize Unlimited | ?{$_.ExternalEmailAddress -like $DomainNameFilter} | Sort-Object DisplayName | Select-Object DisplayName, PrimarySmtpAddress

Apoc70

// AttachmentModify
// ----------------------------------------------------------
// Example for intercepting email messages in an Exchange 2010 transport queue
// 
// The example intercepts messages sent from a configurable email address(es)
// and checks the mail message for attachments have filename in to format
// 
//      WORKBOOK_{GUID}
//
// Changing the filename of the attachments makes it easier for the information worker