Yazılım Adası

Kod: Tümünü seç

Option Explicit

Dim objShell, objFSO, strIconCachePath

' Shell nesnesini oluştur
Set objShell = CreateObject("WScript.Shell")

' İkon önbelleği dosyasının yolu
strIconCachePath = objShell.ExpandEnvironmentStrings("%localappdata%\Microsoft\Windows\Explorer\iconcache*")

' FileSystemObject nesnesini oluştur
Set objFSO = CreateObject("Scripting.FileSystemObject")

' İkon önbelleği dosyalarını sil
If objFSO.FolderExists(objShell.ExpandEnvironmentStrings("%localappdata%\Microsoft\Windows\Explorer")) Then
    Dim file
    For Each file In objFSO.GetFolder(objShell.ExpandEnvironmentStrings("%localappdata%\Microsoft\Windows\Explorer")).Files
        If InStr(file.Name, "iconcache") > 0 Then
            file.Delete
        End If
    Next
End If

' Bilgilendirme mesajı
MsgBox "İkon önbelleği temizlendi. Oturumunuz kapatılacak.", vbInformation, "Tamamlandı"

' Kullanıcı oturumunu kapat
objShell.Run "shutdown -l", 0, False

' Temizleme işlemi tamamlandı
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."