Wednesday, December 16, 2009

clear cache and cookies in IE ..bit old school

call clearCookiesCatche("C:\DOCUME~1\%USERNAME%\Cookies")
call clearCookiesCatche("%temp%")
call clearCookiesCatche("C:\DOCUME~1\%USERNAME%\Locals~1\Tempor~1")
call clearCookiesCatche("C:\DOCUME~1\%USERNAME%\Locals~1\Tempor~1\Content.IE5")'for Xp Change according to ur OS


function clearCookiesCatche(path)
on Error Resume Next
set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set oFolder = fso.GetFolder(WshShell.ExpandEnvironmentStrings(path))
MsgBuffer=""
For Each oFile In oFolder.files
On Error Resume Next
fso.DeleteFile oFile
MsgBuffer =MsgBuffer& " "& oFile
Err.clear
Next
Wscript.Echo "Files Deletes ="&MsgBuffer

MsgBuffer=""
For Each oSubFolder In oFolder.SubFolders
On Error Resume Next
fso.DeleteFolder oSubFolder
MsgBuffer =MsgBuffer& " "& oSubFolder
Err.clear
Next
Wscript.Echo "Folder Deleted = "&MsgBuffer
set fso = nothing
set WshShell = nothing
set oFolder = nothing
Err.clear
end function

No comments:

Post a Comment