Office 2019/2016 安装ID 提取

elufa168

Office 2019/2016 安装ID 提取，支持同时提取 office、project、visio三组安装ID

@echo off
setlocal enabledelayedexpansion
echo Office INSTID:
@echo.Office INSTID:>"%~dp0Office INSTID.txt"
for /f "skip=1 tokens=6,8 delims=: " %%i in ('cscript "C:\Program Files\Microsoft Office\Office16\ospp.vbs" /dinstid') do (
  set c10=%%i
  set c0=%%j
  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 !c10!:
  echo !c1!-!c2!-!c3!-!c4!-!c5!-!c6!-!c7!-!c8!-!c9!
  @echo.!c10!:>>"%~dp0Office INSTID.txt"
  @echo.!c1!-!c2!-!c3!-!c4!-!c5!-!c6!-!c7!-!c8!-!c9!>>"%~dp0Office INSTID.txt"
)
pause
start notepad "%~dp0Office INSTID.txt"


以上内容保存为批处理文件即可