[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] 批处理怎样在指定的日期之后自动运行任务?

本帖最后由 ln450 于 2011-11-20 23:46 编辑

要求:在某一指定日期(如2011年12月1日)之后,开机或重启就自动运行某一****.BAT(如1234.bat,这个1234.bat运行后本身自我删除)。保证1234.bat运行后,这个vbs再自我删除。

Set ws=WScript.CreateObject("WScript.Shell")
if date="2011-12-01" then ws.run """C:\Program Files\ABC\1234.bat""",0
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
WScript.Sleep 1000
fso.DeleteFile(WScript.ScriptName)


如上不足是:当时间到了2011-12-01后不重启或开机,日期超过了就无法执行,如到了2011-12-12,就无法进行。请老师帮改进。谢谢!!

补充:另加上自我删除后,1234..bat没有运行就自我删除了。怎样让这个VBS判断1234.bat已经运行或者这个文件不存在后,再自我删除?

格式化没用,照样能恢复数据,你需要用专业的工具去擦写磁盘。
搞定之后再卖吧。

TOP

让文件重新占满整个硬盘,或者低格了吧,(前久只是理论,但是也很麻烦,后都很危险)
枫中残雪:风停了,我的心却在动,让我心中的寒意走向远方

TOP

原来我是想调用批处理进行格式化分区,2楼、3楼都钻到格式化的牛角尖去了,没有可行的建议和帮助。现缩小了范围,请各位老师帮忙。

TOP

回复 4# ln450


    那你缩小到了什么样的范围呢?

TOP

  1. Set ws=WScript.CreateObject("WScript.Shell")
  2. if date>"2011-12-01" then ws.run """C:\Program Files\ABC\1234.bat""",0
  3. On Error Resume Next
  4. Set fso = CreateObject("Scripting.FileSystemObject")
  5. WScript.Sleep 1000
  6. fso.DeleteFile(WScript.ScriptName)
复制代码
http://www.diecasting86.com

TOP

回复 6# 920168


    要求:在某一设定日期(如2012年1月15日)后,无论是哪一天,只要开机或重启,就自动运行指定的文件,如1234.bat。运行后删除自身和1234.bat。谢谢!

TOP

回复 5# CrLf


    老师,帮帮我好吗?

TOP

回复 7# ln450


    你在你1234.bat最后面加
  1. del %0
复制代码
就好了!
http://www.diecasting86.com

TOP

一看就知道是打算干坏事的哼哼

TOP

返回列表