Free A Script That Deletes All Temp Files (its Clean I Checked The Source Before)

Save as .vbs dubble click valla fast no scan it works in less then a second

(from the script)
COMMENT: this script delete all user and system temporary files and folder
also delete Internet Temporary files

i have not had any bad repercussions from using this going on MONTH

TO ADMINS -hope this is cool

--------------------------------------------------------------------------------------------------------------------------------

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 2009
'
' NAME: Delete Temp Files
' (SCRIP IS CLEAN CHECKED BY) Am a DillWeed biririri bomboRombo bomboRombo
'
' DATE : 9/21/2011
'
' COMMENT: this script delete all user and system temporary files and folder
' also delete Internet Temporary files
'==========================================================================
Option Explicit
Dim objShell
Dim objSysEnv,objUserEnv
Dim strUserTemp
Dim strSysTemp
Dim userProfile,TempInternetFiles
Dim OSType
Set objShell=CreateObject("WScript.Shell")
Set objSysEnv=objShell.Environment("System")
Set objUserEnv=objShell.Environment("User")
strUserTemp= objShell.ExpandEnvironmentStrings(objUserEnv("TEMP"))
strSysTemp= objShell.ExpandEnvironmentStrings(objSysEnv("TEMP"))
userProfile = objShell.ExpandEnvironmentStrings("%userprofile%")
DeleteTemp strUserTemp 'delete user temp files
DeleteTemp strSysTemp 'delete system temp files
'delete Internet Temp files
'the Internet Temp files path is diffrent according to OS Type
OSType=FindOSType
If OSType="Windows 7" Or OSType="Windows Vista" Then
TempInternetFiles=userProfile & "\AppData\Local\Microsoft\Windows\Temporary Internet Files"
ElseIf OSType="Windows 2003" Or OSType="Windows XP" Then
TempInternetFiles=userProfile & "\Local Settings\Temporary Internet Files"
End If
DeleteTemp TempInternetFiles
'this is also to delete Content.IE5 in Internet Temp files
TempInternetFiles=TempInternetFiles & "\Content.IE5"
DeleteTemp TempInternetFiles
WScript.Quit
Sub DeleteTemp (strTempPath)
On Error Resume Next
Dim objFSO
Dim objFolder,objDir
Dim objFile
Dim i
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFolder=objFSO.GetFolder(strTempPath)
'delete all files

 

On which versions of Windows has this script been tested?

 

windows 7 home premium sp-1