IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[分享] 分享一个检测集火的工具

[复制链接]
itsky2 发表于 2018-7-19 19:54:10 | 显示全部楼层 |阅读模式

本帖最后由 itsky2 于 2018-7-20 08:51 编辑

源码来自辰羿,经本人编译成exe,欢迎大家下载使用

注:使用了UPX压缩,报毒的可能性大

下载地址:https://pan.baidu.com/s/1X-qixVHvwWvc-sHUcdj7vw

附源码:
  1. @echo off
  2. cd /d "%~dp0"
  3. Mode con cols=65 lines=55
  4. color 1F
  5. cls

  6. SetLocal EnableDelayedExpansion

  7. if not exist "%Public%" title 检测 Office2010/2013/2016 激活状态
  8. if not exist "%Public%" goto:Check_Office

  9. cls
  10. title 检测激活状态
  11. if exist "%Windir%\Sysnative\sppsvc.exe" set SysPath=%Windir%\Sysnative
  12. if exist "%Windir%\System32\sppsvc.exe"  set SysPath=%Windir%\System32

  13. echo.
  14. echo Windows 激活状态:
  15. ver
  16. cscript //nologo %SysPath%\slmgr.vbs /dli
  17. cscript //nologo %SysPath%\slmgr.vbs /xpr

  18. echo.
  19. :Check_Office
  20. echo Office 2010 激活状态:
  21. set office=
  22. set installed=0
  23. FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
  24. if exist "%office%\OSPP.VBS" (
  25.         set installed=1
  26.         cd /d "%office%"
  27.         cscript //nologo ospp.vbs /dstatus
  28.         cd /d "%~dp0"
  29. )
  30. set office=
  31. FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
  32. if exist "%office%\OSPP.VBS" (
  33.         set installed=1
  34.         cd /d "%office%"
  35.         cscript //nologo ospp.vbs /dstatus
  36.         cd /d "%~dp0"
  37. )
  38. if %installed%==0 echo 本机未安装 Office 2010

  39. echo.
  40. echo Office 2013 激活状态:
  41. set office=
  42. set installed=0
  43. FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
  44. if exist "%office%\OSPP.VBS" (
  45.         set installed=1
  46.         cd /d "%office%"
  47.         cscript //nologo ospp.vbs /dstatus
  48.         cd /d "%~dp0"
  49. )
  50. set office=
  51. FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
  52. if exist "%office%\OSPP.VBS" (
  53.         set installed=1
  54.         cd /d "%office%"
  55.         cscript //nologo ospp.vbs /dstatus
  56.         cd /d "%~dp0"
  57. )
  58. if %installed%==0 echo 本机未安装 Office 2013

  59. echo.
  60. echo Office 2016 激活状态:
  61. set office=
  62. set installed=0
  63. FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
  64. if exist "%office%\OSPP.VBS" (
  65.         set installed=1
  66.         cd /d "%office%"
  67.         cscript //nologo ospp.vbs /dstatus
  68.         cd /d "%~dp0"
  69. )
  70. set office=
  71. FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\16.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
  72. if exist "%office%\OSPP.VBS" (
  73.         set installed=1
  74.         cd /d "%office%"
  75.         cscript //nologo ospp.vbs /dstatus
  76.         cd /d "%~dp0"
  77. )
  78. if %installed%==0 echo 本机未安装 Office 2016

  79. pause >nul
复制代码








天空是个不一样的地方,在这里:
有人品、没技术可以更快的学会技术;
有人品、有技术可以更快成为高手;
没人品、有技术等于0;
没人品、没技术尽早回火星吧。
1911336337 发表于 2018-7-19 23:18:28 | 显示全部楼层

活跃 7870| 技术 4| 互助 2| 钻石 0

slmgr.vbs -dlv   这个不难记住吧

点评

这个代码更复杂  详情 回复 发表于 2018-7-20 08:45
 楼主| itsky2 发表于 2018-7-20 08:45:12 | 显示全部楼层

活跃 10259| 技术 16| 互助 38| 钻石 40

1911336337 发表于 2018-7-19 23:18
slmgr.vbs -dlv   这个不难记住吧

这个代码更复杂

点评

度娘不服啊 有什么是我解决不了的 记不住的随时找我  详情 回复 发表于 2018-7-21 06:31
天空是个不一样的地方,在这里:
有人品、没技术可以更快的学会技术;
有人品、有技术可以更快成为高手;
没人品、有技术等于0;
没人品、没技术尽早回火星吧。
1911336337 发表于 2018-7-21 06:31:37 | 显示全部楼层

活跃 7870| 技术 4| 互助 2| 钻石 0

itsky2 发表于 2018-7-20 08:45
这个代码更复杂

度娘不服啊  有什么是我解决不了的 记不住的随时找我
hs3300 发表于 2018-7-21 21:26:53 | 显示全部楼层

活跃 1467| 技术 0| 互助 0| 钻石 5

天空是个不一样的地方,在这里: 有人品、没技术可以更快的学会技术;  有人品、有技术可以更快成为高手; 没人品、有技术等于0; 没人品、没技术尽早回火星吧。

评分

参与人数 1活跃 -5 收起 理由
LJCJR -5 无意义内容回复属于灌水,重罚!

查看全部评分

seatle 发表于 2018-7-23 17:01:04 | 显示全部楼层

活跃 7| 技术 0| 互助 0| 钻石 0

slmgr.vbs -dlv 不就可以了吗

点评

这个只能看Windows的  详情 回复 发表于 2018-7-23 18:07
 楼主| itsky2 发表于 2018-7-23 18:07:16 | 显示全部楼层

活跃 10259| 技术 16| 互助 38| 钻石 40

seatle 发表于 2018-7-23 17:01
slmgr.vbs -dlv 不就可以了吗

这个只能看Windows的
天空是个不一样的地方,在这里:
有人品、没技术可以更快的学会技术;
有人品、有技术可以更快成为高手;
没人品、有技术等于0;
没人品、没技术尽早回火星吧。
VMware111 发表于 2018-7-24 22:35:08 | 显示全部楼层

活跃 19| 技术 0| 互助 0| 钻石 0

学习一下,谢谢谢谢
shangyuming111 发表于 2018-7-30 17:30:12 | 显示全部楼层

活跃 9| 技术 0| 互助 0| 钻石 0

这个管用不?我也想试试
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

itsky2

10259

活跃

16

技术

38

互助
签到任务
最火的业界新闻
  • 华为Mate20 Pro CPU/GPU跑分实测:麒麟980
  • 海盗船发布Force系列MP510中端NVMe SSD新品
  • 全球首款石墨烯散热手机 华为Mate20 X发布
  • 华为Mate 20 Pro的“黑科技”:可以给其它
  • 西数新款蓝盘悄然现身:256MB缓存、180MB/s
  • 小米MIX3配色和存储细节提前曝光:三色、最
  • Intel继续堆核:笔记本迎来8核心16线程i9-9
  • AMD确认还有RX 580G、RX 570G显卡:中国特
  • 华为Mate 20系列未发布已遭黑 网友:稿子发
  • 349元加量不加价 小米米家行车记录仪1S发布
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 最不可思议的事
  • 提高EQ的30条
  • 告诉你是怎么被现实碾压的
  • 最强王者
  • 狗生已圆满
  • 程序猿最恐怖的是...
  • 一些媒体早就无xx底线
  • 设计神殿的衣服
  • 10胞胎的阿拉斯加,看一眼就被帅到了...
  • 那些经典的神回复,哈哈简直精彩了
关注官方微信
快速回复 返回顶部 返回列表