[系统相关] [已解决]批处理获取操作系统和Office系列版本和位数

for /f "tokens=2*" %%A in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"^|find /i "ProductName"') do (
    echo You are Running:%%B %ARCH%
)
复制代码

for /f "tokens=2*" %%A in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "ProductName"') do (
    if /i "%%A" == "REG_SZ" echo You are Running:%%B %ARCH%
)
复制代码

@echo off
setlocal enabledelayedexpansion
for /l %%a in (0,1,1) do (
	for /l %%b in (0,1,1) do (
		for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9%%b150000-0011-0000-%%a000-0000000FF1CE}"^|find /i "DisplayName"') do (
		set name=%%j
		)
		if %%a==1 (
			set arch=64BIT
		) else (
			set arch=32BIT
		)
		if %%b==0 (
			set edition=Volume
		) else (
			set edition=Retail/OEM
		)
	
	)
)
echo %name% %arch% %edition%
pause
复制代码

@echo off
::setlocal enabledelayedexpansion
rem 获取当前的Office版本
rem 90(1)140000-0011-0000-0(1)000-0000000FF1CE Microsoft Office Professional Plus 2010
for %%a in (0,1) do (
	for %%b in (1,0) do (
		for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9%%b140000-0011-0000-%%a000-0000000FF1CE}"^|find /i 

"DisplayName"') do (
		set name=%%j
		)
		if %%a==1 (
			if %%b==0 (
				set edition=Volume
			) else (
				set edition=Retail/OEM
			)
			set arch=64BIT
		) else (
			if %%b==0 (
				set edition=Volume
			) else (
				set edition=Retail/OEM
			)
			set arch=32BIT
		)

	
	)
)
echo; 您当前的Office版本是:%name% %arch% %edition%

rem 90(1)140000-0012-0000-0(1)000-0000000FF1CE Microsoft Office Standard 2010
for %%a in (0,1) do (
	for %%b in (1,0) do (
		for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9%%b140000-0012-0000-%%a000-0000000FF1CE}"^|find /i 

"DisplayName"') do (
		set name=%%j
		)
		if %%a==1 (
			if %%b==0 (
				set edition=Volume
			) else (
				set edition=Retail/OEM
			)
			set arch=64BIT
		) else (
			if %%b==0 (
				set edition=Volume
			) else (
				set edition=Retail/OEM
			)
			set arch=32BIT
		)

	
	)
)
echo; 您当前的Office版本是:%name% %arch% %edition%

rem 90(1)150000-0011-0000-0(1)000-0000000FF1CE Microsoft Office Professional Plus 2013
for %%a in (0,1) do (
	for %%b in (1,0) do (
		for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9%%b150000-0011-0000-%%a000-0000000FF1CE}"^|find /i "DisplayName"') do (
		set name=%%j
		)
		if %%a==1 (
			if %%b==0 (
				set edition=Volume
			) else (
				set edition=Retail/OEM
			)
			set arch=64BIT
		) else (
			if %%b==0 (
				set edition=Volume
			) else (
				set edition=Retail/OEM
			)
			set arch=32BIT
		)

	
	)
)
echo; 您当前的Office版本是:%name% %arch% %edition%

rem 90(1)150000-0012-0000-0(1)000-0000000FF1CE Microsoft Office Standard 2013
for %%a in (0,1) do (
	for %%b in (1,0) do (
		for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9%%b150000-0012-0000-%%a000-0000000FF1CE}"^|find /i "DisplayName"') do (
		set name=%%j
		)
		if %%a==1 (
			if %%b==0 (
				set edition=Volume
			) else (
				set edition=Retail/OEM
			)
			set arch=64BIT
		) else (
			if %%b==0 (
				set edition=Volume
			) else (
				set edition=Retail/OEM
			)
			set arch=32BIT
		)

	
	)
)
echo; 您当前的Office版本是:%name% %arch% %edition%
pause
复制代码

@echo off & setlocal enabledelayedexpansion
set "_00=32BIT Volume"
set "_01=64BIT Volume"
set "_10=32BIT Retail/OEM"
set "_11=64BIT Retail/OEM"
set "v=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
set "re={9[01]150000-0011-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo,%%c !_%%~d!
        ) 
    )
)) 2>nul
if not defined var echo,Office 2013 Not Installed
pause
复制代码

@echo off
title Microsoft Windows and Office Activate Helper
setlocal enabledelayedexpansion
:begin
cls
color 1F
echo; -------=========Microsoft Windows and Office Activate Helper=========------
echo;
echo; THE FOLLOWING PRODUCTS CAN BE SUPPORTED:
echo; Microsoft Windows Vista/7/8/8.1
echo; Microsoft Windows Server 2008/2008R2/2012/2012R2
echo; Microsoft Office/Project/Visio 2010/2013
echo;
echo; -------==========CURRENT OS OFFICE VISIO PROJECT VERSION==========---------
echo;
REM GET CURRENT OS VERSION
IF EXIST "%PROGRAMFILES(X86)%" (set ARCH=64BIT) ELSE (set ARCH=32BIT)
for /f "tokens=2*" %%A in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"^|find /i "ProductName"') do (echo; %%B %ARCH%)
REM GET CURRENT OFFICE VISIO PROJECT VERSION
set "_00=32BIT Volume"
set "_01=64BIT Volume"
set "_10=32BIT Retail/OEM"
set "_11=64BIT Retail/OEM"
set "v=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
set "re={9[01]140000-0012-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]140000-0011-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]140000-0053-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]140000-0057-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]140000-003A-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]140000-003B-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-0012-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-0011-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-0053-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-0051-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-003A-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-003B-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "v=HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
set "re={9[01]140000-0012-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]140000-0011-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]140000-0053-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]140000-0057-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]140000-003A-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]140000-003B-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-0012-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-0011-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-0053-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-0051-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-003A-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]150000-003B-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul
echo; ---------=========================================================---------
echo; 
echo; 1.Online Activate Microsoft Windows
echo;
echo; 2.Online Activate Microsoft Office
echo;
echo; 3.Offline Activate Microsoft Windows
echo;
echo; 4.Offline Activate Microsoft Office
echo;
set /p ans=PLEASE CHOOSE 1/2/3/4 AND PRESS ENTER TO CONTINUE:
if "%ans%"=="1" goto onlinewindows
if "%ans%"=="2" goto onlineoffice
if "%ans%"=="3" goto offlinewindows
if "%ans%"=="4" goto offlineoffice
goto begin
REM Online Activate Microsoft Windows
:onlinewindows
goto inputkey

:inputkey
cls
set /p inputkey=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:
cscript /nologo %windir%\system32\slmgr.vbs /ipk %inputkey% | findstr 成功地安装了产品密钥 >nul && goto ato || goto reenter

:ato
cls
cscript /nologo %windir%\system32\slmgr.vbs /ato | findstr 成功地激活了产品 >nul && goto done || goto reenter

:done
cls
echo;已成功激活
timeout 5
goto begin

:reenter
cls
echo;密钥无效，请更换密钥重新输入
timeout 5
goto inputkey

REM Offline Activate Microsoft Windows
:offlinewindows
goto inputkeyb

:inputkeyb
cls
set /p inputkeyb=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:
cscript /nologo %windir%\system32\slmgr.vbs /ipk %inputkeyb% | findstr 成功地安装了产品密钥 >nul && goto atob || goto reenter

:atob
cls
echo;免费、无广告、无需注册、不限时间、不限流量VPN：http://tenacy-free.com/
echo;
echo;VPN使用教程：http://tenacy-free.com/tutorials/pptp-windows-8
echo;
echo;Skype下载：http://www.skype.com/go/getskype-msi
echo;
echo;英国电话号码：8000188354
echo;
echo;语音翻译：http://www.lenovo.me/wp-content/uploads/englishtochinese.txt
echo;
cscript /nologo %windir%\system32\slmgr.vbs /dti >dti.txt
echo;安装ID(9组×7位,共63位)已保存在当前目录dti.txt文件中
echo;
echo;请挂VPN用Skype打英国电话,记下确认ID
echo; 
echo; a.密钥无效(无法获得确认ID)
echo;
echo; b.密钥有效(已经获得确认ID)
echo;
set /p ab=请输入字母a or b后按Enter键继续:
if "%ab%"=="a" goto inputkeyb
if "%ab%"=="b" goto atoc

:atoc
cls
set /p wcid=请输入确认ID(8组×6位,共48位,连续输入,不用输-):
cscript /nologo %windir%\system32\slmgr.vbs /atp %wcid% | findstr /x "确认 ID 成功地存储" >nul && goto done || goto reenter

REM Online Activate Microsoft Office
:onlineoffice
goto ipk

:ipk
cls
set /p ipk=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
cscript "%installroot%\ospp.vbs" /inpkey:%ipk% | findstr /x "<Product key installation successful>" >nul && goto act || goto reenterb

:act
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
cscript "%installroot%\ospp.vbs" /act | findstr /x "<Product activation successful>" >nul && goto done || goto reenterb

:reenterb
cls
echo;密钥无效，请更换密钥重新输入
timeout 5
goto ipk

REM Offline Activate Microsoft Office
:offlineoffice
goto ipkb

:ipkb
cls
set /p ipk=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
cscript "%installroot%\ospp.vbs" /inpkey:%ipk% | findstr /x "<Product key installation successful>" >nul && goto actb || goto reenterb

:actb
cls
echo;免费、无广告、无需注册、不限时间、不限流量VPN：http://tenacy-free.com/
echo;
echo;VPN使用教程：http://tenacy-free.com/tutorials/pptp-windows-8
echo;
echo;Skype下载：http://www.skype.com/go/getskype-msi
echo;
echo;英国电话号码：8000188354
echo;
echo;语音翻译：http://www.lenovo.me/wp-content/uploads/englishtochinese.txt
echo;
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
cscript "%installroot%\ospp.vbs" /dinstid >dinstid.txt
echo;安装ID(9组×7位,共63位)已保存在当前目录dinstid.txt文件中
echo;
echo;请挂VPN用Skype打英国电话,记下确认ID
echo; 
echo; a.密钥无效(无法获得确认ID)
echo;
echo; b.密钥有效(已经获得确认ID)
echo;
set /p ab=请输入字母a or b后按Enter键继续:
if "%ab%"=="a" goto ipkb
if "%ab%"=="b" goto actc

:actc
cls
set /p ocid=请输入确认ID(8组×6位,共48位,连续输入,不用输-):
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
cscript "%installroot%\ospp.vbs" /actcid:%ocid% | findstr /x "<Offline product activation successful>" >nul && goto done || goto reenterb
复制代码

Microsoft Windows [版本 6.3.9600]
(c) 2013 Microsoft Corporation。保留所有权利。

C:\Windows\system32>CD "%ProgramFiles%\MICROSOFT OFFICE\OFFICE15"

C:\Program Files\Microsoft Office\Office15>CSCRIPT OSPP.VBS /DSTATUS
Microsoft (R) Windows Script Host Version 5.8
版权所有(C) Microsoft Corporation。保留所有权利。

---Processing--------------------------
---------------------------------------
SKU ID: 2b88c4f2-ea8f-43cd-805e-4d41346e18a7
LICENSE NAME: Office 15, OfficeProPlusVL_MAK edition
LICENSE DESCRIPTION: Office 15, RETAIL(MAK) channel
LICENSE STATUS:  ---LICENSED---
Last 5 characters of installed product key: 2YQ67
---------------------------------------
SKU ID: 3e4294dd-a765-49bc-8dbd-cf8b62a4bd3d
LICENSE NAME: Office 15, OfficeVisioProVL_MAK edition
LICENSE DESCRIPTION: Office 15, RETAIL(MAK) channel
LICENSE STATUS:  ---LICENSED---
Last 5 characters of installed product key: RM3B4
---------------------------------------
SKU ID: ed34dc89-1c27-4ecd-8b2f-63d0f4cedc32
LICENSE NAME: Office 15, OfficeProjectProVL_MAK edition
LICENSE DESCRIPTION: Office 15, RETAIL(MAK) channel
LICENSE STATUS:  ---LICENSED---
Last 5 characters of installed product key: RVR2M
---------------------------------------
---------------------------------------
---Exiting-----------------------------

C:\Program Files\Microsoft Office\Office15>
复制代码

@echo off & setlocal enabledelayedexpansion
set "file=%ProgramFiles%\MICROSOFT OFFICE\OFFICE15\OSPP.VBS"
for /f "delims=" %%a in ('cscript -nologo "%file%"') do (
    set "str=%%a"
    if defined flag (
        if "!str:NAME:=!" neq "!str!" (
            set "Name=!str:*NAME:=!"
        ) else if "!str:STATUS:=!" neq "!str!" (
            echo,!Name! !str:*STATUS:=!
            set "flag="
        )
    ) else if "!str:-=!"=="" set flag=1
)
pause
复制代码

(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
复制代码

@echo off
title Microsoft Windows and Office Activate Helper
setlocal enabledelayedexpansion
:begin
cls
color 1F
echo; -------=========Microsoft Windows and Office Activate Helper=========------
echo;
echo; THE FOLLOWING PRODUCTS CAN BE SUPPORTED:
echo; Microsoft Windows Vista/7/8/8.1
echo; Microsoft Windows Server 2008/2008R2/2012/2012R2
echo; Microsoft Office/Project/Visio 2010/2013
echo;
echo; -------==========CURRENT OS OFFICE VISIO PROJECT VERSION==========---------
echo;
REM GET CURRENT OS VERSION
if exist "%PROGRAMFILES(X86)%" (set arch=64BIT) else (set arch=32BIT)
for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"^|find /i "ProductName"') do (echo; %%j %arch%)
REM GET CURRENT OFFICE VISIO PROJECT VERSION
set "_00=32BIT Volume"
set "_01=64BIT Volume"
set "_10=32BIT Retail/OEM"
set "_11=64BIT Retail/OEM"
set "v=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
set "re={9[01]1[45]0000-0012-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-0011-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-0051-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-0053-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-0057-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-003A-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-003B-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "v=HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
set "re={9[01]1[45]0000-0012-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-0011-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-0051-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-0053-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-0057-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-003A-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul

set "re={9[01]1[45]0000-003B-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul
echo; ---------=========================================================---------
echo; 
echo; 1.Online Activate Microsoft Windows
echo;
echo; 2.Online Activate Microsoft Office
echo;
echo; 3.Offline Activate Microsoft Windows
echo;
echo; 4.Offline Activate Microsoft Office
echo;
set /p ans=PLEASE CHOOSE 1/2/3/4 AND PRESS ENTER TO CONTINUE:
if "%ans%"=="1" goto onlinewindows
if "%ans%"=="2" goto onlineoffice
if "%ans%"=="3" goto offlinewindows
if "%ans%"=="4" goto offlineoffice
goto begin
REM Online Activate Microsoft Windows
:onlinewindows
goto inputkey

:inputkey
cls
set /p inputkey=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:
cscript /nologo %windir%\system32\slmgr.vbs /ipk %inputkey% | findstr /x "成功地安装了产品密钥" >nul && goto ato || goto reenter

:ato
cls
cscript /nologo %windir%\system32\slmgr.vbs /ato | findstr /x "成功地激活了产品" >nul && goto done || goto reenter

:done
cls
echo;ACTIVATION SUCCESSFUL!
timeout 5
goto begin

:reenter
cls
echo;密钥无效，请更换密钥重新输入
timeout 5
goto inputkey

REM Offline Activate Microsoft Windows
:offlinewindows
goto inputkeyb

:inputkeyb
cls
set /p inputkeyb=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:
cscript /nologo %windir%\system32\slmgr.vbs /ipk %inputkeyb% | findstr /x "成功地安装了产品密钥" >nul && goto atob || goto reenter

:atob
cls
echo;免费、无广告、无需注册、不限时间、不限流量VPN：http://tenacy-free.com/
echo;
echo;VPN使用教程：http://tenacy-free.com/tutorials/pptp-windows-8
echo;
echo;Skype下载：http://www.skype.com/go/getskype-msi
echo;
echo;英国电话号码：8000188354
echo;
echo;语音翻译：http://www.lenovo.me/wp-content/uploads/englishtochinese.txt
echo;
cscript /nologo %windir%\system32\slmgr.vbs /dti >dti.txt
echo;安装ID(9组×7位,共63位)已保存在当前目录dti.txt文件中
echo;
echo;请挂VPN用Skype打英国电话,记下确认ID
echo; 
echo; a.密钥无效(无法获得确认ID)
echo;
echo; b.密钥有效(已经获得确认ID)
echo;
set /p ab=请输入字母a or b后按Enter键继续:
if "%ab%"=="a" goto inputkeyb
if "%ab%"=="b" goto atoc

:atoc
cls
set /p wcid=请输入确认ID(8组×6位,共48位,连续输入,不用输-):
cscript /nologo %windir%\system32\slmgr.vbs /atp %wcid% | findstr /x "确认 ID 成功地存储" >nul && goto done || goto reenter

REM Online Activate Microsoft Office
:onlineoffice
goto ipk

:ipk
cls
set /p ipk=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
cscript "%installroot%\ospp.vbs" /inpkey:%ipk% | findstr /x "<Product key installation successful>" >nul && goto act || goto reenterb

:act
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
cscript "%installroot%\ospp.vbs" /act | findstr /x "<Product activation successful>" >nul && goto done || goto reenterb

:reenterb
cls
echo;密钥无效，请更换密钥重新输入
timeout 5
goto ipk

REM Offline Activate Microsoft Office
:offlineoffice
goto ipkb

:ipkb
cls
set /p ipk=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
cscript "%installroot%\ospp.vbs" /inpkey:%ipk% | findstr /x "<Product key installation successful>" >nul && goto actb || goto reenterb

:actb
cls
echo;免费、无广告、无需注册、不限时间、不限流量VPN：http://tenacy-free.com/
echo;
echo;VPN使用教程：http://tenacy-free.com/tutorials/pptp-windows-8
echo;
echo;Skype下载：http://www.skype.com/go/getskype-msi
echo;
echo;英国电话号码：8000188354
echo;
echo;语音翻译：http://www.lenovo.me/wp-content/uploads/englishtochinese.txt
echo;
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
cscript "%installroot%\ospp.vbs" /dinstid >dinstid.txt
echo;安装ID(9组×7位,共63位)已保存在当前目录dinstid.txt文件中
echo;
echo;请挂VPN用Skype打英国电话,记下确认ID
echo; 
echo; a.密钥无效(无法获得确认ID)
echo;
echo; b.密钥有效(已经获得确认ID)
echo;
set /p ab=请输入字母a or b后按Enter键继续:
if "%ab%"=="a" goto ipkb
if "%ab%"=="b" goto actc

:actc
cls
set /p ocid=请输入确认ID(8组×6位,共48位,连续输入,不用输-):
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
(for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot"^| find /i "Path"') do (set installroot=%%j))2>nul
cscript "%installroot%\ospp.vbs" /actcid:%ocid% | findstr /x "<Offline product activation successful>" >nul && goto done || goto reenterb
复制代码

set "_00=32BIT Volume"
set "_01=64BIT Volume"
set "_10=32BIT Retail/OEM"
set "_11=64BIT Retail/OEM"
set "re={9[01]1[45]0000-0011-0000-[01]000-0000000FF1CE}"
(for /f %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "REG_SZ" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
        )
    )
)) 2>nul
复制代码

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{90160000-0011-0000-1000-0000000FF1CE}]
"DisplayName"="Microsoft Office Professional Plus 2016"
复制代码

@echo off & setlocal enabledelayedexpansion
set "_00=32BIT Volume"
set "_01=64BIT Volume"
set "_10=32BIT Retail/OEM"
set "_11=64BIT Retail/OEM"
set "v=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
set "re={9[01]160000-0011-0000-[01]000-0000000FF1CE}"
(for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (
    for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (
        if /i "%%b" == "reg_sz" (
            set "var=%%~nxa"
            for %%d in ("!var:~2,1!!var:~20,1!") do echo,%%c !_%%~d!
        ) 
    )
)) 2>nul
if not defined var echo,Office 2013 Not Installed
pause
复制代码