Globale Adressliste Outlook exportieren und Exchange importieren?

# get credentials to access ad and exchange server
$excreds = Get-Credential -Message "Enter credentials valid to edit objects in Exchange and AD:"  
if (!$excreds){return}

# load outlook object
[void][reflection.assembly]::LoadWithPartialName("microsoft.visualbasic")  
$objOL = [microsoft.visualbasic.interaction]::GetObject($null,"Outlook.Application")  
if (!$objOL){$objOL = New-Object -Com Outlook.Application}

# choose outlook folder via dialog picker
write-host "Please choose contactfolder from Outlook-Dialog, and allow access to contacts)" -F Magenta  
$contactfolder = $objOL.Session.PickFolder()
if(!$contactfolder){return}
if ($contactFolder.DefaultMessageClass -ne 'IPM.Contact'){  
    throw "Folder is not a contact folder!"  
    Read-Host "`nPress enter to exit"  
    return
}
write-host "Folder choosen: $($contactfolder.FullFolderPath)"  

# mapping between AD properties and outlook properties
$propertymapping = @{
    streetAddress = 'MailingAddressStreet'  
    l = 'MailingAddressCity'  
    postalCode = 'MailingAddressPostalCode'  
    postOfficeBox = 'MailingAddressPostOfficeBox'  
    st = 'MailingAddressState'  
    homePhone = 'HomeTelephoneNumber'  
    pager = 'PagerNumber'  
    mobile = 'MobileTelephoneNumber'  
    facsimileTelephoneNumber = 'HomeFaxNumber'  
    ipPhone = 'IMAddress'  
    department = 'Department'  
    company = 'CompanyName'  
    info = 'Body'  
    title = 'JobTitle'  
    initials = 'Initials'  
}

$session = $null
# Connect to Exchange
try{
    # determine Exchange server FQDN from AD
    $exchange_server = (new-object adsisearcher("LDAP://$(([adsi]'LDAP://rootDSE').configurationNamingContext)","(objectClass=msExchExchangeServer)","networkaddress",[System.DirectoryServices.SearchScope]::Subtree)).FindOne() | %{$_.Properties['networkaddress'] | ?{$_ -match 'ncacn_ip_tcp'} | %{$_.split(":")[1]} | select -First 1}  
    if (!$exchange_server){Write-Host "Could not determine Exchange-Server FQDN from AD" -ForegroundColor Red; return}  
    write-host "Creating connection to Exchange-Server '$exchange_server' ..." -ForegroundColor Green  
    $session = New-PSSession -ConfigurationName Microsoft.Exchange -ConnectionUri "http://$exchange_server/powershell/?SerializationLevel=Full" -Authentication Kerberos -Credential $excreds  
    Import-PSSession $session -DisableNameChecking -AllowClobber | out-null
}catch{
    throw $_
    Read-Host "`nPress enter to exit"  
    return
}

# for each contact
foreach ($olcontact in $contactFolder.Items){
    $mc = $null
    # check if contact does not exists create it
    if (!($mc = Get-MailContact $olcontact.FullName -EA SilentlyContinue)){
        write-host "Creating new exchange mail contact '$($olcontact.FullName)' ... " -NoNewline -F Green  
        try{
            $mc = New-MailContact -FirstName $olcontact.FirstName -LastName $olcontact.LastName -ExternalEmailAddress $olcontact.EMail1Address -Name $olContact.FullName -EA Stop
        }catch{
            write-host $_.Exception.Message -F Red
            continue
        }
    }else{
        write-host "Updating existing mail contact '$($olcontact.FullName)' ... " -NoNewline -F Cyan  
    }
    # get directory entry
    $contact = new-Object adsi "LDAP://$($mc.DistinguishedName)",$excreds.UserName,$excreds.GetNetworkCredential().Password  
    # set contact advanced properties
    $propertyMapping.GetEnumerator() | ?{$olcontact.($_.Value) -ne ''} | %{  
        $contact.InvokeSet($_.Key,$olcontact.($_.Value))
    }
    # save contact object
    try{
        $contact.CommitChanges()
        write-host "OK." -F Green  
    }catch{
        write-host $_.Exception.Message -F Red
    }
}

# close exchange session
if ($session){
    Remove-PSSession $session
}

Read-Host "`nPress enter to exit"