Powershell script to change the CN of multiple contacts in AD from a CSV

Question

Powershell script to change the CN of multiple contacts in AD from a CSV

Biju Thankappan 86

Hi,

I'm trying to change the CN of multiple AD contacts in a csv from bt@Stuff .com to bt@Company portal .com

In the csv file contacts are listed like following:
bt@Stuff .com
tb@Stuff .com
...

Following is a working code for Users from the net. How do we do it for contacts?

Import-Module activedirectory$varCSV = "users.csv" $userlist = Import-Csv -Path $varCSV -Delimiter ","foreach ($user in $userlist){ $SamAccountName = $user.SamAccountName $FirstName = $user.GivenName $LastName = $user.Surname $DisplayName = $user.GivenName + " " + $user.Surname $UserPrincipalName = $user.UserPrincipalName + "@students.stdeclanscollege.ie" $JobTitle = $user.JobTitle $EmailAddress = $user.UserPrincipalName $Department = $user.Department $dn = (Get-ADUser -Identity $SamAccountName).DistinguishedName Get-ADUser -Identity $user.SamAccountName | Set-ADUser -DisplayName $DisplayName -GivenName $FirstName -Surname $LastName -Title $JobTitle -UserPrincipalName $UserPrincipalName -EmailAddress $UserPrincipalName -Department $Department Try { Rename-ADObject $dn -NewName $DisplayName } catch { Write-Output "Error Check Acc: " ($user.samaccountname) | Out-File C:\errors.txt -Append }}

TIA,
BT

Accepted answer

1 additional answer

Your answer

Answer 1

Anonymous

Hi,

Is bt@Stuff .com the UPN or CN? If it's the CN, and assuming the header of the column is CN, you can rename the contacts like below

$file = "C:\temp\contacts.csv"  
Import-Csv -Path $file | ForEach-Object {  
    $CN = $_.CN  
    Get-ADObject -LDAPFilter "(&(objectClass=contact)(CN=*$CN*))" -Properties CN | Rename-ADObject -NewName $_.CN.replace("gmail","contoso")  
}

Best Regards,
Ian Xue

============================================

If the Answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Biju Thankappan 86 Reputation points

2021-06-09T08:56:35.097+00:00

Sorry...I was not clear earlier.

The Contacts present in the file have this format:
Contacts
anon@USER
anon@USER
Jim Ray
Mary Howlander

So, the file has 1 column with heading as Contacts and name and email both in the same column. Some are emails and some are contact names (first name last name) like above. And yes these are also the CN's as well.

The requirement is to ensure their CN is equal to their mail attribute value

TIA,
Biju

Anonymous

Please see if this works. The contacts anon@USER and anon@USER will be renamed to xyz@Company portal .com and abc@Company portal .com.

$file = "C:\temp\contacts.csv"  
Import-Csv -Path $file | Where-Object {$_.contacts -match '@gmail.com'} | ForEach-Object {  
    $CN = $_.Contacts   
    Get-ADObject -LDAPFilter "(&(objectClass=contact)(CN=*$CN*))" | Rename-ADObject -NewName $CN.replace("gmail","contoso")  
}

Biju Thankappan 86 Reputation points

2021-06-09T09:53:58.787+00:00

Thanks! But the file has 1 column and the rows are populated with names and emails. Both these names and emails are also CN's. Like below:

Contacts
anon@USER
anon@USER
Jim Ray
Mary Howlander

How do I ensure they all are considered and their CN's changed to their email.

TIA,
Biju
Biju Thankappan 86 Reputation points

2021-06-09T11:35:41.9+00:00

What about Jim Ray and Mary Howlander? These are also CN's btw and present in the file.
Objective is to query these contacts, some with there display name and some with their emails from the csv file and then change their CN's to the value present in their email attribute.

Anonymous

Try this

$file = "C:\temp\contacts.csv"
Import-Csv -Path $file | ForEach-Object {
    $CN = $_.Contacts 
    if ($_.contacts -match '@gmail.com'){
        Get-ADObject -LDAPFilter "(&(objectClass=contact)(CN=*$CN*))"| Rename-ADObject -NewName $CN.replace("gmail","contoso")
    }
    else{
        Get-ADObject -LDAPFilter "(&(objectClass=contact)(CN=*$CN*))" -Properties mail | ForEach-Object{
        Rename-ADObject -Identity $_ -NewName ($_.mail).replace("gmail","contoso")}
      }
}

Biju Thankappan 86 Reputation points

2021-06-09T13:23:49.853+00:00
Thanks so far. I have accepted the answer as you have given so many replies, however, the objective I'm not able to make it clear somehow.

$file = "C:\temp\contacts.csv" Import-Csv -Path $file | Where-Object {$_.contacts -match '@gmail.com'} | ForEach-Object { $CN = $_.Contacts Get-ADObject -LDAPFilter "(&(objectClass=contact)(CN=*$CN*))" | Rename-ADObject -NewName $CN.replace("gmail","contoso") }

This code of yours is better. But may be just query the CN of the contact in the file (be it an email or display name) to check if they are same and if same then replace the existing CN with the mail.
Anonymous

2021-06-10T02:19:42.11+00:00

If it's a name in the file, do you want to rename the contact in AD to the mail property of it?
Biju Thankappan 86 Reputation points

2021-06-10T03:46:12.207+00:00

Thanks!
Following is what needs to be accomplished:
There is an OU named users inside contoso.com. Inside this OU there are multiple contacts that are listed with either email address or (First name Last name)
Query those contacts that have smtp address as 'gmail.com' from this OU and change the smtp address to 'contoso.com'
Then, change the mail to the smtp address above
Then, change the CN to the mail above
TIA,
Biju
Anonymous

2021-06-10T07:10:28.453+00:00

Do you mean the primary smtp address or both the primary and secondary smtp addresses by "smtp address"?
Biju Thankappan 86 Reputation points

2021-06-10T08:18:25.957+00:00

AD contacts have an attribute named as 'targetAddress' has a value of 'SMTP:anon@USER ' We checked manually if this attribute is changed, it also changes the same in Exchange. This is what we want to achieve.
Biju Thankappan 86 Reputation points

2021-06-10T08:23:18.767+00:00

This attribute is available only in exchange environments.

Anonymous

Does this work for you? It changes the cn, mail and targetAddress of contacts in $ou.

$file = 'C:\temp\contacts.csv'
$ou = 'OU=test,DC=contoso,DC=com'
Import-Csv -Path $file | ForEach-Object {
    $CN = $_.Contacts 
    Get-ADObject -Filter "objectClass -eq 'contact' -and CN -eq '$cn'" -SearchBase $ou -Properties targetAddress | ForEach-Object{
        if($_.targetAddress -match 'gmail.com') {
            $NewAddress = $_.targetAddress.Replace('SMTP:','').Replace('gmail','contoso')
        }
        else{
            $NewAddress = $_.targetAddress.Replace('SMTP:','')
        }
        Set-ADObject -Identity $_ -Replace @{mail=$NewAddress;targetAddress='SMTP:'+$NewAddress}
        Rename-ADObject -Identity $_ -NewName $NewAddress
    }     
}

Biju Thankappan 86 Reputation points

2021-06-10T09:38:30.687+00:00

Thanks, IanXue. Please allow me couple days to test it.
Biju Thankappan 86 Reputation points

2021-06-23T01:11:17.647+00:00
Apologize for the delayed response. It took some time as I did not have a exchange server test machine. Therefore it is still not tested.

However, now they want to make sure the following for contacts in the csv:

Rename and set the Full Name to firstname.lastname@Company portal .com

Change the mail from gmail.com to contoso.com

Change smtp address from gmail.com to contoso.com (your last script has to be tested)

TIA,
Biju
Biju Thankappan 86 Reputation points

2021-06-23T02:21:54.82+00:00
Getting this error:
Get-ADObject : One or more properties are invalid.
Parameter name: targetAddress
At Z:\Scripts\changesmtp.ps1:5 char:10

Get-ADObject -Filter "objectClass -eq 'contact' -and CN -eq ...

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

CategoryInfo : InvalidArgument: (:) [Get-ADObject], ArgumentException

FullyQualifiedErrorId : ActiveDirectoryCmdlet:System.ArgumentException,Microsoft.ActiveDirectory.Management.Commands.GetADObject

Answer 2

Anonymous

Hi,

If you want to set the DisplayName property when you refer to the Full Name, you can try this

$file = 'C:\temp\contacts.csv'  
$ou = 'OU=test,DC=contoso,DC=com'  
Import-Csv -Path $file | ForEach-Object {  
    $CN = $_.Contacts   
    Get-ADObject -Filter "objectClass -eq 'contact' -and CN -eq '$cn'" -SearchBase $ou -Properties targetAddress,sn,givenName | ForEach-Object{  
        if($_.targetAddress -match 'gmail.com') {  
            $NewAddress = $_.targetAddress.Replace('SMTP:','').Replace('gmail','contoso')  
        }  
        else{  
            $NewAddress = $_.targetAddress.Replace('SMTP:','')  
        }  
        $NewName = "$($_.givenName).$($_.sn)@contoso.com"  
        Set-ADObject -Identity $_ -Replace @{mail=$NewAddress;targetAddress='SMTP:'+$NewAddress;displayName=$NewName}   
        Rename-ADObject -Identity $_ -NewName $NewName  
    }       
}

Best Regards,
Ian Xue

============================================

If the Answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Biju Thankappan 86 Reputation points

2021-06-23T03:41:17.377+00:00
Getting the following errors:

Get-ADObject : One or more properties are invalid.
Parameter name: targetAddress
At Z:\Scripts\changeall.ps1:5 char:10

Get-ADObject -Filter "objectClass -eq 'contact' -and CN -eq ...

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

CategoryInfo : InvalidArgument: (:) [Get-ADObject], ArgumentException

FullyQualifiedErrorId : ActiveDirectoryCmdlet:System.ArgumentException,Microsoft.ActiveDirectory.Management.Commands.GetADObject
Biju Thankappan 86 Reputation points

2021-06-23T04:06:37.64+00:00

Yes rename the contact by changing the attibute 'name' for all contacts(CN can be fname.lname Or email) in csv. Then, change 'mail' and 'targetaddress' attributes
FYI...The above error might be because I do not have exchange in my lab.
Biju Thankappan 86 Reputation points

2021-06-23T05:48:25.85+00:00

Thanks, Ian. Allow me to come back on this after testing in exchange environment
Biju Thankappan 86 Reputation points

2021-07-14T12:19:38.38+00:00

Thanks a lot, Ian

Here is a small addon request:

The proxyaddresses AD attribute has multiple entries in it. I need to iterate each entry inside proxyaddresses and change @Stuff .com to @Company portal .com

TIA,
Biju

Anonymous

Please try this.

 $file = 'C:\temp\contacts.csv'
 $ou = 'OU=test,DC=contoso,DC=com'
 Import-Csv -Path $file | ForEach-Object {
     $CN = $_.Contacts 
     Get-ADObject -Filter "objectClass -eq 'contact' -and CN -eq '$cn'" -SearchBase $ou -Properties targetAddress,sn,givenName,proxyAddresses | ForEach-Object{
         if($_.targetAddress -match 'gmail.com') {
             $NewAddress = $_.targetAddress.Replace('SMTP:','').Replace('gmail','contoso')
         }
         else{
             $NewAddress = $_.targetAddress.Replace('SMTP:','')
         }
         $NewName = "$($_.givenName).$($_.sn)@contoso.com"
         if($_.proxyAddresses){
            $NewProxyAddresses = ($_.proxyAddresses).Replace('gmail','contoso')
         }
         Set-ADObject -Identity $_ -Replace @{mail=$NewAddress;targetAddress='SMTP:'+$NewAddress;displayName=$NewName;proxyAddresses=$NewProxyAddresses} 
         Rename-ADObject -Identity $_ -NewName $NewName
     }     
 }

Share via

Powershell script to change the CN of multiple contacts in AD from a CSV

1 additional answer

Your answer