Upgraded PowerShell Profile Prompt

Microsoft.PowerShell_profile.ps1

function prompt {
  if(([Security.Principal.WindowsPrincipal] [Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator")) {
    if($env:USERDNSDOMAIN) {
      Write-Host "$($env:USERNAME)@$($env:USERDNSDOMAIN)" -NoNewline -ForegroundColor 'Red'
      Write-Host "(ELEVATED)" -NoNewline -ForegroundColor 'White'
      Write-Host ":" -NoNewline -ForegroundColor 'DarkGray'
      Write-Host "[$($env:COMPUTERNAME)]" -NoNewline -ForegroundColor 'Yellow'
    } else {
      Write-Host "$($env:USERNAME)@$($env:COMPUTERNAME)" -NoNewline -ForegroundColor 'Red'
      Write-Host "(ELEVATED)" -NoNewline -ForegroundColor 'White'
    }
  } else {
    if($env:USERDNSDOMAIN) {
      Write-Host "$($env:USERNAME)@$($env:USERDNSDOMAIN)" -NoNewline -ForegroundColor 'Yellow'
      Write-Host ":" -NoNewline -ForegroundColor 'DarkGray'
      Write-Host "[$($env:COMPUTERNAME)]" -NoNewline -ForegroundColor 'Yellow'
    } else {
      Write-Host "$($env:USERNAME)@$($env:COMPUTERNAME)" -NoNewline -ForegroundColor 'Yellow'
    }
  }
  Write-Host ":" -NoNewline -ForegroundColor 'DarkGray'
  Write-Host (Get-Date -Format G) -ForegroundColor 'Yellow'
  Write-Host "[" -NoNewline -ForegroundColor Red
  $CurrentPath = $ExecutionContext.SessionState.Path.CurrentLocation.Path
  $CurrentPath = $CurrentPath.Replace($HOME, '~')
  Write-Host $CurrentPath -NoNewline -ForegroundColor 'Green'
  Write-Host "]" -ForegroundColor 'Red'
  return "$('PS >' * ($nestedPromptLevel + 1)) "
}