Win7 64位旗舰版下载 系统 工具 主题

论坛汇聚Win7系统下载 激活工具 主题

Win7系统下载|主题|优化|桌面|激活|小白必读

Win8.1 系统下载 中文版 平板电脑 主题

Win8.1 平板电脑 中文版 系统下载尽在Win8论坛

Windows8.1下载|主题|激活|新手宝典|必备软件

Win10 正式版 系统 下载 主题 平板

重定义Modern UI,打造完美Windows全新体验

Windows10下载|安装|新手宝典|必备软件

远景论坛 - 微软极客社区 › 论坛 › Microsoft 微软产品主题论坛 › Microsoft Office 论坛 > 每次拿到脚本都要自己去修改office安装路径, 是否觉得太 ...

返回列表发表新帖

查看: 3651|回复: 5

每次拿到脚本都要自己去修改office安装路径, 是否觉得太2了? 那你进来吧... [复制链接]
电梯直达
复制

斜阳残雪

Rank: 2 Rank: 2

UID: 540970
帖子: 406
PB币: 474
贡献: 0
技术: 0
活跃: 1053

楼主

发表于 2012-11-13 09:45:42 IP属地未知 |只看该作者 |倒序浏览

本帖最后由斜阳残雪于 2012-11-13 10:19 编辑

如题, 本帖是我自己做的用于局域网激活的脚本, 激活服务器请自理, 本帖旨在自动获取office安装路径, 望明确.

@echo off
set "kmsHost=x.x.x.x"
setlocal EnableDelayedExpansion
cls
color 02
echo getting directory...
for /f "delims=" %%i in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Word\Options" /v "PROGRAMDIR"') do (
set strInstPath=%%i
set strInstPath=!strInstPath:*REG_SZ=!
)
:LTrim
if "%strInstPath:~0,1%"==" " set "strInstPath=%strInstPath:~1%" && goto LTrim
:RTrim
if "%strInstPath:~-1%"==" " set "strInstPath=%strInstPath:~0,-1%" && goto RTrim
if "%strInstPath:~-1%" neq "\" set strInstPath=%strInstPath%\
cd /d %strInstPath%
echo.
echo installing key...
cscript.exe //nologo ospp.vbs /inpkey:YC7DK-G2NP3-2QQC3-J6H88-GVGXT
set /p ynPJ=installed Project?[y/n]:
if "%ynPJ%"=="y" cscript.exe //nologo ospp.vbs /inpkey:FN8TT-7WMH6-2D4X9-M337T-2342K
set /p ynVISIO=installed Visio?[y/n]:
if "%ynVISIO%"=="y" cscript.exe //nologo ospp.vbs /inpkey:C2FG9-N6J68-H8BTJ-BW3QX-RM3B3
echo.
echo setting host IP address...
cscript.exe //nologo ospp.vbs /sethst:%kmsHost%
echo.
echo activating...
cscript.exe //nologo ospp.vbs /act
echo.
echo checking...
cscript.exe //nologo ospp.vbs /dstatus
pause

复制代码

反对 0

ofuauek

Rank: 1

UID: 2902345
帖子: 113
PB币: 476
贡献: 0
技术: 0
活跃: 24

沙发

发表于 2012-11-13 10:47:47 IP属地上海 |只看该作者

支持。。。qq联系。

housex

远景贵宾

Rank: 11

UID: 440522
帖子: 7946
PB币: 21464
贡献: 0
技术: 61
活跃: 1732

板凳

发表于 2012-11-13 11:34:47 IP属地河北 |只看该作者

支持楼主，希望楼主做成批处理文件好下载

ofuauek

Rank: 1

UID: 2902345
帖子: 113
PB币: 476
贡献: 0
技术: 0
活跃: 24

4^F

发表于 2012-11-13 12:56:28 IP属地上海 |只看该作者

批处理不就是复制代码自己做成x.bat吗。。。

yinyingchun

Rank: 2 Rank: 2

UID: 1791356
帖子: 250
PB币: 29
贡献: 0
技术: 0
活跃: 3192

5^F

发表于 2012-11-13 13:45:27 IP属地浙江 |只看该作者

试了有效，谢谢楼主。

斜阳残雪

Rank: 2 Rank: 2

UID: 540970
帖子: 406
PB币: 474
贡献: 0
技术: 0
活跃: 1053

6^F

发表于 2012-11-14 16:25:45 IP属地上海 |只看该作者

前段获取office安装路径部分代码有点问题, 做以下修改:

@echo off
set "kmsHost=x.x.x.x"
set "strRegKey=HKEY_LOCAL_MACHINE\Software\Microsoft\Office\15.0\Common\InstallRoot /v Path"
set "strRegKey6432=HKEY_LOCAL_MACHINE\Software\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot /v Path"
setlocal EnableDelayedExpansioncls
color 02
echo getting directory...
reg query %strRegKey% >nul 2>nul
if %errorlevel%==0 (set strCurrentKey=%strRegKey%) else (set strCurrentKey=%strRegKey6432%)
for /f "delims=" %%i in ('reg query %strCurrentKey%') do (
set strInstPath=%%i
set strInstPath=!strInstPath:*REG_SZ=!
)
:LTrim
if "%strInstPath:~0,1%"==" " set "strInstPath=%strInstPath:~1%" && goto LTrim
:RTrim
if "%strInstPath:~-1%"==" " set "strInstPath=%strInstPath:~0,-1%" && goto RTrim
if "%strInstPath:~-1%" neq "\" set strInstPath=%strInstPath%\
cd /d %strInstPath%

复制代码

后面没有变动.

返回列表发表新帖

Win7 64位旗舰版下载 系统 工具 主题

论坛汇聚Win7系统下载 激活工具 主题

Win8.1 系统下载 中文版 平板电脑 主题

Win8.1 平板电脑 中文版 系统下载尽在Win8论坛

Win10 正式版 系统 下载 主题 平板

重定义Modern UI,打造完美Windows全新体验

每次拿到脚本都要自己去修改office安装路径, 是否觉得太2了? 那你进来吧... [复制链接]
电梯直达
复制

热心会员

7周年庆典勋章

8周年庆典勋章

Win7 64位旗舰版下载系统工具主题

论坛汇聚Win7系统下载激活工具主题

Win8.1系统下载中文版平板电脑主题

Win8.1平板电脑中文版系统下载尽在Win8论坛

Win10正式版系统下载主题平板

重定义Modern UI,打造完美Windows全新体验

每次拿到脚本都要自己去修改office安装路径, 是否觉得太2了? 那你进来吧... [复制链接] 电梯直达 复制

热心会员

7周年庆典勋章

8周年庆典勋章

Win8.1 系统下载中文版平板电脑主题

Win8.1 平板电脑中文版系统下载尽在Win8论坛

Win10 正式版系统下载主题平板

每次拿到脚本都要自己去修改office安装路径, 是否觉得太2了? 那你进来吧... [复制链接]
电梯直达
复制