Private/Get-AzureRmOldCredential.ps1

      <#
      .SYNOPSIS
          Helper to get Credentials based on connect into Azure when AzureRm is installed
      .DESCRIPTION
          Helper to get Credentials based on connect into Azure when AzureRm is installed
      #>

      function Get-AzureRmOldCredential{
        [CmdLetBinding()]
        [Outputtype("PSCredential")]
        $ErrorActionPreference = 'Stop'
        Write-Debug '-- begin - Get-AzureRmOldCredential --'
        
        if (-not (Get-Module AzureRm.Profile)) {
            Import-Module AzureRm.Profile
        }
            
        # AzureRm.Profile < v3.0
        $azureRmProfile = [Microsoft.WindowsAzure.Commands.Common.AzureRmProfileProvider]::Instance.Profile

        $currentAzureContext = Get-AzureRmContext
    
        $profileClient = New-Object Microsoft.Azure.Commands.ResourceManager.Common.RMProfileClient($azureRmProfile)
    
        Write-Debug ("Getting access token for tenant" + $currentAzureContext.Tenant.TenantId)
        $token = $profileClient.AcquireAccessToken($currentAzureContext.Tenant.TenantId)
    
        $securePat = ConvertTo-SecureString -String $token.UserId -AsPlainText -Force
        $Credential = New-Object System.Management.Automation.PSCredential($token.AccessToken, $securePat)
    
        Write-Debug '-- end - Get-AzureRmOldCredential --'
        return $Credential
    }