中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-11 10:48 		共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术（批处理室） » 这个批处理错在那里？
可打印版本 　655 / 5
第1楼　senffon 发表于 2009-02-20 14:34
初级用户　发帖 66　积分 118
这个批处理错在那里？
第2楼　senffon 发表于 2009-02-20 15:05
初级用户　发帖 66　积分 118
版主不在？
第3楼　senffon 发表于 2009-02-20 15:24
初级用户　发帖 66　积分 118
@echo off
CLS
COLOR 0b
MODE con: COLS=50 LINES=20
@echo.
@echo 1. 启用VBS缩主执行功能
@echo.
@echo 2. 禁用VBS缩主执行功能
@echo.
@echo 3. 修复MS_ADO数据连接组件
@echo.
SET Choice=
SET /P Choice= 请选择（1或2）:
IF NOT "%Choice%"=="" SET Choice=%Choice:~0,1%
ECHO.
IF /I "%Choice%"=="1" GOTO envbs
IF /I "%Choice%"=="2" GOTO disvbs
IF /I "%Choice%"=="3" GOTO FIXADO
goto :eof

:envbs
call :vbsfile
@pause>nul|echo. 启用VBS缩主执行功能成功完成，按任一键退出！
goto :eof

:disvbs
call :vbsfile -u
@pause>nul|echo. 禁用VBS缩主执行功能成功完成，按任一键退出！
goto :eof

:vbsfile
regsvr32 scrrun.dll /s
regsvr32 wshom.ocx /s
regsvr32 scrobj.dll /s
regsvr32 wshext.dll /s
regsvr32 wshcon.dll /s
regsvr32 jscript.dll /s
regsvr32 vbscript.dll /s
goto :eof

:FIXADO
regsvr32 /s "%Commonprogramfiles%\System\ado\msado15.dll"
regsvr32 /s "%Commonprogramfiles%\System\ado\msador15.dll"
regsvr32 /s "%Commonprogramfiles%\System\ado\msadox.dll"
regsvr32 /s "%Commonprogramfiles%\System\ado\msadomd.dll"
regsvr32 /s "%Commonprogramfiles%\system\ado\msado15.dll"
Regsvr32 /s "%Commonprogramfiles%\System\Ole DB\oledb32.dll"
@pause>nul|echo. 修复MS_ADO数据连接组件成功，按任一键退出！
goto :eof
第4楼　HAT 发表于 2009-02-20 15:38
版主　发帖 5,017　积分 9,023
能否在帖子标题中描述一下代码的功能？
第5楼　tireless 发表于 2009-02-20 17:16
银牌会员　发帖 1,122　积分 2,025
改成这样：
第6楼　senffon 发表于 2009-02-27 05:36
初级用户　发帖 66　积分 118
原来如此
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023