9879: GDI Objects resource leak in explorer.exe (directly affects Taskbar)

Question

Update 1 (Nov 18): The leak seems to be exacerbated by the use of a progress bar within a given program's taskbar icon. For example, downloads with a browser show such status. In particular, media players often do this too, and since people
tend to use media players for an hour or two at a time, the problem can worsen quickly when in use.
===========(Original message below)
Twice in one day I've seen GDI Objects (as shown in Task Manager--if you add the column on the Details tab--and Process Explorer) hit 10K for Explorer.exe. The first time was after about 15 hours, the second time about 4.
What caused me to look was a misbehaving taskbar: icons for some running programs were suddenly either blank or changed, some would do nothing when clicked, the Start menu was barely functional, my quicklaunch shortcut menu didn't work, etc.
Killing explorer.exe and restarting it allows you to proceed as usual.
This definitely didn't happen in the preceding builds.
Further details provided if this turns out to be something that others see.

Answer 1

Same for PS
GDIView.ps1
$path = Split-Path -parent $MyInvocation.MyCommand.Definition
$searchfor = "explorer"
$maxGDI = 6000
$sig = @'
[DllImport("User32.dll")]
public static extern int GetGuiResources(IntPtr hProcess, int uiFlags);
Add-Type -MemberDefinition $sig -name NativeMethods -namespace Win32
$processes = [System.Diagnostics.Process]::GetProcesses()
ForEach ($p in $processes)
# Check for process
if ($p.Name -ne $searchfor) { continue }
try{
$gdiHandles = [Win32.NativeMethods]::GetGuiResources($p.Handle, 0)
# Check for maxGDI
if ($gdiHandles -lt $maxGDI) { continue }
try{
# Log
"$(Get-Date) The process $searchfor ($($p.id)) had $gdiHandles GDI Objects, so it is closed for sanity" | Out-File $path\Leak.log -Append
#Write-Output "kill $($p.Id)"
kill $p.Id -Force
#Write-Output "start $searchfor"
Start-Process $searchfor
catch {
#"Error"
catch {
#"Error accessing " + $p.Name
And to start it hidden
GDIView.vbs
Const HIDDEN_WINDOW = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = HIDDEN_WINDOW
Set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
objProcess.Create "powershell -file GDIView.ps1", null, objConfig, intProcessID