任务栏无任务显示的问题

碰到一个任务栏无任何任务的情况，G了一下，找到以下解决方案。另存为vbs文件，执行即可。
至于产生这种情况的原因，估计用那用电脑的小丫头也不知道。

'xp_taskbar_desktop_fixall.vbs  -  Repairs the Taskbar when minimized programs don't show. 
' ? Kelly Theriot and Doug Knox  -   8 / 22 / 2003  
'翻译：Smallfrogs。翻译内容：将英文提示改为简体中文 
'来源：Microsoft Windows XP NewsGroup

Set WSHShell  =  WScript.CreateObject( " WScript.Shell " ) 
Message  =   " 本脚本用于修复Windows XP中当最小化程序时，无法在任务栏显示图标的问题。 " &  vbCR  &  vbCR 
Message  =  Message  &   " 为了正常工作，本脚本将关闭和重启 Windows Explorer 外壳，这个操作不会损坏你的系统。 "   &  vbCR  &  vbCR 
Message  =  Message  &   " 请关闭所有杀毒软件的实时监控！并保存所有打开的文件。 " &  vbCR  &  vbCR 
Message  =  Message  &   " 是否继续？ "

X  =  MsgBox(Message, vbYesNo + vbExclamation,  " 注意 " )

If  X  =   6  Then

On Error Resume Next

WshShell.RegDelete  " HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2\ "  
WshShell.RegDelete  " HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamsMRU\ "  
WshShell.RegDelete  " HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop\ "

WshShell.RegDelete  " HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\BarSize "

P1  =   " HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ "

WshShell.RegWrite p1  &   " NoBandCustomize " ,  0 ,  " REG_DWORD "  
WshShell.RegWrite p1  &   " NoMovingBands " ,  0 ,  " REG_DWORD "  
WshShell.RegWrite p1  &   " NoCloseDragDropBands " ,  0 ,  " REG_DWORD "  
WshShell.RegWrite p1  &   " NoSetTaskbar " ,  0 ,  " REG_DWORD "  
WshShell.RegWrite p1  &   " NoToolbarsOnTaskbar " ,  0 ,  " REG_DWORD "  
WshShell.RegWrite p1  &   " NoSaveSettings " , 0 , " REG_DWORD "  
WshShell.RegWrite p1  &   " NoToolbarsOnTaskbar " ,  0 ,  " REG_DWORD "  
WshShell.RegWrite p1  &   " NoSetTaskbar " , 0 , " REG_DWORD "  
WshShell.RegWrite p1  &   " NoActiveDesktop " , 0 , " REG_DWORD "  
WshShell.RegWrite p1  &   " ClassicShell " , 0 , " REG_DWORD "

p1  =   " HKCU\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ "

WshShell.RegWrite p1  &   " NoCloseDragDropBands " ,  0 ,  " REG_DWORD "  
WshShell.RegDelete p1  &   " NoMovingBands "

p1  =   " HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell "

WshShell.RegWrite p1,  " explorer.exe " ,  " REG_SZ "

p1  =   " HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\ "  
WshShell.RegDelete p1  &   " BarSize "  
WshShell.RegWrite p1,  " Media Band " ,  " REG_SZ "

On Error Goto  0

For  Each  Process   in  GetObject( " winmgmts: " ). _ 
ExecQuery ( " select * from Win32_Process where name='explorer.exe' " ) 
Process .terminate( 0 ) 
Next

MsgBox  " 完成！ "   &  vbcr  &  vbcr  &   " ?Kelly Theriot and Doug Knox " ,  4096 ,  " 完成 "

Else

MsgBox  " 没有对你的系统进行任何改变。 "   &  vbcr  &  vbcr  &   " ?Kelly Theriot and Doug Knox " ,  4096 ,  " 用户取消了 "

End   If