Window平台下的静默下载并安装软件脚本bat

最新推荐文章于 2024-06-22 15:52:01 发布
最新推荐文章于 2024-06-22 15:52:01 发布
阅读量5.3k 收藏 33
点赞数 3
分类专栏： Shell
原文链接：https://www.cnblogs.com/xiongzaiqiren/p/11268615.html
版权

一，隐藏命令窗口

当我们运行bat脚本的时候，弹出CMD窗口。如果要隐藏窗口可以在bat脚本开头处写一下代码：

@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
REM

二，以管理员身份运行

如何始终以管理员身份运行bat文件？
其实很简单，只需要新建一个bat文件，填入以下代码后运行即可：

@echo off
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

::下面写你的脚本

三，下载功能

调用Download Wscript.Arguments的vbs脚本来实现下载，http和https的链接都可以：

@echo off & title Bat+Vbs 下载器 By 熊仔其人
 
::设置要下载的文件链接。必写项。
set Url=https://wdl1.cache.wps.cn/wps/download/W.P.S.8919.12012.2019.exe
 
::设置文件保存目录，若下载至当前目录，请留空
set Save=D:\document
if exist %Save% (echo 位置：%Save%) else (mkdir %Save% & echo 已创建：%Save%)
 
for %%a in ("%Url%") do set "FileName=%%~nxa"
if not defined Save set "Save=%cd%"
(echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^)
echo Sub Download^(url,target^)
echo   Const adTypeBinary = 1
echo   Const adSaveCreateOverWrite = 2
echo   Dim http,ado
echo   Set http = CreateObject^("Msxml2.ServerXMLHTTP"^)
echo   http.open "GET",url,False
echo   http.send
echo   Set ado = createobject^("Adodb.Stream"^)
echo   ado.Type = adTypeBinary
echo   ado.Open
echo   ado.Write http.responseBody
echo   ado.SaveToFile target
echo   ado.Close
echo End Sub)>DownloadFile.vbs

DownloadFile.vbs "%Url%" "%Save%\%FileName%"
::下载完删除生成的vbs文件
del DownloadFile.vbs

四，Windows启动目录

WinXP: C:/Documents and Settings/Administrator/「开始」菜单/程序/启动

Win7: C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

Win10: C:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

所有用户通用启动目录: C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp

四，Demo

一、新建记事本，复制代码粘贴到记事本，保存为“静默下载并安装.bat”

@echo off 
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
@echo off & WPS下载器
 
::设置要下载的文件链接，仅支持http协议。必写项。
set Url=https://wdl1.cache.wps.cn/wps/download/W.P.S.8919.12012.2019.exe

::设置文件保存目录，若下载至当前目录，请留空
set Save=D:\document
if exist %Save% (echo 位置：%Save%) else (mkdir %Save% & echo 已创建：%Save%)

for %%a in ("%Url%") do set "FileName=%%~nxa"
if not defined Save set "Save=%cd%"
(echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^)
echo Sub Download^(url,target^)
echo   Const adTypeBinary = 1
echo   Const adSaveCreateOverWrite = 2
echo   Dim http,ado
echo   Set http = CreateObject^("Msxml2.ServerXMLHTTP"^)
echo   http.open "GET",url,False
echo   http.send
echo   Set ado = createobject^("Adodb.Stream"^)
echo   ado.Type = adTypeBinary
echo   ado.Open
echo   ado.Write http.responseBody
echo   ado.SaveToFile target
echo   ado.Close
echo End Sub)>DownloadFile.vbs
 
DownloadFile.vbs "%Url%" "%Save%\%FileName%"
del DownloadFile.vbs

if exist "%Save%\%FileName%" (echo 位置："%Save%\%FileName%" & start /wait "" "%Save%\%FileName%" /QB REBOOT=Suppress & pause >nul ) else (echo "%Save%\%FileName%"文件不存在)

二、与上一个脚本不同的是，如果这一个脚本会覆盖旧文件，即下载目录下存在已下载过的同名文件会覆盖，因此该脚本可以重复执行。执行成功后自动退出。

:: 熊仔其人，始终以管理员身份运行
@echo off
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

@echo off & WPS下载器
 
::设置要下载的文件链接，仅支持http协议。必写项。
set Url=https://wdl1.cache.wps.cn/wps/download/W.P.S.8919.12012.2019.exe

::设置文件保存目录，若下载至当前目录，请留空
set Save=C:\
if exist %Save% (echo 位置：%Save%) else (mkdir %Save% & echo 已创建：%Save%)

for %%a in ("%Url%") do set "FileName=%%~nxa"
if not defined Save set "Save=%cd%"
(if exist "%Save%\%FileName%" (goto beginInstall)
echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^)
echo Sub Download^(url,target^)
echo   Const adTypeBinary = 1
echo   Const adSaveCreateOverWrite = 2
echo   Dim http,ado
echo   Set http = CreateObject^("Msxml2.ServerXMLHTTP"^)
echo   http.open "GET",url,False
echo   http.send
echo   Set ado = createobject^("Adodb.Stream"^)
echo   ado.Type = adTypeBinary
echo   ado.Open
echo   ado.Write http.responseBody
echo   ado.SaveToFile target
echo   ado.Close
echo End Sub)>DownloadFile.vbs

if exist "%Save%\%FileName%" (echo 位置：%Save%\%FileName% & goto beginInstall) else (echo 下载：%FileName% 请等待)
DownloadFile.vbs "%Url%" "%Save%\%FileName%"
::del DownloadFile.vbs

:beginInstall
del DownloadFile.vbs
if exist "%Save%\%FileName%" (echo 安装：%Save%\%FileName% 请稍等，可能需要您手动确认安装 & start /wait "" "%Save%\%FileName%" /verysilent sp- & exit ) else (echo 异常：%Save%\%FileName% 文件不存在或被损坏！)

三、在前面两个案例的基础上，增加了隐藏命令窗口的功能，即执行脚本的过程对于用户来说不可见。不过双击执行的时候窗口还是会闪一下。

:: 熊仔其人，始终以管理员身份运行
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit
:begin
REM

@echo off
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )

@echo off & WPS下载器
 
::设置要下载的文件链接，仅支持http协议。必写项。
set Url=https://wdl1.cache.wps.cn/wps/download/W.P.S.8919.12012.2019.exe

::设置文件保存目录，若下载至当前目录，请留空
set Save=C:\
if exist %Save% (echo 位置：%Save%) else (mkdir %Save% & echo 已创建：%Save%)

for %%a in ("%Url%") do set "FileName=%%~nxa"
if not defined Save set "Save=%cd%"
(if exist "%Save%\%FileName%" (goto beginInstall)
echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^)
echo Sub Download^(url,target^)
echo   Const adTypeBinary = 1
echo   Const adSaveCreateOverWrite = 2
echo   Dim http,ado
echo   Set http = CreateObject^("Msxml2.ServerXMLHTTP"^)
echo   http.open "GET",url,False
echo   http.send
echo   Set ado = createobject^("Adodb.Stream"^)
echo   ado.Type = adTypeBinary
echo   ado.Open
echo   ado.Write http.responseBody
echo   ado.SaveToFile target
echo   ado.Close
echo End Sub)>DownloadFile.vbs

if exist "%Save%\%FileName%" (echo 位置：%Save%\%FileName% & goto beginInstall) else (echo 下载：%FileName% 请等待)
DownloadFile.vbs "%Url%" "%Save%\%FileName%"
::del DownloadFile.vbs

:beginInstall
del DownloadFile.vbs
if exist "%Save%\%FileName%" (echo 安装：%Save%\%FileName% 请稍等，可能需要您手动确认安装 & start /wait "" "%Save%\%FileName%" /verysilent sp- & exit ) else (echo 异常：%Save%\%FileName% 文件不存在或被损坏！)

参考资料：
1、https://www.cnblogs.com/xiongzaiqiren/p/11268615.html 20200605

JohnieLi
关注
专栏目录
bat脚本自动退出问题
小康师兄
09-25 8427
用bat写一些脚本时，总是会遇到cmd自动退出的问题 问题一：cmd跑到尽头，自动退出 cmd跑到尽头，他就自动退出了，消失了，这本来也是正常。 但是，我们有时候需要看一些日志信息，看看跑得正不正常。他这时候直接消失了，那不是很烦躁。 所以需要在cmd的最后加一个pause，他就会暂停下来啦 问题二：执行一些服务的时候，就消失了 有时候调用一些第三方bin的api或者服务的时候，它执行完这个服务，然后就消失了，后面的cmd就不跑了。 那不是很恼火，所以在调用第三方bin的时候，需要在前面加上call ca
BAT批处理自动安装软件
甜筒八部 的专栏
09-29 2万+
BAT批处理实现自动安装软件 安装过程不需要人工参与。如何实现安装软件的自动化？就是静默安装。 静默安装又称为无人值守安装，软件以默认值自动安装。 静默安装原理 原理很简单，就是软件打包程序预留了安装参数，安装时可加上。当查不到或没预留静默安装参数时，只能手动点击下一步进行安装。 编辑批处理文件 install.bat，输入以下命令并保存。 代码如下: bat与exe安装包在同一个目录下，命令如下： start /wait .sogou_pinyin.exe /S 不在一个...
BAT批处理全自动(静默)安装软件的方法（包含4种常见安装包格式）
09-21
主要介绍了BAT批处理全自动(静默)安装软件的方法（包含4种常见安装包格式）,本文讲解了常用应用软件的封装类型、测试方法与安装类型分析、在批处理文件中的要求等内容,需要的朋友可以参考下
使用C#实现文件的并行下载
最新发布
m0_74737183的博客
06-22 1439
首先在实现文件的并行下载之前我们要明白为什么要实现文件的并行下载，他有什么样的意义？当我们需要从网上下载多个文件时，如果一个接一个地下载，速度可能会很慢，用户也需要等一个文件下载完才能开始下一个。这时候，使用文件的并行下载就非常有用了。这意味着我们可以同时下载多个文件，就像同时用多个手势抓取东西一样，速度更快，效率更高。举个例子，想象一下你需要下载一本电子书里的所有章节，如果一个章节一个章节地下载，可能需要很长时间。但如果你能同时下载所有章节，那速度会明显提升。
windows10 通过bat脚本安装软件
qq_42693848的博客
11-19 8632
通过bat脚本安装软件脚本编写参考文献 最近公司需要对外开源一个产品，为了让外界用户尽量简单的使用该产品。打算将依赖软件采用一个脚本的方式进行快速安装。 脚本编写 这里安装的软件包括：docker， vcxsrv, nodejs 及 使用npm安装adbkit :: 将 @echo off :: 设置窗口大小 @mode con lines=40 cols=100 :: 设置窗口背景颜色 color AF :: 设置标题 title "auto install tool" :: 打印信息 echo "in
bat脚本批量静默安装程序
热门推荐
BiuBiu_Tian(田)
06-14 4万+
用bat脚本自动静默安装程序 实现自动化 部署一些环境 顺便学习了bat脚本
Oracle静默安装脚本（单实例）
楚枫默寒的博客
04-16 250
SYS与SYSTEM同密码，随机生成，剔除 OoIiLl 字符，可在/home/oracle/response/dbca.rsp中查看。
用脚本实现自动安装windows
weixin_34248023的博客
07-20 1226
使用安装脚本    一般来说，顺利地装完操作系统，须要花费1～2个小时的时间，如果系统配置稍低档一些，所需要的时间就更长了。    前面已经提到，在安装过程中，虽然大部分的操作由安装程序自动进行，但是仍然有很多步骤须要用户选择有关的选项或者输入一些信息(序列号、区域和语言、计算机名称、管理员密码、日期和时间设定、网络设置等)后，安装才能进行下去。这样一来，我们就只好守在计算机前，随时等待回答电脑提...
windows上一键安装mysql的bat脚本(实测)
03-02
1. **下载安装文件**：脚本可能首先会从指定的URL下载MySQL的安装文件或MSI包。 2. **静默安装**：通过命令行参数启动安装程序，例如`msiexec /i MySQL.msi /qn`，实现无界面的静默安装。 3. **配置参数**：脚本会...
bat脚本（oracle静默安装+创建数据库）
09-09
在"bat脚本（oracle静默安装+创建数据库）"的场景下，批处理文件将包含以下步骤： 1. **下载和准备Oracle安装文件**：首先，你需要下载Oracle数据库的安装介质，并将其解压到一个指定的目录。确保所有的安装文件...
cmd静默运行_【已解决】BAT批处理中如何静默执行，在完成后调用MSGBOX？
weixin_39638304的博客
01-13 2348
@echo offif "%1" == "h" goto beginmshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit:beginstart mshta vbscript:msgbox("测试提示框之一 ",,"提示")(window.close)ping ...
windows驱动安装脚本
09-25
windows驱动安装脚本devconwindows驱动安装脚本devconwindows驱动安装脚本devconwindows驱动安装脚本devconwindows驱动安装脚本devconwindows驱动安装脚本devconwindows驱动安装脚本devconwindows驱动安装脚本devcon
BAT批处理实现自动安装软件功能
09-21
主要介绍了BAT批处理实现自动安装软件功能,本文直接给出代码示例,,需要的朋友可以参考下
常用软件静默安装
04-06
对压缩，输入法，chrome,firefox,pdf阅读器，flash静默安装。主要用于行政内网。
windows 脚本服务工具
07-17
添加windows基于脚本调用的服务, 使用CmdService.exe可绑定启动脚本和关闭脚本, 使用ServiceHelper可快速实现注册.
软件自动化安装脚本
12-10
软件自动化安装脚本，一脚linux安装，shell脚本。jdk安装,postsql安装。
windows下局域网内复制整个文件夹脚本bat
深海小黄鱼
04-07 6040
复制远程电脑上整个文件夹下所有内容 net use  \\10.1.31.15 wt/user:administrator    rd/s/q %~dp0\a md a xcopy/a/s/h \\10.1.31.15\Users  %~dp0\a pause xcopy后面跟的参数意思： /P 创建每个目标文件前提示。 /S 复制目录和子目录，除了空的。 /
windows脚本工具下载及安装
swjtuxu的专栏
02-11 1823
ant安装： 1、  安装ant工具 ant下载连接地址：http://pan.baidu.com/s/1ntz5Ydz findbugs下载连接地址：http://pan.baidu.com/s/1hqvC04G   *首先解压ant压缩包，放到目录D:test *解压findbugs放到目录D:test。 *将findbug解压文件夹下findbugs-ant.jar文件拷贝到D
C# 批处理制作静默安装程序包
weixin_33901926的博客
07-15 586
  使用批处理+WinRAR制作静默安装程序包   @echo 安装完窗口会自动关闭！！！ @echo off start /wait Lync.exe /Install /Silent start /wait vcredist_x86/vcredist_x86.exe /q /norestart start /wait DotNetFx40/dotNetFx40_Full_x...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值