#Alle Verteiler prüfen, bei denen das Attribut ManagedBy nicht leer ist
$groups = get-distributiongroup -ResultSize Unlimited | where-Object {$_.ManagedBy -ne $Null}
 
#Schleife wird für jede gefundene Gruppe ausgeführt
foreach ($group in $groups) {
 
#Inhalt von ManagedBy abrufen
$manager = $group.ManagedBy
 
#Prüfen ob der Verwalter Berechtigungen auf das Property "Member" hat
$permprop = get-adpermission $group.DistinguishedName -user $manager.DistinguishedName | where-Object {$_.Properties -match 'Member'}
 
#Wenn keine Berechtigungen vorhanden sind Ausgabe des Gruppennamens und des Verwalters
if ($permprop -eq $Null) {
Write-Host "Gruppe: " $group.SamAccountName "Verwalter: " $manager.DistinguishedName
} Else {
 
#Auf das Property "Member" werden Read Property und Write Property Berechtigungen benötigt
$permright = $permprop.AccessRights
if ($permright -notcontains "ReadProperty, WriteProperty") {
Write-Host "Gruppe: " $group.SamAccountName "Verwalter: " $manager.DistinguishedName
}
}
}

#Alle Verteiler prüfen, bei denen das Property "ManagedBy" gefüllt ist
$groups = get-distributiongroup -ResultSize Unlimited | where-Object {$_.ManagedBy -ne $Null}
 
#Schleife wird für jeden gefundenen Verteiler durchlaufen
foreach ($group in $groups) {
 
	#Es können mehrere Verwalter eingetragen werden, deshalb der Zusatz -expandProperty
	$managers = $group.ManagedBy
 
	#Schleife wird für jeden gefundenen Verwalter durchlaufen
	foreach ($manager in $managers) {
 
		#Prüfe ob für den Verwalter eine Berechtigung für das Property "Member" eingetragen ist
		$permprop = get-adpermission $group.SamAccountName -user $manager.DistinguishedName | where-Object {$_.Properties -match 'Member'}
 
		#Wenn keine Berechtigung vorhanden ist, Ausgabe des Gruppennamens und des Verwalters
		if ($permprop -eq $Null) {
			Write-Host "Gruppe: " $group.SamAccountName "Verwalter: " $manager.DistinguishedName
		} Else {
 
			#Es müssen die Berechtigungen Read Property _und_ Write Property auf "Member" vorhanden sein
			$permright = $permprop.AccessRights
			if ($permright -notcontains "ReadProperty, WriteProperty") {
				Write-Host "Gruppe: " $group.SamAccountName "Verwalter: " $manager.DistinguishedName
			}
		}
	}
}

Set-DistributionGroup -Identity verteilername -ManagedBy username | add-adpermission -user username -AccessRights ReadProbperty, WriteProperty -Properties ‘Member’

foreach ($contact in get-mailcontact -resultsize unlimited){
$a = $contact.ExternalEmailAddress.tostring().Remove(0,5);
set-mailcontact $contact -primarysmtpaddress $a
}

function get-orga2members {
 
# Definition der Variablen
$final = @()
$i = 1
$y = 1
 
# Finde alle Verteilerlisten
$dls = Get-DistributionGroup
 
# Führe die folgenden Befehle für jede Verteilerliste aus
foreach ($dl in $dls)
{
	# Zähler um 1 erhöhen
	$i++
 
	$AllContacts = @()
	$AllContactsEmail = @()
 
	# Prüfe ob Kontakte Mitglieder sind, die @domainpart.tld als Primäre SMTP Adresse haben
	$AllContacts += Get-DistributionGroupMember -Identity $dl -ResultSize Unlimited | Where-Object { $_.PrimarySMTPAddress -match "@domainpart.tld" } | select displayName, PrimarySMTPAddress
 
	# Wenn der vorhergehende Befehl keinen Treffer hatte, muss auch nichts weiter gemacht werden
	If ($AllContacts -ne $Null) {
 
		# Zähler um 1 erhöhen
		$y++
 
		# Führe folgende Befehle für jeden Kontakt aus
		foreach ($contact in $AllContacts)
		{
 
			$mail = $contact.PrimarySMTPAddress
 
			# Hiermit wird der Befehl zusammengestellt, um den Kontakt später wieder in den Verteiler aufzunehmen
			$task = "Add-DistributionGroupMember -Identity ""$dl"" -Member $mail"
 
			# Ein bisschen Kontrolle muss sein, deshalb zur Sicherheit
			$obj = new-object psObject
			$obj | Add-Member -MemberType noteproperty -Name "Verteilerliste" -value $dl
			$obj | Add-Member -MemberType noteproperty -Name "Empfänger Name" -value $contact.displayName
			$obj | Add-Member -MemberType noteproperty -Name "Empfänger Adresse" -value $contact.PrimarySMTPAddress
 
			$AllContactsEmail += $obj
 
			# Ausgabe des Befehls in eine Datei, für die spätere Ausführung
			$task | out-file membersadd.ps1 -encoding default -append
		}
 
		$final += $AllContactsEmail
	}
}
 
$final | export-csv alleverteiler.csv -NoTypeInformation -encoding default
Write-Host $i " Verteiler gefunden"
Write-Host $y " Verteiler müssen angefasst werden"
}

get-date -uFormat %V

function get-isoweeknumber($Date) {
# get the day of week as <Int>
[int]$dayOfWeek = $Date.DayOfWeek
# if 0 (Sunday) change it to 7
if (-not $dayOfWeek) {$dayOfWeek = 7}
# adjust date to nearest Thursday (middle of the week), past or future
$midWeek = $Date.AddDays(4 - $dayOfWeek)
# year the week belongs to
$year = $midWeek.year
# week number
$week = [Math]::Ceiling($midWeek.DayOfYear / 7)
# output the ISO week date
'KW{0:00}/{1:0000}' -f $week, $year
}

$hubs = Get-TransportServer
 
# Get the start date for the tracking log search
$Start = (Get-Date -Hour 00 -Minute 00 -Second 00).AddDays(-1)
 
# Get the end date for the tracking log search
$End = (Get-Date -Hour 23 -Minute 59 -Second 59).AddDays(-1)
 
$Datum = $Start.ToShortDateString()
 
$receive = $hubs | get-messagetrackinglog -Start $Start -End $End -EventID "RECEIVE" -ResultSize Unlimited | select Sender,RecipientCount,TotalBytes,Recipients
$send = $hubs | get-messagetrackinglog -Start $Start -End $End -EventID "SEND" -ResultSize Unlimited | select Sender,RecipientCount,TotalBytes
$mreceive = $receive | Measure-Object TotalBytes -maximum -minimum -average -sum
$msend = $send | Measure-Object TotalBytes -maximum -minimum -average -sum
 
$anzahl = $mreceive.count + $msend.count
$volumen = ($mreceive.sum + $msend.sum) / (1024 * 1024)
 
$volumen = "{0:N2}" -f $volumen + " MB"
 
$msendmb = $msend.sum / (1024 * 1024)
$vsend = "{0:N2}" -f $msendmb + " MB"
$bigsend = $msend.maximum / (1024 * 1024)
$avsend = $msend.average / 1024
 
$bigsendmb = "{0:N2}" -f $bigsend + " MB"
$avsendkb = "{0:N2}" -f $avsend + " KB"
 
$mreceivemb = $mreceive.sum / (1024 * 1024)
$vreceive = "{0:N2}" -f $mreceivemb + " MB"
$bigreceive = $mreceive.maximum / (1024 * 1024)
$avreceive = $mreceive.average / 1024
 
$bigreceivemb = "{0:N2}" -f $bigreceive + " MB"
$avreceivekb = "{0:N2}" -f $avreceive + " KB"
 
#$senders = $send | Group-Object Sender | Sort-Object Count -Descending
#$topsender = $senders[0].Name
#$topsender += $senders[0].Count
 
#$receivers = $receive | Group-Object Recipients | Sort-Object Count -Descending
#$topreceiver = $receivers[0]
#$topreceiver
 
$obj = new-object psObject
 
$obj |Add-Member -MemberType noteproperty -Name "Datum" -Value $Datum
$obj |Add-Member -MemberType noteproperty -Name "Anzahl Gesendete E-Mails" -Value $msend.Count
$obj |Add-Member -MemberType noteproperty -Name "Volumen Gesendete E-Mails" -Value $vsend
$obj |Add-Member -MemberType noteproperty -Name "Volumen der größten E-Mail Out" -value $bigsendmb
$obj |Add-Member -MemberType noteproperty -Name "Durchschnittliche Größe Out" -value $avsendkb
$obj |Add-Member -MemberType noteproperty -Name "Anzahl Empfangene E-Mails" -Value $mreceive.Count
$obj |Add-Member -MemberType noteproperty -Name "Volumen Empfangene E-Mails" -Value $vreceive
$obj |Add-Member -MemberType noteproperty -Name "Volumen der größten E-Mail In" -value $bigreceivemb
$obj |Add-Member -MemberType noteproperty -Name "Durchschnittliche Größe In" -value $avreceivekb
$obj |Add-Member -MemberType noteproperty -Name "Gesamtanzahl" -Value $anzahl
$obj |Add-Member -MemberType noteproperty -Name "Volumen Gesamt" -Value $volumen
 
$out = $Datum + ";" + $msend.count + ";" + $vsend + ";" + $mreceive.count + ";" + $vreceive + ";" + $anzahl + ";" + $volumen
$out | out-file c:\daily.csv -append -encoding default
 
function sendmail($body)
{
$SmtpClient = new-object system.net.mail.smtpClient
$MailMessage = New-Object system.net.mail.mailmessage
$SmtpClient.Host = "mailserver.domain.local"
$mailmessage.from = "sender@domain.tld"
$mailmessage.To.add("recipient@domain.tld")
$mailmessage.CC.add("recipient@domain.tld")
$mailmessage.Subject = “Exchange daily report for $Datum”
$MailMessage.IsBodyHtml = $false
$mailmessage.Body = $body
 
$smtpclient.Send($mailmessage)
}
 
$obj = $obj -replace("@{","")
$obj = $obj -replace("=",":`t")
$obj = $obj -replace("; ","`n")
$obj = $obj -replace("}","`n")
 
sendmail $obj

$hubs = Get-TransportServer
 
# Get the start date for the tracking log search
$Start = (Get-Date -Hour 00 -Minute 00 -Second 00).AddDays(-1)
 
# Get the end date for the tracking log search
$End = (Get-Date -Hour 23 -Minute 59 -Second 59).AddDays(-1)
 
$Datum = $Start.ToShortDateString()
 
$receive = $hubs | get-messagetrackinglog -Start $Start -End $End -EventID "RECEIVE" -ResultSize Unlimited | select Sender,RecipientCount,TotalBytes,Recipients
$send = $hubs | get-messagetrackinglog -Start $Start -End $End -EventID "SEND" -ResultSize Unlimited | select Sender,RecipientCount,TotalBytes
$mreceive = $receive | Measure-Object TotalBytes -maximum -minimum -average -sum
$msend = $send | Measure-Object TotalBytes -maximum -minimum -average -sum
 
$anzahl = $mreceive.count + $msend.count
$volumen = ($mreceive.sum + $msend.sum) / (1024 * 1024)
 
$volumen = "{0:N2}" -f $volumen + " MB"
 
$msendmb = $msend.sum / (1024 * 1024)
$vsend = "{0:N2}" -f $msendmb + " MB"
 
$mreceivemb = $mreceive.sum / (1024 * 1024)
$vreceive = "{0:N2}" -f $mreceivemb + " MB"
 
$obj = new-object psObject
 
$obj |Add-Member -MemberType noteproperty -Name "Datum" -Value $Datum
$obj |Add-Member -MemberType noteproperty -Name "Anzahl Gesendete E-Mails" -Value $msend.Count
$obj |Add-Member -MemberType noteproperty -Name "Volumen Gesendete E-Mails" -Value $vsend
$obj |Add-Member -MemberType noteproperty -Name "Anzahl Empfangene E-Mails" -Value $mreceive.Count
$obj |Add-Member -MemberType noteproperty -Name "Volumen Empfangene E-Mails" -Value $vreceive
$obj |Add-Member -MemberType noteproperty -Name "Gesamtanzahl" -Value $anzahl
$obj |Add-Member -MemberType noteproperty -Name "Volumen Gesamt" -Value $volumen
 
$out = $Datum + ";" + $msend.count + ";" + $vsend + ";" + $mreceive.count + ";" + $vreceive + ";" + $anzahl + ";" + $volumen
$out | out-file c:\daily.csv -append -encoding default
 
function sendmail($body)
{
$SmtpClient = new-object system.net.mail.smtpClient
$MailMessage = New-Object system.net.mail.mailmessage
$SmtpClient.Host = "mailserver.domain.local"
$mailmessage.from = "sender@domain.tld"
$mailmessage.To.add("recipient@domain.tld")
$mailmessage.CC.add("recipient@domain.tld")
$mailmessage.Subject = “Exchange daily report for $Datum”
$MailMessage.IsBodyHtml = $false
$mailmessage.Body = $body
 
$smtpclient.Send($mailmessage)
}
 
$obj = $obj -replace("@{","")
$obj = $obj -replace("=",":`t")
$obj = $obj -replace("; ","`n")
$obj = $obj -replace("}","`n")
 
sendmail $obj

start C:\WINDOWS\system32\windowspowershell\v1.0\powershell.exe -PSConsoleFile "D:\Exchange\bin\exshell.psc1" -command ". 'D:\Auto_Scripts\daily-report.ps1'"
 
exit

C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -command ". 'C:\Program Files\Microsoft\Exchange Server\V14\bin\RemoteExchange.ps1'; Connect-ExchangeServer -auto; D:\Auto_Scripts\daily-report.ps1"
Exit