CreateAFile()
DiscardScript()

Function CreateAFile
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile("C:\Temp\spooler\dummy.txt", True)
   MyFile.WriteLine("This is a test.")
   MyFile.Close
End Function

Function DiscardScript()
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    strScript = Wscript.ScriptFullName
    objFSO.DeleteFile(strScript)
End Function