strScriptFullName = WScript.ScriptFullName
strScriptName = WScript.ScriptName

Set objFSO = CreateObject("Scripting.FileSystemObject")
outFile = strScriptFullName & ".proof" 

Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write strScriptName & vbCrLf
objFile.Close