通过网页获取激活ID激活Windows及Microsoft Office

这个是使用批处理获取安装ID，再手动通过网页免费获取激活ID来激活的，效果跟你打电话获取到的激活ID是一样的。

@echo off
Setlocal Enabledelayedexpansion

:获取当前 Windows 系统版本
for /f "tokens=3" %%m in ('wmic os get Caption') do if /i "%%m" neq "" set Win=%%m

:输出 Windows 安装 ID
echo Windows %Win% 安装 ID：
echo.
for /f "tokens=3 delims=: " %%i in ('cscript %windir%\system32\slmgr.vbs /dti') do set ID=%%i
if /i %Win%==7 (echo %ID:~0,6%-%ID:~6,6%-%ID:~12,6%-%ID:~18,6%-%ID:~24,6%-%ID:~30,6%-%ID:~36,6%-%ID:~42,6%-%ID:~48,6%) else (echo %ID:~0,7%-%ID:~7,7%-%ID:~14,7%-%ID:~21,7%-%ID:~28,7%-%ID:~35,7%-%ID:~42,7%-%ID:~49,7%-%ID:~56,7%)

:保存 Windows 安装 ID 到文本文件
@echo Windows %Win% 安装 ID：> "%~dp0安装 ID.txt"
if /i %Win%==7 (echo %ID:~0,6%-%ID:~6,6%-%ID:~12,6%-%ID:~18,6%-%ID:~24,6%-%ID:~30,6%-%ID:~36,6%-%ID:~42,6%-%ID:~48,6% >> "%~dp0安装 ID.txt") else (echo %ID:~0,7%-%ID:~7,7%-%ID:~14,7%-%ID:~21,7%-%ID:~28,7%-%ID:~35,7%-%ID:~42,7%-%ID:~49,7%-%ID:~56,7% >> "%~dp0安装 ID.txt")
@echo %ID% >> "%~dp0安装 ID.txt"
echo. >> "%~dp0安装 ID.txt"
echo. >> "%~dp0安装 ID.txt"
echo.

:获取 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 软件 & goto END

:获取 Microsoft Office 版本
for /f "tokens=4 delims=, " %%i in ('cscript "%WordPath%ospp.vbs" /dstatus') do (set /a n+=1 & if !n! equ 3 set "V=%%i")
if !V! equ 14 set V=2010
if !V! equ 15 set V=2013
if !V! equ 16 set V=2016
if !V! equ 19 set V=2019
echo.

:输出 Microsoft Office 安装 ID
echo Microsoft Office %V% 安装 ID：
echo.
for /f "tokens=3 delims=:" %%i in ('cscript "%WordPath%ospp.vbs" /dinstid') do set ID=%%i
if /i !V!==2010 (echo%ID:~0,7%-%ID:~7,6%-%ID:~13,6%-%ID:~19,6%-%ID:~25,6%-%ID:~31,6%-%ID:~37,6%-%ID:~43,6%-%ID:~49,6%) else (echo%ID:~0,8%-%ID:~8,7%-%ID:~15,7%-%ID:~22,7%-%ID:~29,7%-%ID:~36,7%-%ID:~43,7%-%ID:~50,7%-%ID:~57,7%)

:保存 Microsoft Office 安装 ID 到文本文件
@echo Microsoft Office %V% 安装 ID：>> "%~dp0安装 ID.txt"
if /i !V!==2010 (echo%ID:~0,7%-%ID:~7,6%-%ID:~13,6%-%ID:~19,6%-%ID:~25,6%-%ID:~31,6%-%ID:~37,6%-%ID:~43,6%-%ID:~49,6% >> "%~dp0安装 ID.txt") else (echo%ID:~0,8%-%ID:~8,7%-%ID:~15,7%-%ID:~22,7%-%ID:~29,7%-%ID:~36,7%-%ID:~43,7%-%ID:~50,7%-%ID:~57,7% >> "%~dp0安装 ID.txt")
@echo%ID% >> "%~dp0安装 ID.txt"
echo. >> "%~dp0安装 ID.txt"
echo. >> "%~dp0安装 ID.txt"
echo. >> "%~dp0安装 ID.txt"
echo.
echo.
:END
echo.安装 ID 已保存，请查看当前目录下的《安装 ID.txt》
echo.
pause

Windows 7及Microsoft Office 2010为6位数的安装ID，Windows 8及Microsoft Office 2013以上为7位数的安装ID

方法：

先运行附件里的批处理获取安装ID，然后请访问下面网站中的任意一个，把安装ID复制粘贴到输入框里提交，等网站返回确认ID，复制下来用批处理命令导入即可实现激活。若出现错误提示，说明密钥可能被封，请更换密钥再试，如果错误码是020的说明微软不支持，大家就不要再用那种密钥去试了。
https://webact.185.hk/
http://getcid.cn
https://jihuo.ma/tool/mscid.html

激活需要用到的批处理命令
Windows
1.导入安装密钥
slmgr.vbs /ipk 374KC-FYD3Y-YV69W-32J24-CWRXV
2.导入确认ID，注意/atp前后的空格
slmgr.vbs /atp 确认ID

Office
1.导入安装密钥，需要修改 Microsoft Office 的安装路径
cscript "%ProgramFiles%\Microsoft Office\Office16\OSPP.VBS" /inpkey:DR8KN-V968Q-8WP37-R7GPB-R6YVM
2.导入确认ID
cscript "%ProgramFiles%\Microsoft Office\Office16\OSPP.VBS" /actcid:确认ID