AD-User zu Outlook Kontakte konvertieren

Veröffentlicht am von Joachim

Dank der globalen Adressliste können wir im Handy problemlos nach den Kontaktdaten von anderen AD-Usern suchen. Das bringt uns aber nichts, wenn wir von einem dieser User angerufen werden, denn das Handy schaut nicht in der GAL, sondern nur in den Kontakten die auf das Handy synchronisiert wurden. Somit weiß man nicht wer einen anruft, außer man hat die Nummer selbst ins Outlook oder ins Handy eingetragen.

Die Lösung: Alle AD-User zu Outlook Kontakte machen. Und bei der Gelegenheit nehmen wir etwaige AD-Bilder gleich mit.

Dieses Skript kann man dann einfach jede Nacht laufen lassen:

  • Es leert den Kontakte Ordner im Outlook den es beim letzten mal angelegt hat
  • Exportiert die Bilder aus dem AD
  • Erzeugt die Kontakte für jeden User neu

Hierdurch ist sichergestellt, dass keine alten User in den Kontakten rum dümpeln.

# Hier kommen alles User rein, die ihr Outlook nicht upgedatet haben wollen.
# Es ist der SAMAccountName einzutragen, das heißt der Login-Name.
# Z.B. mmustermann für Max Mustermann oder ssorglos für Susi Sorglos, etc...
# Es ist für jeden User eine neue Zeile unter der letzten $wollen_nicht +=... Zeile zu erstellen.
# Die Syntax ist: $wollen_nicht += "SAMACCOUNTNAME"
# Also z.B.: $wollen_nicht += "mmustermann"

  $wollen_nicht = @()
# $wollen_nicht += "SAMAccountName" --> Als Beispiel, bei kopieren das # nicht mit kopieren, sonst greift es nicht.

# So soll der Ordner der Kontakte im Outlook heißen
$OutlookFoldername = "Contoso-Mitarbeiter"

#export the thmbnailphotos from AD to local storage
$thumbnailPhotoPath = "C:\Scripts\thumbnailPhoto"
$thumbnailPhotoPathResized = "C:\scripts\thumbnailPhoto_resized"

Function Set-ImageSize{
   
	[CmdletBinding(
    	SupportsShouldProcess=$True,
        ConfirmImpact="Low"
    )]		
	Param(
		[parameter(Mandatory=$true,
			ValueFromPipeline=$true,
			ValueFromPipelineByPropertyName=$true)]
		[Alias("Image")]	
		[String[]]$FullName,
		[String]$Destination = $(Get-Location),
		[Switch]$Overwrite,
		[Int]$WidthPx,
		[Int]$HeightPx,
		[Int]$DPIWidth,
		[Int]$DPIHeight,
		[Switch]$FixedSize,
		[Switch]$RemoveSource
	)
	
	Begin{
		[void][reflection.assembly]::LoadWithPartialName("System.Windows.Forms")
		#[void][reflection.assembly]::loadfile( "C:\Windows\Microsoft.NET\Framework\v2.0.50727\System.Drawing.dll")
	}
	
	Process{

		Foreach($ImageFile in $FullName){
			If(Test-Path $ImageFile){
				$OldImage = new-object System.Drawing.Bitmap $ImageFile
				$OldWidth = $OldImage.Width
				$OldHeight = $OldImage.Height
				
				if($WidthPx -eq $Null){
					$WidthPx = $OldWidth
				}
				
				if($HeightPx -eq $Null){
					$HeightPx = $OldHeight
				}
				
				if($FixedSize){
					$NewWidth = $WidthPx
					$NewHeight = $HeightPx
				}else{
					if($OldWidth -lt $OldHeight){
						$NewWidth = $WidthPx
						[int]$NewHeight = [Math]::Round(($NewWidth*$OldHeight)/$OldWidth)
						
						if($NewHeight -gt $HeightPx){
							$NewHeight = $HeightPx
							[int]$NewWidth = [Math]::Round(($NewHeight*$OldWidth)/$OldHeight)
						}
					}else{
						$NewHeight = $HeightPx
						[int]$NewWidth = [Math]::Round(($NewHeight*$OldWidth)/$OldHeight)
						
						if($NewWidth -gt $WidthPx){
							$NewWidth = $WidthPx
							[int]$NewHeight = [Math]::Round(($NewWidth*$OldHeight)/$OldWidth)
						}						
					}
				}

				$ImageProperty = Get-ItemProperty $ImageFile				
				$SaveLocation = Join-Path -Path $Destination -ChildPath ($ImageProperty.Name)

				If(!$Overwrite){
					If(Test-Path $SaveLocation){
						$Title = "A file already exists: $SaveLocation"
							
						$ChoiceOverwrite = New-Object System.Management.Automation.Host.ChoiceDescription "&Overwrite"
						$ChoiceCancel = New-Object System.Management.Automation.Host.ChoiceDescription "&Cancel"
						$Options = [System.Management.Automation.Host.ChoiceDescription[]]($ChoiceCancel, $ChoiceOverwrite)		
						If(($host.ui.PromptForChoice($Title, $null, $Options, 1)) -eq 0){
							Write-Verbose "Image '$ImageFile' exist in destination location - skiped"
							Continue
						} #End If ($host.ui.PromptForChoice($Title, $null, $Options, 1)) -eq 0
					} #End If Test-Path $SaveLocation
				} #End If !$Overwrite	
				
				$NewImage = new-object System.Drawing.Bitmap $NewWidth,$NewHeight

				$Graphics = [System.Drawing.Graphics]::FromImage($NewImage)
				$Graphics.InterpolationMode = [System.Drawing.Drawing2D.InterpolationMode]::HighQualityBicubic
				$Graphics.DrawImage($OldImage, 0, 0, $NewWidth, $NewHeight) 

				$ImageFormat = $OldImage.RawFormat
				$OldImage.Dispose()
				if($DPIWidth -and $DPIHeight){
					$NewImage.SetResolution($DPIWidth,$DPIHeight)
				} #End If $DPIWidth -and $DPIHeight
				
				$NewImage.Save($SaveLocation,$ImageFormat)
				$NewImage.Dispose()
				Write-Verbose "Image '$ImageFile' was resize from $($OldWidth)x$($OldHeight) to $($NewWidth)x$($NewHeight) and save in '$SaveLocation'"
				
				If($RemoveSource){
					Remove-Item $Image -Force
					Write-Verbose "Image source '$ImageFile' was removed"
				} #End If $RemoveSource
			}
		}

	} #End Process
	
	End{}
}

Function Copy-OrgContactsToUserMailboxContacts{
   
	param(
		$Mailbox,
		$FolderName,
		$Users,
		$thumbnailPhotoPath
	)

	
	$EwsUrl = ([array](Get-WebServicesVirtualDirectory))[0].InternalURL.AbsoluteURI

	$ContactMapping=@{
		"FirstName" = "GivenName";
		"LastName" = "Surname";
		"Company" = "CompanyName";
		"WindowsEmailAddress" = "Email:EmailAddress1";
		"Phone" = "Phone:BusinessPhone";
		"Fax" = "Phone:BusinessFax";
		"MobilePhone" = "Phone:MobilePhone";
		"Manager" = "Manager";
		"Title" = "JobTitle";
		"WebPage" = "BusinessHomePage";
		"AssistantName" = "AssistantName";
		"Office" = "OfficeLocation";
		"Department" = "Department";
	}

	$UserMailbox = Get-Mailbox $Mailbox

	if (!$UserMailbox){
		throw "Mailbox $($Mailbox) not found";
		exit;
	}
	$EmailAddress = $UserMailbox.PrimarySMTPAddress

	# Load EWS Managed API
	[void][Reflection.Assembly]::LoadFile("E:\Program Files\Microsoft\Exchange\Web Services\2.2\Microsoft.Exchange.WebServices.dll");

	$service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService([Microsoft.Exchange.WebServices.Data.ExchangeVersion]::Exchange2010_SP1)
	$service.UseDefaultCredentials = $true;
	$service.URL = New-Object Uri($EwsUrl);

	# Search for an existing copy of the Folder to store Org contacts 
	$service.ImpersonatedUserId = New-Object Microsoft.Exchange.WebServices.Data.ImpersonatedUserId([Microsoft.Exchange.WebServices.Data.ConnectingIdType]::SmtpAddress, $EmailAddress);
	$RootFolder = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($service,[Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::MsgFolderRoot)
	$RootFolder.Load()

	$service.ImpersonatedUserId = New-Object Microsoft.Exchange.WebServices.Data.ImpersonatedUserId([Microsoft.Exchange.WebServices.Data.ConnectingIdType]::SmtpAddress, $EmailAddress);
	$FolderView = new-Object Microsoft.Exchange.WebServices.Data.FolderView(1000)
	$ContactsFolderSearch = $RootFolder.FindFolders($FolderView) | Where {$_.DisplayName -eq $FolderName}
	if ($ContactsFolderSearch){
		# Empty if found
		$service.ImpersonatedUserId = New-Object Microsoft.Exchange.WebServices.Data.ImpersonatedUserId([Microsoft.Exchange.WebServices.Data.ConnectingIdType]::SmtpAddress, $EmailAddress);
		$ContactsFolder = [Microsoft.Exchange.WebServices.Data.ContactsFolder]::Bind($service,$ContactsFolderSearch.Id);
		$ContactsFolder.Empty([Microsoft.Exchange.WebServices.Data.DeleteMode]::HardDelete, $true)
	}else{
		# Create new contacts folder
		$service.ImpersonatedUserId = New-Object Microsoft.Exchange.WebServices.Data.ImpersonatedUserId([Microsoft.Exchange.WebServices.Data.ConnectingIdType]::SmtpAddress, $EmailAddress);
		$ContactsFolder = New-Object Microsoft.Exchange.WebServices.Data.ContactsFolder($service);
		$ContactsFolder.DisplayName = $FolderName
		$ContactsFolder.Save([Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::MsgFolderRoot)
		# Search for the new folder instance
		$RootFolder = [Microsoft.Exchange.WebServices.Data.Folder]::Bind($service,[Microsoft.Exchange.WebServices.Data.WellKnownFolderName]::MsgFolderRoot)
		$RootFolder.Load()
		$FolderView = new-Object Microsoft.Exchange.WebServices.Data.FolderView(1000)
		$ContactsFolderSearch = $RootFolder.FindFolders($FolderView) | Where {$_.DisplayName -eq $FolderName}
		$ContactsFolder = [Microsoft.Exchange.WebServices.Data.ContactsFolder]::Bind($service,$ContactsFolderSearch.Id);
	}

	# Add contacts

	foreach ($ContactItem in $Users){
		$service.ImpersonatedUserId = New-Object Microsoft.Exchange.WebServices.Data.ImpersonatedUserId([Microsoft.Exchange.WebServices.Data.ConnectingIdType]::SmtpAddress, $EmailAddress);
		
		$ExchangeContact = New-Object Microsoft.Exchange.WebServices.Data.Contact($service);
		if ($ContactItem.FirstName -and $ContactItem.LastName){
			$ExchangeContact.NickName = $ContactItem.LastName + ", " + $ContactItem.FirstName;
		}elseif ($ContactItem.FirstName -and !$ContactItem.LastName){
			$ExchangeContact.NickName = $ContactItem.FirstName;
		}elseif (!$ContactItem.FirstName -and $ContactItem.LastName){
			$ExchangeContact.NickName = $ContactItem.LastName;
		}elseif (!$ContactItem.FirstName -and !$ContactItem.LastName){
			$ExchangeContact.NickName = $ContactItem.DisplayName;
			$ContactItem.FirstName = $ContactItem.DisplayName;
		}


		#Set profile picture from exported thumbnailphoto, if empty then skip
		$ContactPictureFile = $thumbnailPhotoPath + "\" + $ContactItem.SamAccountName + ".jpg"
		if ((Test-Path -Path $ContactPictureFile) -eq $true){
			$ExchangeContact.SetContactPicture($ContactPictureFile);
		}

		$ExchangeContact.DisplayName = $ExchangeContact.NickName;
		$ExchangeContact.FileAs = $ExchangeContact.NickName;
		
		# This uses the Contact Mapping above to save coding each and every field, one by one. Instead we look for a mapping and perform an action on
		# what maps across. As some methods need more "code" a fake multi-dimensional array (seperated by :'s) is used where needed.
		foreach ($Key in $ContactMapping.Keys){
			# Only do something if the key exists
			
			if ($ContactItem.$Key){
				# Will this call a more complicated mapping?
				
				if ($ContactMapping[$Key] -like "*:*"){
					# Make an array using the : to split items.
					
					$MappingArray = $ContactMapping[$Key].Split(":")
					# Do action
					
					switch ($MappingArray[0]){
						"Email"{
							$ExchangeContact.EmailAddresses[[Microsoft.Exchange.WebServices.Data.EmailAddressKey]::($MappingArray[1])] = $ContactItem.$Key.ToString();
						}"Phone"{
							$ExchangeContact.PhoneNumbers[[Microsoft.Exchange.WebServices.Data.PhoneNumberKey]::($MappingArray[1])] = $ContactItem.$Key;
						}
					}                
				}elseif($ContactMapping[$Key] -like "Manager"){

					$ExchangeContact.($ContactMapping[$Key]) = $ContactItem.$Key.Name
				
			
				}elseif($ContactMapping[$Key] -like "JobTitle"){

					$Title = $ContactItem.$Key
					if($Title -like ".*"){
							$Title = $Title.SubString(1, ($Title.Length - 1))
					}
					
					$ExchangeContact.($ContactMapping[$Key]) = $Title
								
				
				}else{
				
					$ExchangeContact.($ContactMapping[$Key]) = $ContactItem.$Key;            
				}
			}    
		}
		# Save the contact    
		$ExchangeContact.Save($ContactsFolder.Id);
		
		# Provide output that can be used on the pipeline
		$Output_Object = New-Object Object;
		$Output_Object | Add-Member NoteProperty FileAs $ExchangeContact.FileAs;
		$Output_Object | Add-Member NoteProperty GivenName $ExchangeContact.GivenName;
		$Output_Object | Add-Member NoteProperty Surname $ExchangeContact.Surname;
		$Output_Object | Add-Member NoteProperty EmailAddress1 $ExchangeContact.EmailAddresses[[Microsoft.Exchange.WebServices.Data.EmailAddressKey]::EmailAddress1]
		$Output_Object;
	}
}


# Module laden
Add-PSSnapin Microsoft.Exchange.Management.PowerShell.E2010
Import-Module ActiveDirectory

# Ggf. Ordner erstellen
if ((Test-Path -Path $thumbnailPhotoPath) -eq $true){
    Remove-Item -Path $thumbnailPhotoPath -Force -Recurse
    New-Item -Path $thumbnailPhotoPath -ItemType directory -Force
}else{
    New-Item -Path $thumbnailPhotoPath -ItemType directory -Force
}

# Kurz warten
sleep(5)

# Alle User einlesen die ein Bild im AD haben
# Dann für jeden User das Bild exportieren
$bilderuser = Get-ADUser -Filter * -Properties thumbnailphoto | where {$_.thumbnailphoto}
for ($i = 0; $i -lt $bilderuser.Count; $i++){
	$newpath = $thumbnailPhotoPath + "\" + $bilderuser[$i].SamAccountName + ".jpg"
	$bilderuser[$i].thumbnailphoto | Set-Content -Path $newpath -Encoding Byte
}


# Die Bilder auf eine neue Größe anpassen, weil Outlook diese sonst nicht anzeigen kann
$45kb = 40960 # 40KB in Byte

# Hilfs-Counter, weil es auf Grund von mathematischen Rundungen passieren kann, dass er nicht genau die richtige Größe trifft...
$count = 0

while(1){

	if($count -ge 10){
		echo "Abbruch"
		break;
	}

	echo "Los geht's"
	$bilder = gci "$thumbnailPhotoPath\*.jpg"
	$zugrossebilder = @()
	
	foreach ($bild in $bilder){

		$size = $bild.Length

		if($size -gt $45kb){
			$zugrossebilder += $bild
		}
	}

	if($zugrossebilder.Count -ge 1){

		if (!(Test-Path $thumbnailPhotoPathResized)){
			New-Item -Path $thumbnailPhotoPathResized -ItemType directory -Force
		}

		foreach($zugrossesbild in $zugrossebilder){
			
			$size = $zugrossesbild.Length
			$sizeratio = $size / $45kb
			$dateiname = $zugrossesbild.Versioninfo.Filename
			$image = New-Object -ComObject Wia.ImageFile
			$image.LoadFile($dateiname)
			$oldHeight = $image.Height
			$oldWidth = $image.Width
			$oldPixel = $oldHeight * $oldWidth
			$newPixel = $oldPixel / $sizeratio
			
			$faktor = [math]::Sqrt($newPixel / ($oldHeight * $oldWidth))

			$newWidth = $OldWidth * $faktor
			$newWidth = [math]::Round($newWidth, 0)
			
			$newHeight = $OldHeight * $faktor
			$newHeight = [math]::Round($newHeight, 0)
			
			Set-ImageSize -Fullname $dateiname -WidthPx $newWidth -HeightPx $newHeight -Destination $thumbnailPhotoPathResized
			echo $dateiname
			
			[System.Runtime.Interopservices.Marshal]::ReleaseComObject($image)
			Remove-Variable image
		}
		
		sleep(1)
		
		Move-Item -Path "$thumbnailPhotoPathResized\*.*" -Destination $thumbnailPhotoPath -Force
		Remove-Item $thumbnailPhotoPathResized -Force -Recurse		
		
		sleep(1)
		$count++
		
	}else{
		break;
	}
}


# Alle User die eine E-Mail Adresse und Rufnummer haben werden eingelesen
$users = @()
$Users += get-user -Filter {WindowsEmailAddress -ne $null -and (MobilePhone -ne $null -or Phone -ne $null)} | select SamAccountName

$newUsers = @()
foreach($newUser in $Users){
	$newUsers += get-ADuser $newUser.SAMAccountName
}

# Da wir ein Array mit dem Attribut SAMAccountName haben, soll das weg und nur ein Text-Array erstellt werden
$umschrieb = @()
foreach ($user in $newUsers){
	$umschrieb += $user.SAMAccountName
}
$user = $null

# Jetzt werden alle o.g. User aus der Liste gelöscht
foreach ($user in $wollen_nicht){
	$umschrieb = $umschrieb -ne $user
}

# Leere Einträge rausnehmen
$umschrieb = $umschrieb | ? {$_}

$Users = @()
$newUsers = $newUsers | ? {$_.SamAccountName}
$User = $null

foreach($User in $newUsers){
	$Users += get-user $User.SamAccountName | select *
}


# Für alle User die übrig bleiben wird das Script ausgeführt
foreach ($Mailbox in $umschrieb){
	echo "Jetz kommt: $Mailbox"
	Copy-OrgContactsToUserMailboxContacts -Mailbox $Mailbox -Foldername $OutlookFoldername -Users $Users -thumbnailPhotoPath $thumbnailPhotoPath
	echo ""
	echo "$Mailbox ist fertig!"
	echo "---------------------------------------------"
	echo "---------------------------------------------"
}

if ((Test-Path -Path $thumbnailPhotoPath) -eq $true){
	Remove-Item -Path $thumbnailPhotoPath -Force -Recurse
}

exit