PrivateFunctions/New-Context.ps1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Function New-Context
{
  [OutputType([DqConnectionContext])]
  [CmdletBinding()]
  Param(
    [Parameter(Mandatory=$True)]
    [ValidateNotNull()]
    [DqConnection] $DqConnection,

    [Parameter(Mandatory=$False)]
    [System.Management.Automation.PSCredential] $Credential = $Null
  )

  Try
  {
    Write-Verbose "Authenticeren met de Secure Token Service van DQ Monitor..."
    If ($Credential)
    {
      $StsResponse = Invoke-WebRequest -UseBasicParsing -Uri $DqConnection.StsUrl -Credential $Credential -Method Get -ErrorAction Ignore
    }
    Else 
    {
      $StsResponse = Invoke-WebRequest -UseBasicParsing -Uri $DqConnection.StsUrl -UseDefaultCredentials -Method Get -ErrorAction Ignore
    }

    $JsonObject = $StsResponse.Content | ConvertFrom-Json 
    $Token = $JsonObject.id_token
    $TokenType = $JsonObject.token_type
    
    Return [DqConnectionContext]::new($DqConnection, $TokenType, $Token);
  }
  Catch 
  {
    $ErrorMessage = @"
Fout opgetreden bij het opvragen van een token bij Secure Token Service (STS) van DQ Monitor. Foutmelding:
$($_.Exception.Message)
"@

    Write-Error $ErrorMessage;
    Return;
  }
}