还原/修改XP任务栏

'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