ShowHighCpuInternetExplorerProcess.ps1

$code = @'
    [DllImport("user32.dll")]
    public static extern IntPtr GetWindowThreadProcessId(IntPtr hWnd, out int ProcessId);
'@
Add-Type $code -Name Utils -Namespace Win32

Function GetProcessIdByHWND($whnd) {
    [IntPtr]$result = [IntPtr]::Zero
    [Win32.Utils]::GetWindowThreadProcessId([Int32]$whnd, [ref]$result)
    
    return $result
}

$shell = New-Object -ComObject Shell.Application
$ie_list = $shell.Windows() | Select-Object HWND, LocationName, LocationURL, @{Name = "Id"; Expression = { @(GetProcessIdByHWND($_.HWND)) } }
Get-Process -IncludeUserName | Where-Object { $_.CPU -gt 90 -and $_.ProcessName -eq "iexplore" } | ForEach-Object {
    $process = $_
    Write-Output "CPU:$($_.CPU)`t$($_.UserName) ($($_.Id))"
    Write-Output ------

    $ie_list | Where-Object { $_.Id -eq $process.Id } | ForEach-Object {
        Write-Output "$($_.LocationName) ($($_.LocationURL))"
    }
    Write-Output ""
}