Delete all Temps in all Profiles

This VBScript allows you to clear all temps in all user profiles.

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users")
Set colSubfolders = objFolder.Subfolders

On Error Resume Next

For Each objSubfolder in colSubfolders
'    WScript.Echo "for loop 1"
WScript.Echo objSubfolder.Name
Set TempFolder = objFSO.getFolder("c:\Users\" & objSubfolder.Name & "\AppData\Local\Temp")
For Each objFile In TempFolder.Files
objFile.Delete
'WScript.Echo objFile.Path
Next
Next

For Each objSubfolder In colSubfolders
Set TempFolder2 = objFSO.getFolder("c:\Users\" & objSubfolder.Name & "\AppData\Local\Temp")
For Each objfolder In tempfolder2.SubFolders
objfso.DeleteFolder objFolder
Next
Next