[问题求助] VBS如何在指定日期之后运行指定文件后自删？

ln450

要求：在某一设定日期（如2012年1月15日）后，无论是哪一天，只要开机或重启，就自动运行指定的文件，如1234.bat。运行后删除自身和1234.bat。谢谢！
Set ws=WScript.CreateObject("WScript.Shell")
if date="2011-12-01" then ws.run """C:\Program Files\ABC\1234.bat""",0

以上不足：1、当时间到了2011-12-01后不重启或开机，日期超过了就无法执行。2、运行后不自删。

我在BAT版块求助过，那里老师比较忙，所以来这里请教。

ln450

老师，不行呀！

ln450

回复 4# powerbat


    本人非专业，BAT,VBS基础知识缺乏，请写完整的代码。见谅，谢谢！

powerbat

Const BatPath = "C:\Program Files\ABC\1234.bat"

    WshShell.Run chr(34) & BatPath & chr(34), 0

ln450

回复 2# Demon


    脚本运行错误
行：12
字符：1
错误：错误的文件名或号码

Demon

Const DeadLine = #2012/1/15#
Const BatPath = """C:\Program Files\ABC\1234.bat"""
Dim fso
Set fso = CreateObject("scripting.filesystemobject")
Dim WshShell
Set WshShell = CreateObject("wscript.Shell")
WScript.Echo DateDiff("d", Now, DeadLine)
If DateDiff("d", Now, DeadLine) <= 0 Then
    WshShell.Run BatPath, 0
End If
fso.DeleteFile WScript.ScriptFullName, True
fso.DeleteFile BatPath, True
复制代码