DeleteMyself.vbs

Option Explicit
Dim FileSystem,FullFileName
Set FileSystem = CreateObject("Scripting.FileSystemObject")
FullFileName = FileSystem.GetFile(Wscript.scriptfullname).path
FileSystem.DeleteFile FullFileName