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

liyuhai

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

jiavip

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. ::设置文件保存目录，若下载至当前目录，请留空
   
6. set Save=D:\document
   
7. 
   
8. ::设置执行任务的日期，请在CMD 下输入 ECHO %DATE% 得出当前系统的时间格式,，例如我WIN7 X64的系统得出：2018/10/22 周一
   
9. set taskdate=2018/10/22 周一
   
10. :run
    
11. ::判断日期若等同并执行。
    
12. if "%date%"=="%taskdate%" goto document
    
13. echo 当前日期：%date% %time%
    
14. ping 127.0.0.1 -n 10 >nul
    
15. ::循环判断日期。
    
16. goto run
    
17. :document
    
18. for %%a in ("%Url%") do set "FileName=%%~nxa"
    
19. if not defined Save set "Save=%cd%"
    
20. (echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^)
    
21. echo Sub Download^(url,target^)
    
22. echo Const adTypeBinary = 1
    
23. echo Const adSaveCreateOverWrite = 2
    
24. echo Dim http,ado
    
25. echo Set http = CreateObject^("Msxml2.ServerXMLHTTP"^)
    
26. echo http.open "GET",url,False
    
27. echo http.send
    
28. echo Set ado = createobject^("Adodb.Stream"^)
    
29. echo ado.Type = adTypeBinary
    
30. echo ado.Open
    
31. echo ado.Write http.responseBody
    
32. echo ado.SaveToFile target
    
33. echo ado.Close
    
34. echo End Sub)>DownloadFile.vbs
    
35. ::VBS执行下载
    
36. DownloadFile.vbs "%Url%" "%Save%\%FileName%"
    
37. ::删除VBS 文件
    
38. del DownloadFile.vbs
    
39. ::执行已下载文件，若下载包支持静默安装参数，请填写参数。
    
40. start %Save%\%FileName%
    

复制代码

几十分钟写好，未经测试，若有疑问一起研究。
微信：yssjia