Invoke-PSADSession.ps1

function Invoke-PSADSession {
    [CmdletBinding(DefaultParameterSetName="PasswordAuth")]
    param(
        [Parameter(ParameterSetName="PasswordAuth", Mandatory=$true)] 
        [System.Management.Automation.PSCredential]$Credential,
        [Parameter(Mandatory=$true)]
        [string]$ComputerName,
        [bool]$Interactive = $true,
        [Parameter(ParameterSetName="PassTheTicket")]
        [switch]$PTT
    )

    $ad = (Import-Module ActiveDirectory -PassThru -AsCustomObject).Clone()

    $s = if ($PTT) {
        New-PSSession -ComputerName $ComputerName -Authentication Kerberos
    } else {
        New-PSSession -ComputerName $ComputerName -Credential $Credential
    }

    Invoke-Command -Session $s -ScriptBlock {
        Import-Module $Using:ad -Global
    }

    if ($Interactive) {
        Enter-PSSession $s
    } else {
        return $s
    }
}