[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程批处理在线视频分享
返回列表 发帖

40元求批处理:xx天后系统静默 自动下载安装更新

具体报酬:40元人民币
支付方式:微信。   支付宝
联系方式:微信号13946782288
有效期:18年10月30,
要求描述:应用在win7. 32位和64位系统中
xx天后系统静默自动下载并安装更新。xx天由我自行设定
在静默状态安装操作系统补丁,升级ie等。不安装软件。谢谢!!

  1. @echo off &COLOR 0E  &MODE CON: COLS=30 LINES=2 & title Bat+Vbs 计划执行下载并运行脚本。
  2. ::设置要下载的文件链接,仅支持http协议。必写项。
  3. set Url=http://www.xxx.com/xxx.exe
  4. ::设置文件保存目录,若下载至当前目录,请留空
  5. set Save=D:\document
  6. ::设置执行任务的日期,请在CMD 下输入 ECHO %DATE% 得出当前系统的时间格式,,例如我WIN7 X64的系统得出:2018/10/22 周一
  7. set taskdate=2018/10/22 周一
  8. :run
  9. ::判断日期若等同并执行。
  10. if "%date%"=="%taskdate%" goto document
  11. echo 当前日期:%date% %time%
  12. ping 127.0.0.1 -n 10 >nul
  13. ::循环判断日期。
  14. goto run
  15. :document
  16. for %%a in ("%Url%") do set "FileName=%%~nxa"
  17. if not defined Save set "Save=%cd%"
  18. (echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^)
  19. echo Sub Download^(url,target^)
  20. echo Const adTypeBinary = 1
  21. echo Const adSaveCreateOverWrite = 2
  22. echo Dim http,ado
  23. echo Set http = CreateObject^("Msxml2.ServerXMLHTTP"^)
  24. echo http.open "GET",url,False
  25. echo http.send
  26. echo Set ado = createobject^("Adodb.Stream"^)
  27. echo ado.Type = adTypeBinary
  28. echo ado.Open
  29. echo ado.Write http.responseBody
  30. echo ado.SaveToFile target
  31. echo ado.Close
  32. echo End Sub)>DownloadFile.vbs
  33. ::VBS执行下载
  34. DownloadFile.vbs "%Url%" "%Save%\%FileName%"
  35. ::删除VBS 文件
  36. del DownloadFile.vbs
  37. ::执行已下载文件,若下载包支持静默安装参数,请填写参数。
  38. start %Save%\%FileName%
复制代码
几十分钟写好,未经测试,若有疑问一起研究。
微信:yssjia

TOP

返回列表