|
|
本帖最后由 admin 于 2021-11-23 10:35 编辑
此方法适合office2016-2019-2021!(注意:office16是office2016,2019,2021,office15就是2013,office14就是2010)
新建txt复制以下代码:
@echo off
setlocal enabledelayedexpansion
for /f "tokens=2,* delims=," %%i in ('cscript "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" /dinstid') do set ID=%%i
for /f "tokens=3,* " %%a in ("!ID!") do (
set c0=%%a
set c1=!c0:~0,7!
set c2=!c0:~7,7!
set c3=!c0:~14,7!
set c4=!c0:~21,7!
set c5=!c0:~28,7!
set c6=!c0:~35,7!
set c7=!c0:~42,7!
set c8=!c0:~49,7!
set c9=!c0:~56,7!
echo Office Installation ID:
echo !c1!-!c2!-!c3!-!c4!-!c5!-!c6!-!c7!-!c8!-!c9!
@echo Office Installation ID:>> "%~dp0Office Installation ID.txt"
@echo !c1!-!c2!-!c3!-!c4!-!c5!-!c6!-!c7!-!c8!-!c9!>> "%~dp0Office Installation ID.txt"
)
echo.请查看当前目录下「Office Installation ID.txt」
exit
---------------------------
保存后缀txt改成bat!!
网页激活网址:http://getcid.cn/
|
|