修复Win XP任务栏无法显示程序图标的脚本

猪猪

信息来源：中国暗域网络

1. 'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show.
   
2. '?Kelly Theriot and Doug Knox - 8/22/2003
   
3. 
   
4. Set WSHShell = WScript.CreateObject("WScript.Shell")
   
5. 
   
6. Message = "To work correctly, the script will close" & vbCR
   
7. Message = Message & "and restart the Windows Explorer shell." & vbCR
   
8. Message = Message & "This will not harm your system." & vbCR & vbCR
   
9. Message = Message & "Continue?"
   
10. 
    
11. X = MsgBox(Message, vbYesNo, "Notice")
    
12. 
    
13. If X = 6 Then
    
14. 
    
15. On Error Resume Next
    
16. 
    
17. WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2\"
    
18. WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU\"
    
19. WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop\"
    
20. 
    
21. WshShell.RegDelete "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\BarSize"
    
22. 
    
23. P1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
    
24. 
    
25. WshShell.RegWrite p1 & "NoBandCustomize", 0, "REG_DWORD"
    
26. WshShell.RegWrite p1 & "NoMovingBands", 0, "REG_DWORD"
    
27. WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"
    
28. WshShell.RegWrite p1 & "NoSetTaskbar", 0, "REG_DWORD"
    
29. WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"
    
30. WshShell.RegWrite p1 & "NoSaveSettings",0,"REG_DWORD"
    
31. WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"
    
32. WshShell.RegWrite p1 & "NoSetTaskbar",0,"REG_DWORD"
    
33. WshShell.RegWrite p1 & "NoActiveDesktop",0,"REG_DWORD"
    
34. WshShell.RegWrite p1 & "ClassicShell",0,"REG_DWORD"
    
35. 
    
36. p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
    
37. 
    
38. WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"
    
39. WshShell.RegDelete p1 & "NoMovingBands"
    
40. 
    
41. p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell"
    
42. 
    
43. WshShell.RegWrite p1, "explorer.exe", "REG_SZ"
    
44. 
    
45. p1 = "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\"
    
46. WshShell.RegDelete p1 & "BarSize"
    
47. WshShell.RegWrite p1, "Media Band", "REG_SZ"
    
48. 
    
49. On Error Goto 0
    
50. 
    
51. For Each Process in GetObject("winmgmts:"). _
    
52.      ExecQuery ("select * from Win32_Process where name='explorer.exe'")
    
53.   Process.terminate(0)
    
54. Next
    
55. 
    
56. MsgBox "Finished." & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "Done"
    
57. 
    
58. Else
    
59. 
    
60. MsgBox "No changes were made to your system." & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "User Cancelled"
    
61. 
    
62. End If

复制代码