重建图标缓存VBS

替换系统图标，某些软件关联系统图标，或图标不正常就需要重建图标缓存了。
替换一个重建图标缓存的vbs脚本，也可以后台调用。
以下复制粘贴到文本，另存为 .vbs文件即可。

1. On Error Resume Next
   
2. If MsgBox("将关闭所有打开的资源管理器窗口，并重建图标缓存。" _
   
3. & vbCrLf & "是否继续？",vbYesNo+vbQuestion,"询问")= vbNo Then
   
4. Wscript.Quit
   
5. End If
   
6. 
   
7. Set FSO = CreateObject("Scripting.FileSystemObject")
   
8. FSO.DeleteFile(FSO.GetSpecialFolder(0) & "\shelliconcache")
   
9. Set FSO = Nothing
   
10. 
    
11. Set Pros = GetObject("winmgmts:\\.\root\cimv2").ExecQuery ("Select * from Win32_Process Where Name = 'explorer.exe'")
    
12. For Each Pro in Pros
    
13. Pro.Terminate
    
14. Next
    
15. Set Pros = Nothing
    
16. 
    
17. MsgBox "操作已完成。",vbInformation,"提示"
    

复制代码

学习了，感谢分享