To delete temporary files, temporary internet files and cookies

Function fnDelete_TempFiles_Cookies()
   'Delete temporary files , temporary internet files and cookies
   On Error Resume Next
'Set up environment
Set WSHShell = CreateObject("WScript.Shell")
Set fso = createobject("Scripting.FileSystemObject")
userProfile = WSHShell.ExpandEnvironmentStrings("%userprofile%")
Windir = WSHShell.ExpandEnvironmentStrings("%windir%")
    'start deleting files in Temp folder
Set oFolder1 = fso.GetFolder(userProfile & "\Local Settings\Temp\")
For Each oFile In oFolder1.files
oFile.Delete True
Next
'Delete folders and subfolders
Set colSubfolders1 = oFolder1.Subfolders
On Error Resume Next
For Each oSubfolder in colSubfolders1
fso.DeleteFolder(oSubFolder), True
Next
'deleting temporary internet files
Set oFolder2 = fso.GetFolder(userProfile & "\Local Settings\Temporary Internet Files\")
For Each oFile In oFolder2.files
oFile.Delete True
Next
Set colSubfolders2 = oFolder2.SubFolders
For Each oSubfolder in colSubfolders2
fso.DeleteFolder(oSubFolder)
Next
'delete Files and folders in System windows directory
Set oFolder3 = fso.GetFolder(Windir & "\Temp\")
For Each oFile In oFolder3.files
oFile.Delete True
Next
Set colSubfolders3 = oFolder1.Subfolders
For Each oSubfolder in colSubfolders3
fso.DeleteFolder(oSubFolder)
Next
'deleting Cookies
Set oFolder4 = fso.GetFolder(userProfile & "\Cookies\")
For Each oFile In oFolder4.files
oFile.Delete True
Next
Set colSubfolders4 = oFolder4.SubFolders
For Each oSubfolder in colSubfolders4
fso.DeleteFolder(oSubFolder)
Next
Call DoneResult("Temporary files, temporary internet files and cookies are deleted successfully","Temporary files, temporary internet files and cookies are deleted successfully")
'Clear memory
Set fso = Nothing
Set oFolder1 = Nothing
Set oFolder2 = Nothing
Set oFolder3 = Nothing
Set oFolder4 = Nothing
Set oSubFolder1 = Nothing
Set oSubFolder2 = Nothing
Set oSubFolder3 = Nothing
Set oSubFolder4 = Nothing
Set colSubfolders1 = Nothing
Set colSubfolders2 = Nothing
Set colSubfolders3 = Nothing
Set colSubfolders4 = Nothing
Set oFile = Nothing
Set userProfile = Nothing
Set Windir = Nothing
'End Script
WScript.Quit
fnDelete_TempFiles_Cookies = True
End Function