无聊，搞了个一键查看Windows系统及Office是否永久激活的批

七仙花 · 发表于 2021-1-25 11:27:18

本帖最后由七仙花于 2021-1-27 09:54 编辑

@echo off
Setlocal Enabledelayedexpansion
start slmgr /xpr
:获取 Microsoft Office 安装路径
for /f "delims=\ tokens=5,*" %%a in ('reg query HKLM\SOFTWARE\Microsoft\Office /f "." /k 2^>nul') do (
for /f "skip=1 tokens=2,* delims= " %%b in ('reg query HKLM\SOFTWARE\Microsoft\Office\%%~a\Word\InstallRoot /v Path 2^>nul') do (
set "WordPath=%%~c"
)
)
if defined WordPath (set "WordPath=%WordPath:root\Office16=Office16%") else (
echo 未检测到当前系统安装有 Microsoft Office 软件，请直接关闭或按任意键退出 ......
pause >nul
goto :eof
)
for /f "tokens=3 delims=: " %%i in ('cscript "%WordPath%ospp.vbs" /dstatus') do (set /a n+=1 & if !n! equ 4 set "A=%%i")
start slmgr /xpr %A%
exit

复制代码

上面这个批是通过读取注册表获取Office安装路径，然后调用脚本文件ospp.vbs来配合slmgr /xpr查看Office是否永久激活，但有人反映说检测不到Office，可能读取不到正确的安装路径。现在重新修改了，使用wmic命令直接查找脚本文件ospp.vbs。当然使用wmic命令会进行全盘搜索，运行时间会长一点，如果精简掉脚本文件ospp.vbs的话，那就没办法了。

@echo off
Setlocal Enabledelayedexpansion
:查看Windows是否永久激活
start slmgr /xpr
:获取Office脚本文件ospp.vbs安装路径
for /f "skip=1 delims=" %%i in ('wmic datafile where "filename='ospp' and Extension='vbs'" get name') do (set /a n+=1 & if !n! equ 1 set "ospp=%%i")
:查看Office是否永久激活
for /f "tokens=3 delims=: " %%a in ('cscript "%ospp%" /dstatus') do (set /a m+=1 & if !m! equ 4 set "V=%%a")
if defined V (start slmgr /xpr %V%) else (
echo 未检测到当前系统安装有 Microsoft Office 软件，请直接关闭或按任意键退出 ......
pause >nul
goto :eof
)

复制代码

晚上回家又试了下，发现在win7下用slmgr /xpr (SKU ID)这个命令无法读取Office的注册信息，通过与win10对比，应该是版本的问题，看下图。

zlq_hysy · 发表于 2021-1-25 11:52:12

没装office就停止系统检测了。

nttwqz · 发表于 2021-1-25 11:54:03

2007年注册，我记得我是04年左右才自学的装系统，原版XP系统。

七仙花 · 发表于 2021-1-25 11:54:19

zlq_hysy 发表于 2021-1-25 11:52
没装office就停止系统检测了。

谢谢提醒，忘了把start slmgr /xpr放前面了

我是嘤嘤怪呐~ · 发表于 2021-1-25 13:08:09

谢谢分享

我是嘤嘤怪呐~ · 发表于 2021-1-25 13:08:23

谢谢分享

dx163 · 发表于 2021-1-25 15:05:19

批处理也挺能耐大的

gtc · 发表于 2021-1-25 15:56:28

office2010检测不到。

dfw9 · 发表于 2021-1-25 16:02:39

gtc 发表于 2021-1-25 15:56
office2010检测不到。

希望楼主修正再发一遍。

20121010168 · 发表于 2021-1-25 16:16:36

我的Office 2016 也没检测到....
应该是精简版office的原因，没有获取到正确的路径。

gtc · 发表于 2021-1-25 16:50:07

dfw9 发表于 2021-1-25 16:02
希望楼主修正再发一遍。

我的是完整零售版，检测不出。

进士小站 · 发表于 2021-1-25 17:32:26

感谢楼主分享

PEUser · 发表于 2021-1-25 20:21:27

Office2016检测不到。

秋水长天369 · 发表于 2021-1-25 21:03:16

楼主辛苦

yhk · 发表于 2021-1-25 21:21:49

反馈：echo 中文乱码

创新科技2015 · 发表于 2021-1-25 22:56:49

赞一个!

我是嘤嘤怪呐~ · 发表于 2021-1-26 11:04:07

谢谢分享

20121010168 · 发表于 2021-1-26 17:24:09

没有问题了！

秋水长天369 · 发表于 2021-1-26 22:07:27

谢谢分享

gtc · 发表于 2021-1-29 22:35:43

office检测还是不行，我运行后这样：

gdd123123 · 发表于 2021-5-18 20:57:26

求大神指导如何做关闭USB和网卡的电源节能模式

wdmtmss · 发表于 2021-5-20 06:57:04

谢谢分享

2011matrixvexx · 发表于 2022-2-20 16:46:53

A謝謝樓主分享,有效!

wlzxwfk · 发表于 2022-2-28 13:11:32

谢谢分享，下来备用！

gzdsys · 发表于 2022-7-20 08:17:40

谢谢分享，实用工具收下了

9527sss · 发表于 2022-8-2 20:29:30

感谢分享

小小小璇 · 发表于 2022-8-3 22:10:34

楼主辛苦

2012myjoys · 发表于 2022-11-21 08:16:33

果然很好

gaohuagxc · 发表于 2022-11-21 18:51:55

我的是完整零售版，检测不出

unppnu · 发表于 2022-11-21 19:18:18

谢谢分享

		自动登录	找回密码
密码			注册

无聊，搞了个一键查看Windows系统及Office是否永久激活的批

评分

点评