ewsgui

2.0.27

internal/functions/Connect-EWSService.ps1

                                Function Connect-EWSService {

    <#

    .SYNOPSIS

    Function to Create service object and authenticate the user.

    .DESCRIPTION

    This function will create the service object.

    Will opt to the user to select connection either to On-premises or Exchange Online.

    Will use basic auth to connect to on-premises. Endpoint will be discovered using Autodiscover.

    Will use modern auth to connect to Exchange Online. Endpoint is hard-coded to EXO EWS URL.

    .PARAMETER ClientID

    String parameter with the ClientID (or AppId) of your AzureAD Registered App.

    .PARAMETER TenantID

    String parameter with the TenantID your AzureAD tenant.

    .PARAMETER ClientSecret

    String parameter with the Client Secret which is configured in the AzureAD App.

    .EXAMPLE

    PS C:\> Connect-EWSService

    Creates service object and authenticate the user.

    #>

    [Diagnostics.CodeAnalysis.SuppressMessageAttribute("PSAvoidGlobalVars", "")]

    [Diagnostics.CodeAnalysis.SuppressMessageAttribute("PSUseDeclaredVarsMoreThanAssignments", "")]

    [Cmdletbinding()]

    param(

        [String] $ClientID,

        [String] $TenantID,

        [String] $ClientSecret

    )

    # Choosing if connection is to Office 365 or an Exchange on-premises

    $PremiseForm.Controls.Add($radiobutton1)

    $PremiseForm.Controls.Add($radiobutton2)

    $PremiseForm.Controls.Add($radiobutton3)

    $PremiseForm.ClientSize = New-Object System.Drawing.Size(250, 160)

    $PremiseForm.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation

    $PremiseForm.Name = "form1"

    $PremiseForm.Text = "Choose your Exchange version"

    #

    # radiobutton1

    #

    $radiobutton1.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation

    $radiobutton1.Location = New-Object System.Drawing.Point(20, 20)

    $radiobutton1.Size = New-Object System.Drawing.Size(150, 25)

    $radiobutton1.TabStop = $True

    $radiobutton1.Text = "Exchange 2010"

    $radioButton1.Checked = $true

    $radiobutton1.UseVisualStyleBackColor = $True

    #

    # radiobutton2

    #

    $radiobutton2.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation

    $radiobutton2.Location = New-Object System.Drawing.Point(20, 55)

    $radiobutton2.Size = New-Object System.Drawing.Size(150, 30)

    $radiobutton2.TabStop = $True

    $radiobutton2.Text = "Exchange 2013/2016/2019"

    $radioButton2.Checked = $false

    $radiobutton2.UseVisualStyleBackColor = $True

    #

    # radiobutton3

    #

    $radiobutton3.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation

    $radiobutton3.Location = New-Object System.Drawing.Point(20, 95)

    $radiobutton3.Size = New-Object System.Drawing.Size(150, 25)

    $radiobutton3.TabStop = $True

    $radiobutton3.Text = "Office365"

    $radiobutton3.Checked = $false

    $radiobutton3.UseVisualStyleBackColor = $True

    #"Go" button

    $buttonGo.DataBindings.DefaultDataSourceUpdateMode = 0

    $buttonGo.ForeColor = [System.Drawing.Color]::FromArgb(255, 0, 0, 0)

    $System_Drawing_Point = New-Object System.Drawing.Point

    $System_Drawing_Point.X = 170

    $System_Drawing_Point.Y = 20

    $buttonGo.Location = $System_Drawing_Point

    $buttonGo.Name = "Go"

    $System_Drawing_Size = New-Object System.Drawing.Size

    $System_Drawing_Size.Height = 25

    $System_Drawing_Size.Width = 50

    $buttonGo.Size = $System_Drawing_Size

    $buttonGo.Text = "Go"

    $buttonGo.UseVisualStyleBackColor = $True

    $buttonGo.add_Click( {

            if ($radiobutton1.Checked) { $Global:option = "Exchange2010_SP2" }

            elseif ($radiobutton2.Checked) { $Global:option = "Exchange2013_SP1" }

            elseif ($radiobutton3.Checked) { $Global:option = "Exchange2013_SP1" }

            $PremiseForm.Hide()

        })

    $PremiseForm.Controls.Add($buttonGo)

    #"Exit" button

    $buttonExit.DataBindings.DefaultDataSourceUpdateMode = 0

    $buttonExit.ForeColor = [System.Drawing.Color]::FromArgb(255, 0, 0, 0)

    $System_Drawing_Point = New-Object System.Drawing.Point

    $System_Drawing_Point.X = 170

    $System_Drawing_Point.Y = 50

    $buttonExit.Location = $System_Drawing_Point

    $buttonExit.Name = "Exit"

    $System_Drawing_Size = New-Object System.Drawing.Size

    $System_Drawing_Size.Height = 25

    $System_Drawing_Size.Width = 50

    $buttonExit.Size = $System_Drawing_Size

    $buttonExit.Text = "Exit"

    $buttonExit.UseVisualStyleBackColor = $True

    $buttonExit.add_Click( { $PremiseForm.Close() ; $buttonExit.Dispose() })

    $PremiseForm.Controls.Add($buttonExit)

    #Show Form

    $PremiseForm.Add_Shown( { $PremiseForm.Activate() })

    $PremiseForm.ShowDialog() | Out-Null

    #exit if 'Exit' button is pushed

    if ($buttonExit.IsDisposed) { return }

    #creating service object

    #Add-Type -Path $ModuleRoot\Bin\Microsoft.IdentityModel.Abstractions.dll

    #Install-Module Microsoft.Identity.Client -Scope CurrentUser -Force -WarningAction SilentlyContinue

    #Install-Module msal.ps -Scope CurrentUser -Force -WarningAction SilentlyContinue

    $ExchangeVersion = [Microsoft.Exchange.WebServices.Data.ExchangeVersion]::$option

    $service = New-Object Microsoft.Exchange.WebServices.Data.ExchangeService($ExchangeVersion)

    $service.ReturnClientRequestId = $true

    $service.UserAgent = "EwsGuiApp/$((Get-Module ewsgui).Version.ToString())"

    if ($radiobutton3.Checked) {

        $Token = Get-EWSToken -ClientID $ClientID -TenantID $TenantID -ClientSecret $ClientSecret

        $exchangeCredentials = New-Object Microsoft.Exchange.WebServices.Data.OAuthCredentials($Token.AccessToken)

        $Global:email = $Token.Account.Username

        $service.Url = New-Object Uri("https://outlook.office365.com/ews/exchange.asmx")

    }

    else {

        $psCred = Get-Credential -Message "Type your credentials or Administrator credentials"

        $Global:email = $psCred.UserName

        $exchangeCredentials = New-Object System.Net.NetworkCredential($psCred.UserName.ToString(), $psCred.GetNetworkCredential().password.ToString())

        # setting Autodiscover endpoint

        $service.EnableScpLookup = $True

        $service.AutodiscoverUrl($email, { $true })

    }

    $Service.Credentials = $exchangeCredentials

    return $service

}