My-PowerShell

$a = New-Object -comobject Excel.Application
 
$a.Visible = $True
 
$b = $a.Workbooks.Add()
$c = $b.Worksheets.Item(1)
 
$col = 1
$ligne = 1
 
$c.Cells.Item(1,1) = "DisplayName"
$c.Cells.Item(1,2) = "Alias"
$c.Cells.Item(1,3) = "Database"
 
$ligne++
 
Get-Mailbox -Identity *christophe* | foreach {
	$displayname = $_.displayname
	$alias = $_.alias
	$database = $_.database
	$col = 1
	$c.Cells.Item($ligne,$col) = [string]$displayname
	$col++
	$c.Cells.Item($ligne,$col) = [string]$alias
	$col++
	$c.Cells.Item($ligne,$col) = [string]$database
	$ligne++
}

$b.SaveAs("C:\Resultats\Result_Christophe.xls")
$a.Quit()

 
$resfile = New-Item -ItemType file -Path liste_external_contacts.csv -Force
 
Add-Content -Path $resfile -Value "MailContactDisplayName,MailcontactAlias,MailcontactOrganizationalUnit,MailcontactExternalEmailAddress"
 
Get-MailContact -ResultSize unlimited | ForEach-Object {
 
	Add-Content -Path $resfile -Value "$($_.DisplayName),$($_.alias),$($_.OrganizationalUnit),$($_.ExternalEmailAddress)"
 
}

$resfile = New-Item -ItemType file -Path liste_forwards.csv -Force
 
Add-Content -Path $resfile -Value "MailboxDisplayName,MailboxAlias,MailContactDisplayName,MailcontactOrganizationalUnit,MailcontactExternalEmailAddress"
 
 
get-mailbox -ResultSize unlimited | Where-Object { $_.ForwardingAddress -ne $null } | ForEach-Object { 
$forward = Get-Recipient -Identity $_.ForwardingAddress
	if ( $forward.RecipientType -eq "MailContact") {
	$mailc = Get-MailContact -Identity $forward.alias
	Add-Content -Path $resfile -Value "$($_.name),$($_.alias),$($mailc.displayname),$($mailc.OrganizationalUnit),$($mailc.ExternalEmailAddress)"
	}
	else {}
 
}

get-user -resultsize unlimited | Where-Object { $_.identity -match "domain.com/Compta/"} | Select-Object LastName,FirstName,Identity | Export-Csv -Path export_users_compta.csv