set objFSO = createobject("scripting.filesystemobject")

strSkip = objFSO.GetAbsolutePathName(".") & "\SkipNext"

if objFSO.fileexists(strSkip) then
    objfso.deletefile strSkip, true
    msgbox "Skip Cancelled",vbokonly,"Alarm Clock"
    wscript.quit
else
    objfso.createtextfile strSkip
    msgbox "Next Alarm Skipped",vbokonly,"Alarm Clock"
end if

msgbox "Ended"