Option Explicit

Dim FSO
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Dim TempFolder
Set TempFolder = FSO.GetSpecialFolder(2)	' 2 = TEMP

On Error Resume Next

Dim Files, File
Set Files = TempFolder.Files
For Each File In Files
	File.Attributes = 0
	File.Delete
Next

Set FSO = Nothing