PowerShell profile for changing window titles based on folder name and elevation status

powershell_profile.ps1

# This script overrides the default prompt behavior, and sets the title of the window to something like this:
#    (admin) PS: current_folder_name
#
# To apply to your profile, open a PowerShell window and type:
#
# Windows: notepad $PROFILE
# Mac/Linux: vi $PROFILE

function Test-Administrator  
{
    $user = [Security.Principal.WindowsIdentity]::GetCurrent();
    (New-Object Security.Principal.WindowsPrincipal $user).IsInRole([Security.Principal.WindowsBuiltinRole]::Administrator)  
}

# Overrides the default prompt behavior
function Prompt
{
    If(Test-Administrator) {
        $userName = 'admin'
    } else {
        $userName = $env:USERNAME
    }

    $location = Get-Item (Get-Location)
    $host.ui.RawUI.WindowTitle = "($userName) PS: $($location.Name)"
    "PS $($location.FullName)>"
}