Update alternate email in Azure AD using Graph API call

Hi All,

I manged to resolve error and compile script successfully and update alternate email Id in Azure AD.

Please see sample script I created.

#If Not SCRIPTDEBUGGER Then
References Microsoft.IdentityModel.Clients.ActiveDirectory.dll
Imports System.ComponentModel.Composition
Imports System.Web
Imports System.Net

#End If

Public Function CCC_AzureAd() As String

Try
Dim clientId As String = "xxxx"
Dim userId As String = "xxxx"
Dim password As String = "xxxxx"
Dim organizationDomain As String = "xxxxx"

Dim AuthCtx As Microsoft.IdentityModel.Clients.ActiveDirectory.AuthenticationContext = New Microsoft.IdentityModel.Clients.ActiveDirectory.AuthenticationContext("">login.windows.net/" + organizationDomain)
Dim token As String = Microsoft.IdentityModel.Clients.ActiveDirectory.AuthenticationContextIntegratedAuthExtensions.AcquireTokenAsync(AuthCtx, "">graph.microsoft.com/", clientId, New Microsoft.IdentityModel.Clients.ActiveDirectory.UserPasswordCredential(userId, password)).Result.AccessToken

Dim request As HttpWebRequest = CType(HttpWebRequest.Create("">graph.microsoft.com/.../0d511674-75ea-4742-b0ec-5fd93456784d9"), HttpWebRequest)
request.Method = "PATCH"
request.ContentType = "application/json"

request.Headers.Add("Authorization", sAuthString)

Dim sData As String = "{ ""otherMails"": [" +
"""xxxxx82@gmail.com""" + "]}"
Dim identity_json_bytes = Encoding.ASCII.GetBytes(sData)
request.Accept = "application/json, text/plain, */*"
request.GetRequestStream().Write(identity_json_bytes, 0, identity_json_bytes.Length)

Dim sResponcedata As String

Using response As System.Net.WebResponse = request.GetResponse()
Using streamReader As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
sResponcedata = streamReader.ReadToEnd()
End Using
End Using

Return token

Catch ex As Exception
Throw ex.InnerException
End Try
End Function

Hi All, I manged to resolve the issue by referencing dll

#If Not SCRIPTDEBUGGER Then
References Microsoft.IdentityModel.Clients.ActiveDirectory.dll
Imports System.ComponentModel.Composition

#End If

Thanks for sharing your solution.