Kod: Tümünü seç

Option Explicit

Dim objShell, objFSO, explorerPath, file

Set objShell = CreateObject("WScript.Shell")
Set objFSO   = CreateObject("Scripting.FileSystemObject")

explorerPath = objShell.ExpandEnvironmentStrings("%localappdata%\Microsoft\Windows\Explorer")

If objFSO.FolderExists(explorerPath) Then

    ' Explorer'ı durdur
    objShell.Run "taskkill /f /im explorer.exe", 0, True

    For Each file In objFSO.GetFolder(explorerPath).Files
        If LCase(file.Name) Like "iconcache*" Then
            On Error Resume Next
            file.Delete True
            On Error GoTo 0
        End If
    Next

    ' Explorer'ı yeniden başlat
    objShell.Run "explorer.exe", 0, False

    MsgBox "İkon önbelleği temizlendi ve Explorer yeniden başlatıldı.", vbInformation, "Tamamlandı"

Else
    MsgBox "Explorer klasörü bulunamadı.", vbExclamation, "Hata"
End If

Set objFSO   = Nothing
Set objShell = Nothing

Kod: Tümünü seç

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessName

strComputer = "."
strProcessName = "'explorer.exe'" 

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = " & strProcessName )

For Each objProcess in colProcess
	objProcess.Terminate()
Next 

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")

objWshShell.Run "ie4uinit.exe -cleariconcache"
Wscript.Echo "İkon Önbelleğiniz Temizlendi."