' THIS SCRIPT WILL DELETE WINDOWS AND LOCAL USER TEMP FILES 
' DISREGARD: COOKIES, HISTORY, TEMPORARY INTERNET FILES
' COMPATIBLE WITH WINDOWS XP, VISTA AND WINDOWS 7
' 02-18-2011 - Original
' 04-01-2011 - Modified clear size to display in megabytes
' 07-05-2011 - Modified to delete folders that begin with { and end with } in C:\Users\admin\AppData\Local

' SET ECHO=TRUE TO DISPLAY FILE/FOLDER DELETION OUTPUT
Echo = True
DisplayTime = 30 'Seconds to auto close popup screen

' Create Objects
Set Shell =		CreateObject("WScript.Shell")
Set filesys =	CreateObject("Scripting.FileSystemObject")
Set objNet =	CreateObject("WScript.NetWork") 
set service =	GetObject ("winmgmts:")

'GET OS 
strComputer = "." 
strUserName = Shell.ExpandEnvironmentStrings("%username%")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")        
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") 
For Each objOperatingSystem in colOperatingSystems               
   OperatingSystem = objOperatingSystem.Caption
Next 

If Instr(OperatingSystem,"XP") <> 0 Then OS="Windows XP"
If Instr(OperatingSystem,"Vista") <> 0 Then OS="Windows Vista"
If Instr(OperatingSystem,"7") <> 0 Then OS="Windows 7"

'SET LOCAL PATH TO SPECIFIC OS
Select Case OS
  Case "Windows XP"
     LocalTempRoot="C:\Documents and Settings\"&strUserName&"\Local Settings"
  Case "Windows Vista"
     LocalTempRoot="C:\Users\"&strUserName&"\AppData\Local"
   Case "Windows 7"
     LocalTempRoot="C:\Users\"&strUserName&"\AppData\Local"  
   Case Else
	 Shell.Popup "This script will terminate",DisplayTime, "Unsupported OS",48
	 Wscript.Quit
End Select

On Error Resume Next
'DELETE LOCAL TEMP
FileCount=0
FolderCount=0
Size=0

'DELETE TEMP INSTALL FILES FROM ROOT (EMPTY FILES, CAHCHE,  WHAT ARE THESE FILES?)
Activity="Deleting cache files from " & LocalTempRoot & ":" & VBCRLF 

If filesys.FolderExists (LocalTempRoot) Then
   Set folder=filesys.getfolder(LocalTempRoot)
   	For Each subfolder in folder.subfolders
       If Left(subfolder.name,1) = "{" AND Right(subfolder.name,1) = "}" Then
	      FolderCount=FolderCount+1
	      Activity=Activity & VBTAB & "FOLDER : " & VBTAB & subfolder.name & VBTAB & FormatNumber(subfolder.size,0) & VBCRLF
	      Size= Size+subfolder.size
	      filesys.DeleteFolder subfolder, TRUE
       End IF
	Next
End If

Activity= Activity & LocalTempRoot & "\TEMP:" & VBCRLF 
If filesys.FolderExists (LocalTempRoot & "\TEMP") Then
	Set folder=filesys.getfolder(LocalTempRoot & "\TEMP")
	For Each file in folder.files
	  FileCount=FileCount+1
	  Size= Size+file.size
	  Activity=Activity & VBTAB & "FILE: " & VBTAB & file.name & VBTAB & FormatNumber(file.size,0) & VBCRLF
	  filesys.DeleteFile file, TRUE
	Next
	For Each subfolder in folder.subfolders
	  FolderCount=FolderCount+1
	  Activity=Activity & VBTAB & "FOLDER : " & VBTAB & subfolder.name & VBTAB & FormatNumber(subfolder.size,0) & VBCRLF
	  Size= Size+subfolder.size
	  filesys.DeleteFolder subfolder, TRUE
	Next
End If

'DELETE WINDOWS TEMP
WindowsTemp="C:\Windows\Temp"

If filesys.FolderExists (WindowsTemp) Then
    Activity=Activity & WindowsTemp & ":" & VBCRLF 
	Set folder=filesys.getfolder(WindowsTemp)
	For Each file in folder.files
	   Activity=Activity & VBTAB & "FILE: " & VBTAB & file.name & VBTAB & FormatNumber(file.size,0) & VBCRLF
	   FileCount=FileCount+1
	   Size= Size+file.size
	   filesys.DeleteFile file
	Next
	For Each subfolder in folder.subfolders
	   Select Case subfolder
		  Case "Cookies"
		  Case "History"
		  Case "Temporary Internet Files"
		  Case Else
		     FolderCount=FolderCount+1
		     Activity=Activity & VBTAB & "FOLDER : " & VBTAB & subfolder.name & VBTAB & FormatNumber(subfolder.size,0) & VBCRLF
			 Size= Size+subfolder.size
			 filesys.DeleteFolder subfolder
	   End Select
	Next
End If

If ECHO And (FileCount+FolderCounter < 60) Then
   Message = Activity & VBCRLF & "Total cleared : " & Round(FormatNumber(Size/1000000,0),0) & " MBs"
Else
   Message = "Files:" & VBTAB & FileCount & VBCRLF &_
             "Folders:" & VBTAB & FolderCount & VBCRLF & VBCRLF &_
			 "Total cleared : " & Round(FormatNumber(Size/1000000,0),0) & " MBs"
End If

Shell.Popup Message,DisplayTime, "Temp Files Cleared",48