Board logo

标题: [系统相关] [已解决]批处理获取操作系统和Office系列版本和位数 [打印本页]
作者: lantern    时间: 2014-5-18 06:27     标题: [已解决]批处理获取操作系统和Office系列版本和位数

本帖最后由 pcl_test 于 2016-9-7 23:20 编辑

2012 R2上正常，XP在虚拟机试了一下貌似不对啊
  1. @echo off

  2. IF EXIST "%PROGRAMFILES(X86)%" (set ARCH=64BIT) ELSE (set ARCH=32BIT)

  3. ::echo %PROCESSOR_ARCHITECTURE%|findstr AMD64>nul && set ARCH=x64 || set ARCH=x86

  4. for /f "tokens=3*" %%A in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "ProductName"') do echo You are Running:%%A %%B %ARCH%

  5. pause
复制代码
2012 R2 输出：
You are Running:Windows Server 2012 R2 Datacenter 64BIT
请按任意键继续. . .

XP输出：
You are Running:VERSION 3.0 32BIT
You are Running:Microsoft Windows XP 32BIT
請按任意鍵繼續 . . .

哪里出问题了？谢谢
作者: 522235677    时间: 2014-5-18 12:08

你是在和我们猜谜吗
作者: apang    时间: 2014-5-18 12:13

XP 的reg query 会自动加上一行reg自身的版本号：! reg.exe Version 3.0
  1. for /f "tokens=2*" %%A in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"^|find /i "ProductName"') do (

  2.     echo You are Running:%%B %ARCH%

  3. )
复制代码
或者
  1. for /f "tokens=2*" %%A in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v "ProductName"') do (

  2.     if /i "%%A" == "REG_SZ" echo You are Running:%%B %ARCH%

  3. )
复制代码
作者: lantern    时间: 2014-5-18 17:31

本帖最后由 lantern 于 2014-5-18 17:36 编辑

回复 3# apang
谢谢！参考这个又写了一段判断Office版本和BIT的，怎么把错误信息过滤掉？
  1. @echo off

  2. setlocal enabledelayedexpansion

  3. for /l %%a in (0,1,1) do (

  4. 	for /l %%b in (0,1,1) do (

  5. 		for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9%%b150000-0011-0000-%%a000-0000000FF1CE}"^|find /i "DisplayName"') do (

  6. 		set name=%%j

  7. 		)

  8. 		if %%a==1 (

  9. 			set arch=64BIT

  10. 		) else (

  11. 			set arch=32BIT

  12. 		)

  13. 		if %%b==0 (

  14. 			set edition=Volume

  15. 		) else (

  16. 			set edition=Retail/OEM

  17. 		)

  18. 	

  19. 	)

  20. )

  21. echo %name% %arch% %edition%

  22. pause
复制代码
现在输出是：
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
Microsoft Office Professional Plus 2013 64BIT Retail/OEM
请按任意键继续. . .

我只想要最后一行...

另外逻辑上是不是不对啊？我是Volume版本的，输出是Retail/OEM
正确的对应关系是
90150000-0011-0000-0000-0000000FF1CE Microsoft Office Professional Plus 2013 32BIT Volume
90150000-0011-0000-1000-0000000FF1CE Microsoft Office Professional Plus 2013 64BIT Volume
91150000-0011-0000-0000-0000000FF1CE Microsoft Office Professional Plus 2013 32BIT Retail/OEM
91150000-0011-0000-1000-0000000FF1CE Microsoft Office Professional Plus 2013 64BIT Retail/OEM
作者: lantern    时间: 2014-5-18 21:56

本帖最后由 lantern 于 2014-5-18 22:41 编辑

又改了一下，输出：
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
您当前的Office版本是: 64BIT Volume
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
您当前的Office版本是: 64BIT Volume
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
您当前的Office版本是:Microsoft Office Professional Plus 2013 64BIT Volume
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
错误: 系统找不到指定的注册表项或值。
您当前的Office版本是:Microsoft Office Professional Plus 2013 64BIT Volume
请按任意键继续. . .

我想到最后要么输出：您没有安装Microsoft Office，要么输出正确的office版本，怎么修改才能做到？谢谢
  1. @echo off

  2. ::setlocal enabledelayedexpansion

  3. rem 获取当前的Office版本

  4. rem 90(1)140000-0011-0000-0(1)000-0000000FF1CE Microsoft Office Professional Plus 2010

  5. for %%a in (0,1) do (

  6. 	for %%b in (1,0) do (

  7. 		for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9%%b140000-0011-0000-%%a000-0000000FF1CE}"^|find /i 

  8. 

  9. "DisplayName"') do (

  10. 		set name=%%j

  11. 		)

  12. 		if %%a==1 (

  13. 			if %%b==0 (

  14. 				set edition=Volume

  15. 			) else (

  16. 				set edition=Retail/OEM

  17. 			)

  18. 			set arch=64BIT

  19. 		) else (

  20. 			if %%b==0 (

  21. 				set edition=Volume

  22. 			) else (

  23. 				set edition=Retail/OEM

  24. 			)

  25. 			set arch=32BIT

  26. 		)

  27. 

  28. 	

  29. 	)

  30. )

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

  32. 

  33. rem 90(1)140000-0012-0000-0(1)000-0000000FF1CE Microsoft Office Standard 2010

  34. for %%a in (0,1) do (

  35. 	for %%b in (1,0) do (

  36. 		for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9%%b140000-0012-0000-%%a000-0000000FF1CE}"^|find /i 

  37. 

  38. "DisplayName"') do (

  39. 		set name=%%j

  40. 		)

  41. 		if %%a==1 (

  42. 			if %%b==0 (

  43. 				set edition=Volume

  44. 			) else (

  45. 				set edition=Retail/OEM

  46. 			)

  47. 			set arch=64BIT

  48. 		) else (

  49. 			if %%b==0 (

  50. 				set edition=Volume

  51. 			) else (

  52. 				set edition=Retail/OEM

  53. 			)

  54. 			set arch=32BIT

  55. 		)

  56. 

  57. 	

  58. 	)

  59. )

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

  61. 

  62. rem 90(1)150000-0011-0000-0(1)000-0000000FF1CE Microsoft Office Professional Plus 2013

  63. for %%a in (0,1) do (

  64. 	for %%b in (1,0) do (

  65. 		for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9%%b150000-0011-0000-%%a000-0000000FF1CE}"^|find /i "DisplayName"') do (

  66. 		set name=%%j

  67. 		)

  68. 		if %%a==1 (

  69. 			if %%b==0 (

  70. 				set edition=Volume

  71. 			) else (

  72. 				set edition=Retail/OEM

  73. 			)

  74. 			set arch=64BIT

  75. 		) else (

  76. 			if %%b==0 (

  77. 				set edition=Volume

  78. 			) else (

  79. 				set edition=Retail/OEM

  80. 			)

  81. 			set arch=32BIT

  82. 		)

  83. 

  84. 	

  85. 	)

  86. )

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

  88. 

  89. rem 90(1)150000-0012-0000-0(1)000-0000000FF1CE Microsoft Office Standard 2013

  90. for %%a in (0,1) do (

  91. 	for %%b in (1,0) do (

  92. 		for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9%%b150000-0012-0000-%%a000-0000000FF1CE}"^|find /i "DisplayName"') do (

  93. 		set name=%%j

  94. 		)

  95. 		if %%a==1 (

  96. 			if %%b==0 (

  97. 				set edition=Volume

  98. 			) else (

  99. 				set edition=Retail/OEM

  100. 			)

  101. 			set arch=64BIT

  102. 		) else (

  103. 			if %%b==0 (

  104. 				set edition=Volume

  105. 			) else (

  106. 				set edition=Retail/OEM

  107. 			)

  108. 			set arch=32BIT

  109. 		)

  110. 

  111. 	

  112. 	)

  113. )

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

  115. pause
复制代码
作者: apang    时间: 2014-5-18 22:51

  1. @echo off & setlocal enabledelayedexpansion

  2. set "_00=32BIT Volume"

  3. set "_01=64BIT Volume"

  4. set "_10=32BIT Retail/OEM"

  5. set "_11=64BIT Retail/OEM"

  6. set "v=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

  7. set "re={9[01]150000-0011-0000-[01]000-0000000FF1CE}"

  8. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  9.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  10.         if /i "%%b" == "reg_sz" (

  11.             set "var=%%~nxa"

  12.             for %%d in ("!var:~2,1!!var:~20,1!") do echo,%%c !_%%~d!

  13.         ) 

  14.     )

  15. )) 2>nul

  16. if not defined var echo,Office 2013 Not Installed

  17. pause
复制代码
作者: lantern    时间: 2014-5-19 06:11

apang 发表于 2014-5-18 22:51


多谢！暂且弄成这样了
Office/Project/Visio 2010/2013的版本获取真麻烦，情况太多了：
32位Office/Project/Visio 2010/2013 安装在32位系统中
32位Office/Project/Visio 2010/2013 安装在64位系统中
64位Office/Project/Visio 2010/2013 安装在64位系统中
还有同时装了2010和2013版本....
  1. @echo off

  2. title Microsoft Windows and Office Activate Helper

  3. setlocal enabledelayedexpansion

  4. :begin

  5. cls

  6. color 1F

  7. echo; -------=========Microsoft Windows and Office Activate Helper=========------

  8. echo;

  9. echo; THE FOLLOWING PRODUCTS CAN BE SUPPORTED:

  10. echo; Microsoft Windows Vista/7/8/8.1

  11. echo; Microsoft Windows Server 2008/2008R2/2012/2012R2

  12. echo; Microsoft Office/Project/Visio 2010/2013

  13. echo;

  14. echo; -------==========CURRENT OS OFFICE VISIO PROJECT VERSION==========---------

  15. echo;

  16. REM GET CURRENT OS VERSION

  17. IF EXIST "%PROGRAMFILES(X86)%" (set ARCH=64BIT) ELSE (set ARCH=32BIT)

  18. for /f "tokens=2*" %%A in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"^|find /i "ProductName"') do (echo; %%B %ARCH%)

  19. REM GET CURRENT OFFICE VISIO PROJECT VERSION

  20. set "_00=32BIT Volume"

  21. set "_01=64BIT Volume"

  22. set "_10=32BIT Retail/OEM"

  23. set "_11=64BIT Retail/OEM"

  24. set "v=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

  25. set "re={9[01]140000-0012-0000-[01]000-0000000FF1CE}"

  26. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  27.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  28.         if /i "%%b" == "reg_sz" (

  29.             set "var=%%~nxa"

  30.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  31.         )

  32.     )

  33. )) 2>nul

  34. 

  35. set "re={9[01]140000-0011-0000-[01]000-0000000FF1CE}"

  36. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  37.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  38.         if /i "%%b" == "reg_sz" (

  39.             set "var=%%~nxa"

  40.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  41.         )

  42.     )

  43. )) 2>nul

  44. 

  45. set "re={9[01]140000-0053-0000-[01]000-0000000FF1CE}"

  46. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  47.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  48.         if /i "%%b" == "reg_sz" (

  49.             set "var=%%~nxa"

  50.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  51.         )

  52.     )

  53. )) 2>nul

  54. 

  55. set "re={9[01]140000-0057-0000-[01]000-0000000FF1CE}"

  56. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  57.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  58.         if /i "%%b" == "reg_sz" (

  59.             set "var=%%~nxa"

  60.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  61.         )

  62.     )

  63. )) 2>nul

  64. 

  65. set "re={9[01]140000-003A-0000-[01]000-0000000FF1CE}"

  66. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  67.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  68.         if /i "%%b" == "reg_sz" (

  69.             set "var=%%~nxa"

  70.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  71.         )

  72.     )

  73. )) 2>nul

  74. 

  75. set "re={9[01]140000-003B-0000-[01]000-0000000FF1CE}"

  76. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  77.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  78.         if /i "%%b" == "reg_sz" (

  79.             set "var=%%~nxa"

  80.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  81.         )

  82.     )

  83. )) 2>nul

  84. 

  85. set "re={9[01]150000-0012-0000-[01]000-0000000FF1CE}"

  86. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  87.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  88.         if /i "%%b" == "reg_sz" (

  89.             set "var=%%~nxa"

  90.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  91.         )

  92.     )

  93. )) 2>nul

  94. 

  95. set "re={9[01]150000-0011-0000-[01]000-0000000FF1CE}"

  96. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  97.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  98.         if /i "%%b" == "reg_sz" (

  99.             set "var=%%~nxa"

  100.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  101.         )

  102.     )

  103. )) 2>nul

  104. 

  105. set "re={9[01]150000-0053-0000-[01]000-0000000FF1CE}"

  106. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  107.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  108.         if /i "%%b" == "reg_sz" (

  109.             set "var=%%~nxa"

  110.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  111.         )

  112.     )

  113. )) 2>nul

  114. 

  115. set "re={9[01]150000-0051-0000-[01]000-0000000FF1CE}"

  116. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  117.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  118.         if /i "%%b" == "reg_sz" (

  119.             set "var=%%~nxa"

  120.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  121.         )

  122.     )

  123. )) 2>nul

  124. 

  125. set "re={9[01]150000-003A-0000-[01]000-0000000FF1CE}"

  126. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  127.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  128.         if /i "%%b" == "reg_sz" (

  129.             set "var=%%~nxa"

  130.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  131.         )

  132.     )

  133. )) 2>nul

  134. 

  135. set "re={9[01]150000-003B-0000-[01]000-0000000FF1CE}"

  136. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  137.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  138.         if /i "%%b" == "reg_sz" (

  139.             set "var=%%~nxa"

  140.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  141.         )

  142.     )

  143. )) 2>nul

  144. 

  145. set "v=HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"

  146. set "re={9[01]140000-0012-0000-[01]000-0000000FF1CE}"

  147. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  148.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  149.         if /i "%%b" == "reg_sz" (

  150.             set "var=%%~nxa"

  151.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  152.         )

  153.     )

  154. )) 2>nul

  155. 

  156. set "re={9[01]140000-0011-0000-[01]000-0000000FF1CE}"

  157. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  158.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  159.         if /i "%%b" == "reg_sz" (

  160.             set "var=%%~nxa"

  161.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  162.         )

  163.     )

  164. )) 2>nul

  165. 

  166. set "re={9[01]140000-0053-0000-[01]000-0000000FF1CE}"

  167. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  168.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  169.         if /i "%%b" == "reg_sz" (

  170.             set "var=%%~nxa"

  171.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  172.         )

  173.     )

  174. )) 2>nul

  175. 

  176. set "re={9[01]140000-0057-0000-[01]000-0000000FF1CE}"

  177. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  178.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  179.         if /i "%%b" == "reg_sz" (

  180.             set "var=%%~nxa"

  181.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  182.         )

  183.     )

  184. )) 2>nul

  185. 

  186. set "re={9[01]140000-003A-0000-[01]000-0000000FF1CE}"

  187. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  188.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  189.         if /i "%%b" == "reg_sz" (

  190.             set "var=%%~nxa"

  191.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  192.         )

  193.     )

  194. )) 2>nul

  195. 

  196. set "re={9[01]140000-003B-0000-[01]000-0000000FF1CE}"

  197. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  198.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  199.         if /i "%%b" == "reg_sz" (

  200.             set "var=%%~nxa"

  201.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  202.         )

  203.     )

  204. )) 2>nul

  205. 

  206. set "re={9[01]150000-0012-0000-[01]000-0000000FF1CE}"

  207. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  208.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  209.         if /i "%%b" == "reg_sz" (

  210.             set "var=%%~nxa"

  211.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  212.         )

  213.     )

  214. )) 2>nul

  215. 

  216. set "re={9[01]150000-0011-0000-[01]000-0000000FF1CE}"

  217. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  218.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  219.         if /i "%%b" == "reg_sz" (

  220.             set "var=%%~nxa"

  221.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  222.         )

  223.     )

  224. )) 2>nul

  225. 

  226. set "re={9[01]150000-0053-0000-[01]000-0000000FF1CE}"

  227. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  228.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  229.         if /i "%%b" == "reg_sz" (

  230.             set "var=%%~nxa"

  231.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  232.         )

  233.     )

  234. )) 2>nul

  235. 

  236. set "re={9[01]150000-0051-0000-[01]000-0000000FF1CE}"

  237. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  238.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  239.         if /i "%%b" == "reg_sz" (

  240.             set "var=%%~nxa"

  241.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  242.         )

  243.     )

  244. )) 2>nul

  245. 

  246. set "re={9[01]150000-003A-0000-[01]000-0000000FF1CE}"

  247. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  248.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  249.         if /i "%%b" == "reg_sz" (

  250.             set "var=%%~nxa"

  251.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  252.         )

  253.     )

  254. )) 2>nul

  255. 

  256. set "re={9[01]150000-003B-0000-[01]000-0000000FF1CE}"

  257. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  258.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  259.         if /i "%%b" == "reg_sz" (

  260.             set "var=%%~nxa"

  261.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  262.         )

  263.     )

  264. )) 2>nul

  265. echo; ---------=========================================================---------

  266. echo; 

  267. echo; 1.Online Activate Microsoft Windows

  268. echo;

  269. echo; 2.Online Activate Microsoft Office

  270. echo;

  271. echo; 3.Offline Activate Microsoft Windows

  272. echo;

  273. echo; 4.Offline Activate Microsoft Office

  274. echo;

  275. set /p ans=PLEASE CHOOSE 1/2/3/4 AND PRESS ENTER TO CONTINUE:

  276. if "%ans%"=="1" goto onlinewindows

  277. if "%ans%"=="2" goto onlineoffice

  278. if "%ans%"=="3" goto offlinewindows

  279. if "%ans%"=="4" goto offlineoffice

  280. goto begin

  281. REM Online Activate Microsoft Windows

  282. :onlinewindows

  283. goto inputkey

  284. 

  285. :inputkey

  286. cls

  287. set /p inputkey=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:

  288. cscript /nologo %windir%\system32\slmgr.vbs /ipk %inputkey% | findstr 成功地安装了产品密钥 >nul && goto ato || goto reenter

  289. 

  290. :ato

  291. cls

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

  293. 

  294. :done

  295. cls

  296. echo;已成功激活

  297. timeout 5

  298. goto begin

  299. 

  300. :reenter

  301. cls

  302. echo;密钥无效，请更换密钥重新输入

  303. timeout 5

  304. goto inputkey

  305. 

  306. REM Offline Activate Microsoft Windows

  307. :offlinewindows

  308. goto inputkeyb

  309. 

  310. :inputkeyb

  311. cls

  312. set /p inputkeyb=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:

  313. cscript /nologo %windir%\system32\slmgr.vbs /ipk %inputkeyb% | findstr 成功地安装了产品密钥 >nul && goto atob || goto reenter

  314. 

  315. :atob

  316. cls

  317. echo;免费、无广告、无需注册、不限时间、不限流量VPN：http://tenacy-free.com/

  318. echo;

  319. echo;VPN使用教程：http://tenacy-free.com/tutorials/pptp-windows-8

  320. echo;

  321. echo;Skype下载：http://www.skype.com/go/getskype-msi

  322. echo;

  323. echo;英国电话号码：8000188354

  324. echo;

  325. echo;语音翻译：http://www.lenovo.me/wp-content/uploads/englishtochinese.txt

  326. echo;

  327. cscript /nologo %windir%\system32\slmgr.vbs /dti >dti.txt

  328. echo;安装ID(9组×7位,共63位)已保存在当前目录dti.txt文件中

  329. echo;

  330. echo;请挂VPN用Skype打英国电话,记下确认ID

  331. echo; 

  332. echo; a.密钥无效(无法获得确认ID)

  333. echo;

  334. echo; b.密钥有效(已经获得确认ID)

  335. echo;

  336. set /p ab=请输入字母a or b后按Enter键继续:

  337. if "%ab%"=="a" goto inputkeyb

  338. if "%ab%"=="b" goto atoc

  339. 

  340. :atoc

  341. cls

  342. set /p wcid=请输入确认ID(8组×6位,共48位,连续输入,不用输-):

  343. cscript /nologo %windir%\system32\slmgr.vbs /atp %wcid% | findstr /x "确认 ID 成功地存储" >nul && goto done || goto reenter

  344. 

  345. REM Online Activate Microsoft Office

  346. :onlineoffice

  347. goto ipk

  348. 

  349. :ipk

  350. cls

  351. set /p ipk=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:

  352. (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

  353. (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

  354. (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

  355. (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

  356. cscript "%installroot%\ospp.vbs" /inpkey:%ipk% | findstr /x "<Product key installation successful>" >nul && goto act || goto reenterb

  357. 

  358. :act

  359. (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

  360. (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

  361. (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

  362. (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

  363. cscript "%installroot%\ospp.vbs" /act | findstr /x "<Product activation successful>" >nul && goto done || goto reenterb

  364. 

  365. :reenterb

  366. cls

  367. echo;密钥无效，请更换密钥重新输入

  368. timeout 5

  369. goto ipk

  370. 

  371. REM Offline Activate Microsoft Office

  372. :offlineoffice

  373. goto ipkb

  374. 

  375. :ipkb

  376. cls

  377. set /p ipk=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:

  378. (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

  379. (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

  380. (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

  381. (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

  382. cscript "%installroot%\ospp.vbs" /inpkey:%ipk% | findstr /x "<Product key installation successful>" >nul && goto actb || goto reenterb

  383. 

  384. :actb

  385. cls

  386. echo;免费、无广告、无需注册、不限时间、不限流量VPN：http://tenacy-free.com/

  387. echo;

  388. echo;VPN使用教程：http://tenacy-free.com/tutorials/pptp-windows-8

  389. echo;

  390. echo;Skype下载：http://www.skype.com/go/getskype-msi

  391. echo;

  392. echo;英国电话号码：8000188354

  393. echo;

  394. echo;语音翻译：http://www.lenovo.me/wp-content/uploads/englishtochinese.txt

  395. echo;

  396. (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

  397. (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

  398. (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

  399. (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

  400. cscript "%installroot%\ospp.vbs" /dinstid >dinstid.txt

  401. echo;安装ID(9组×7位,共63位)已保存在当前目录dinstid.txt文件中

  402. echo;

  403. echo;请挂VPN用Skype打英国电话,记下确认ID

  404. echo; 

  405. echo; a.密钥无效(无法获得确认ID)

  406. echo;

  407. echo; b.密钥有效(已经获得确认ID)

  408. echo;

  409. set /p ab=请输入字母a or b后按Enter键继续:

  410. if "%ab%"=="a" goto ipkb

  411. if "%ab%"=="b" goto actc

  412. 

  413. :actc

  414. cls

  415. set /p ocid=请输入确认ID(8组×6位,共48位,连续输入,不用输-):

  416. (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

  417. (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

  418. (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

  419. (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

  420. cscript "%installroot%\ospp.vbs" /actcid:%ocid% | findstr /x "<Offline product activation successful>" >nul && goto done || goto reenterb
复制代码
作者: lantern    时间: 2014-5-19 06:44

本帖最后由 lantern 于 2014-5-19 07:04 编辑

还有个需求：如何判断Office/Project/Visio是否已经激活？也想整合到前面代码中去
只装了三者之一的话，findstr查找LICENSED就行，但是装了三者之二、之三的话，如何区分LICENSED分别对应那个产品呢？谢谢
KMS激活的和下面的输出不一样，但是都是---------------------------------------隔开的，这个能帮助分块提取产品名称和LICENSED吗？
  1. Microsoft Windows [版本 6.3.9600]

  2. (c) 2013 Microsoft Corporation。保留所有权利。

  3. 

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

  5. 

  6. C:\Program Files\Microsoft Office\Office15>CSCRIPT OSPP.VBS /DSTATUS

  7. Microsoft (R) Windows Script Host Version 5.8

  8. 版权所有(C) Microsoft Corporation。保留所有权利。

  9. 

  10. ---Processing--------------------------

  11. ---------------------------------------

  12. SKU ID: 2b88c4f2-ea8f-43cd-805e-4d41346e18a7

  13. LICENSE NAME: Office 15, OfficeProPlusVL_MAK edition

  14. LICENSE DESCRIPTION: Office 15, RETAIL(MAK) channel

  15. LICENSE STATUS:  ---LICENSED---

  16. Last 5 characters of installed product key: 2YQ67

  17. ---------------------------------------

  18. SKU ID: 3e4294dd-a765-49bc-8dbd-cf8b62a4bd3d

  19. LICENSE NAME: Office 15, OfficeVisioProVL_MAK edition

  20. LICENSE DESCRIPTION: Office 15, RETAIL(MAK) channel

  21. LICENSE STATUS:  ---LICENSED---

  22. Last 5 characters of installed product key: RM3B4

  23. ---------------------------------------

  24. SKU ID: ed34dc89-1c27-4ecd-8b2f-63d0f4cedc32

  25. LICENSE NAME: Office 15, OfficeProjectProVL_MAK edition

  26. LICENSE DESCRIPTION: Office 15, RETAIL(MAK) channel

  27. LICENSE STATUS:  ---LICENSED---

  28. Last 5 characters of installed product key: RVR2M

  29. ---------------------------------------

  30. ---------------------------------------

  31. ---Exiting-----------------------------

  32. 

  33. C:\Program Files\Microsoft Office\Office15>
复制代码
作者: apang    时间: 2014-5-19 11:32

回复 7# lantern


    set "re={9[01]150000-0011-0000-[01]000-0000000FF1CE}" 改成 set "re={9[01]1[45]0000-00..-0000-[01]000-0000000FF1CE}"
可以精简掉很多重复性代码
运行ospp.vbs的代码似乎可以这样：
  1. @echo off & setlocal enabledelayedexpansion

  2. set "file=%ProgramFiles%\MICROSOFT OFFICE\OFFICE15\OSPP.VBS"

  3. for /f "delims=" %%a in ('cscript -nologo "%file%"') do (

  4.     set "str=%%a"

  5.     if defined flag (

  6.         if "!str:NAME:=!" neq "!str!" (

  7.             set "Name=!str:*NAME:=!"

  8.         ) else if "!str:STATUS:=!" neq "!str!" (

  9.             echo,!Name! !str:*STATUS:=!

  10.             set "flag="

  11.         )

  12.     ) else if "!str:-=!"=="" set flag=1

  13. )

  14. pause
复制代码
作者: lantern    时间: 2014-5-19 14:24

回复  lantern
set "re={9[01]150000-0011-0000-[01]000-0000000FF1CE}" 改成 set "re={9[01]1[4 ...
apang 发表于 2014-5-19 11:32

多谢！这2段还能合并吗？...部分一样的
set "v=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
...
set "v=HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
...

后面Office激活的部分我先获取安装路径才执行，一般应该只存在一个%installroot%，是没有问题的，但是有可能2个或以上同时存在，该如何处理？
  1. (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

  2. (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

  3. (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

  4. (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
复制代码
  1. @echo off

  2. title Microsoft Windows and Office Activate Helper

  3. setlocal enabledelayedexpansion

  4. :begin

  5. cls

  6. color 1F

  7. echo; -------=========Microsoft Windows and Office Activate Helper=========------

  8. echo;

  9. echo; THE FOLLOWING PRODUCTS CAN BE SUPPORTED:

  10. echo; Microsoft Windows Vista/7/8/8.1

  11. echo; Microsoft Windows Server 2008/2008R2/2012/2012R2

  12. echo; Microsoft Office/Project/Visio 2010/2013

  13. echo;

  14. echo; -------==========CURRENT OS OFFICE VISIO PROJECT VERSION==========---------

  15. echo;

  16. REM GET CURRENT OS VERSION

  17. if exist "%PROGRAMFILES(X86)%" (set arch=64BIT) else (set arch=32BIT)

  18. for /f "tokens=2*" %%i in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"^|find /i "ProductName"') do (echo; %%j %arch%)

  19. REM GET CURRENT OFFICE VISIO PROJECT VERSION

  20. set "_00=32BIT Volume"

  21. set "_01=64BIT Volume"

  22. set "_10=32BIT Retail/OEM"

  23. set "_11=64BIT Retail/OEM"

  24. set "v=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

  25. set "re={9[01]1[45]0000-0012-0000-[01]000-0000000FF1CE}"

  26. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  27.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  28.         if /i "%%b" == "reg_sz" (

  29.             set "var=%%~nxa"

  30.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  31.         )

  32.     )

  33. )) 2>nul

  34. 

  35. set "re={9[01]1[45]0000-0011-0000-[01]000-0000000FF1CE}"

  36. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  37.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  38.         if /i "%%b" == "reg_sz" (

  39.             set "var=%%~nxa"

  40.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  41.         )

  42.     )

  43. )) 2>nul

  44. 

  45. set "re={9[01]1[45]0000-0051-0000-[01]000-0000000FF1CE}"

  46. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  47.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  48.         if /i "%%b" == "reg_sz" (

  49.             set "var=%%~nxa"

  50.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  51.         )

  52.     )

  53. )) 2>nul

  54. 

  55. set "re={9[01]1[45]0000-0053-0000-[01]000-0000000FF1CE}"

  56. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  57.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  58.         if /i "%%b" == "reg_sz" (

  59.             set "var=%%~nxa"

  60.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  61.         )

  62.     )

  63. )) 2>nul

  64. 

  65. set "re={9[01]1[45]0000-0057-0000-[01]000-0000000FF1CE}"

  66. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  67.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  68.         if /i "%%b" == "reg_sz" (

  69.             set "var=%%~nxa"

  70.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  71.         )

  72.     )

  73. )) 2>nul

  74. 

  75. set "re={9[01]1[45]0000-003A-0000-[01]000-0000000FF1CE}"

  76. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  77.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  78.         if /i "%%b" == "reg_sz" (

  79.             set "var=%%~nxa"

  80.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  81.         )

  82.     )

  83. )) 2>nul

  84. 

  85. set "re={9[01]1[45]0000-003B-0000-[01]000-0000000FF1CE}"

  86. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  87.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  88.         if /i "%%b" == "reg_sz" (

  89.             set "var=%%~nxa"

  90.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  91.         )

  92.     )

  93. )) 2>nul

  94. 

  95. set "v=HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"

  96. set "re={9[01]1[45]0000-0012-0000-[01]000-0000000FF1CE}"

  97. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  98.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  99.         if /i "%%b" == "reg_sz" (

  100.             set "var=%%~nxa"

  101.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  102.         )

  103.     )

  104. )) 2>nul

  105. 

  106. set "re={9[01]1[45]0000-0011-0000-[01]000-0000000FF1CE}"

  107. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  108.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  109.         if /i "%%b" == "reg_sz" (

  110.             set "var=%%~nxa"

  111.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  112.         )

  113.     )

  114. )) 2>nul

  115. 

  116. set "re={9[01]1[45]0000-0051-0000-[01]000-0000000FF1CE}"

  117. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  118.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  119.         if /i "%%b" == "reg_sz" (

  120.             set "var=%%~nxa"

  121.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  122.         )

  123.     )

  124. )) 2>nul

  125. 

  126. set "re={9[01]1[45]0000-0053-0000-[01]000-0000000FF1CE}"

  127. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  128.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  129.         if /i "%%b" == "reg_sz" (

  130.             set "var=%%~nxa"

  131.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  132.         )

  133.     )

  134. )) 2>nul

  135. 

  136. set "re={9[01]1[45]0000-0057-0000-[01]000-0000000FF1CE}"

  137. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  138.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  139.         if /i "%%b" == "reg_sz" (

  140.             set "var=%%~nxa"

  141.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  142.         )

  143.     )

  144. )) 2>nul

  145. 

  146. set "re={9[01]1[45]0000-003A-0000-[01]000-0000000FF1CE}"

  147. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  148.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  149.         if /i "%%b" == "reg_sz" (

  150.             set "var=%%~nxa"

  151.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  152.         )

  153.     )

  154. )) 2>nul

  155. 

  156. set "re={9[01]1[45]0000-003B-0000-[01]000-0000000FF1CE}"

  157. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  158.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  159.         if /i "%%b" == "reg_sz" (

  160.             set "var=%%~nxa"

  161.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  162.         )

  163.     )

  164. )) 2>nul

  165. echo; ---------=========================================================---------

  166. echo; 

  167. echo; 1.Online Activate Microsoft Windows

  168. echo;

  169. echo; 2.Online Activate Microsoft Office

  170. echo;

  171. echo; 3.Offline Activate Microsoft Windows

  172. echo;

  173. echo; 4.Offline Activate Microsoft Office

  174. echo;

  175. set /p ans=PLEASE CHOOSE 1/2/3/4 AND PRESS ENTER TO CONTINUE:

  176. if "%ans%"=="1" goto onlinewindows

  177. if "%ans%"=="2" goto onlineoffice

  178. if "%ans%"=="3" goto offlinewindows

  179. if "%ans%"=="4" goto offlineoffice

  180. goto begin

  181. REM Online Activate Microsoft Windows

  182. :onlinewindows

  183. goto inputkey

  184. 

  185. :inputkey

  186. cls

  187. set /p inputkey=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:

  188. cscript /nologo %windir%\system32\slmgr.vbs /ipk %inputkey% | findstr /x "成功地安装了产品密钥" >nul && goto ato || goto reenter

  189. 

  190. :ato

  191. cls

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

  193. 

  194. :done

  195. cls

  196. echo;ACTIVATION SUCCESSFUL!

  197. timeout 5

  198. goto begin

  199. 

  200. :reenter

  201. cls

  202. echo;密钥无效，请更换密钥重新输入

  203. timeout 5

  204. goto inputkey

  205. 

  206. REM Offline Activate Microsoft Windows

  207. :offlinewindows

  208. goto inputkeyb

  209. 

  210. :inputkeyb

  211. cls

  212. set /p inputkeyb=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:

  213. cscript /nologo %windir%\system32\slmgr.vbs /ipk %inputkeyb% | findstr /x "成功地安装了产品密钥" >nul && goto atob || goto reenter

  214. 

  215. :atob

  216. cls

  217. echo;免费、无广告、无需注册、不限时间、不限流量VPN：http://tenacy-free.com/

  218. echo;

  219. echo;VPN使用教程：http://tenacy-free.com/tutorials/pptp-windows-8

  220. echo;

  221. echo;Skype下载：http://www.skype.com/go/getskype-msi

  222. echo;

  223. echo;英国电话号码：8000188354

  224. echo;

  225. echo;语音翻译：http://www.lenovo.me/wp-content/uploads/englishtochinese.txt

  226. echo;

  227. cscript /nologo %windir%\system32\slmgr.vbs /dti >dti.txt

  228. echo;安装ID(9组×7位,共63位)已保存在当前目录dti.txt文件中

  229. echo;

  230. echo;请挂VPN用Skype打英国电话,记下确认ID

  231. echo; 

  232. echo; a.密钥无效(无法获得确认ID)

  233. echo;

  234. echo; b.密钥有效(已经获得确认ID)

  235. echo;

  236. set /p ab=请输入字母a or b后按Enter键继续:

  237. if "%ab%"=="a" goto inputkeyb

  238. if "%ab%"=="b" goto atoc

  239. 

  240. :atoc

  241. cls

  242. set /p wcid=请输入确认ID(8组×6位,共48位,连续输入,不用输-):

  243. cscript /nologo %windir%\system32\slmgr.vbs /atp %wcid% | findstr /x "确认 ID 成功地存储" >nul && goto done || goto reenter

  244. 

  245. REM Online Activate Microsoft Office

  246. :onlineoffice

  247. goto ipk

  248. 

  249. :ipk

  250. cls

  251. set /p ipk=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:

  252. (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

  253. (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

  254. (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

  255. (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

  256. cscript "%installroot%\ospp.vbs" /inpkey:%ipk% | findstr /x "<Product key installation successful>" >nul && goto act || goto reenterb

  257. 

  258. :act

  259. (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

  260. (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

  261. (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

  262. (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

  263. cscript "%installroot%\ospp.vbs" /act | findstr /x "<Product activation successful>" >nul && goto done || goto reenterb

  264. 

  265. :reenterb

  266. cls

  267. echo;密钥无效，请更换密钥重新输入

  268. timeout 5

  269. goto ipk

  270. 

  271. REM Offline Activate Microsoft Office

  272. :offlineoffice

  273. goto ipkb

  274. 

  275. :ipkb

  276. cls

  277. set /p ipk=PLEASE ENTER PRODUCT KEY LIKE XXXXX-XXXXX-XXXXX-XXXXX-XXXXX AND PRESS ENTER TO CONTINUE:

  278. (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

  279. (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

  280. (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

  281. (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

  282. cscript "%installroot%\ospp.vbs" /inpkey:%ipk% | findstr /x "<Product key installation successful>" >nul && goto actb || goto reenterb

  283. 

  284. :actb

  285. cls

  286. echo;免费、无广告、无需注册、不限时间、不限流量VPN：http://tenacy-free.com/

  287. echo;

  288. echo;VPN使用教程：http://tenacy-free.com/tutorials/pptp-windows-8

  289. echo;

  290. echo;Skype下载：http://www.skype.com/go/getskype-msi

  291. echo;

  292. echo;英国电话号码：8000188354

  293. echo;

  294. echo;语音翻译：http://www.lenovo.me/wp-content/uploads/englishtochinese.txt

  295. echo;

  296. (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

  297. (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

  298. (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

  299. (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

  300. cscript "%installroot%\ospp.vbs" /dinstid >dinstid.txt

  301. echo;安装ID(9组×7位,共63位)已保存在当前目录dinstid.txt文件中

  302. echo;

  303. echo;请挂VPN用Skype打英国电话,记下确认ID

  304. echo; 

  305. echo; a.密钥无效(无法获得确认ID)

  306. echo;

  307. echo; b.密钥有效(已经获得确认ID)

  308. echo;

  309. set /p ab=请输入字母a or b后按Enter键继续:

  310. if "%ab%"=="a" goto ipkb

  311. if "%ab%"=="b" goto actc

  312. 

  313. :actc

  314. cls

  315. set /p ocid=请输入确认ID(8组×6位,共48位,连续输入,不用输-):

  316. (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

  317. (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

  318. (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

  319. (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

  320. cscript "%installroot%\ospp.vbs" /actcid:%ocid% | findstr /x "<Offline product activation successful>" >nul && goto done || goto reenterb
复制代码
作者: lantern    时间: 2014-5-22 05:51

本帖最后由 lantern 于 2014-5-22 06:03 编辑

回复 6# apang 
  1. set "_00=32BIT Volume"

  2. set "_01=64BIT Volume"

  3. set "_10=32BIT Retail/OEM"

  4. set "_11=64BIT Retail/OEM"

  5. set "re={9[01]1[45]0000-0011-0000-[01]000-0000000FF1CE}"

  6. (for /f %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" ^| findstr /ie %re%') do (

  7.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  8.         if /i "%%b" == "REG_SZ" (

  9.             set "var=%%~nxa"

  10.             for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!

  11.         )

  12.     )

  13. )) 2>nul
复制代码
apang能不能讲解一下这段代码？set和最后一个for看不明白
作者: apang    时间: 2014-5-22 16:52

本帖最后由 apang 于 2014-5-22 17:30 编辑

回复 11# lantern

    第一个for 得到的%%a值形如：
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{90150000-0011-0000-0000-0000000FF1CE}
set "var=%%~nxa" 就是将 {90150000-0011-0000-0000-0000000FF1CE} 赋值给var
取var值第2位和20位（即00）
for %%d in ("!var:~2,1!!var:~20,1!") do echo; %%c !_%%~d!
也就是 for %%d in ("00") do echo; %%c !_%%~d!
变量 _00 前面已有定义，值为 32BIT Volume
作者: lantern    时间: 2014-5-23 01:33

回复 12# apang
~nxa 这种哪里有教程吗，想看看？
作者: Batcher    时间: 2014-5-23 08:42

回复 13# lantern


批处理for命令从入门到精通以及配套练习题
http://bbs.bathome.net/thread-2189-1-1.html
http://bbs.bathome.net/thread-2336-1-1.html

浅谈批处理命令for中的变量扩展
http://bbs.bathome.net/thread-2205-1-1.html
作者: lantern    时间: 2016-9-7 23:08

apang 发表于 2014-5-18 22:51 
  1. Windows Registry Editor Version 5.00

  2. 

  3. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{90160000-0011-0000-1000-0000000FF1CE}]

  4. "DisplayName"="Microsoft Office Professional Plus 2016"
复制代码
  1. @echo off & setlocal enabledelayedexpansion

  2. set "_00=32BIT Volume"

  3. set "_01=64BIT Volume"

  4. set "_10=32BIT Retail/OEM"

  5. set "_11=64BIT Retail/OEM"

  6. set "v=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

  7. set "re={9[01]160000-0011-0000-[01]000-0000000FF1CE}"

  8. (for /f "delims=" %%a in ('reg query "%v%" ^| findstr /ie %re%') do (

  9.     for /f "tokens=2*" %%b in ('reg query "%%a" /v "DisplayName"') do (

  10.         if /i "%%b" == "reg_sz" (

  11.             set "var=%%~nxa"

  12.             for %%d in ("!var:~2,1!!var:~20,1!") do echo,%%c !_%%~d!

  13.         ) 

  14.     )

  15. )) 2>nul

  16. if not defined var echo,Office 2013 Not Installed

  17. pause
复制代码
今天想试试office 2016，但运行后为何检测不到了？
作者: CrLf    时间: 2016-9-8 00:09

回复 15# lantern


    昵称暴露驾龄



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2