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 | 显示全部楼层

活跃 12530| 技术 4| 互助 4| 钻石 200

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

点评

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

活跃 15173| 技术 36| 互助 65| 钻石 260

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

这个代码更复杂

点评

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

活跃 12530| 技术 4| 互助 4| 钻石 200

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

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

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

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

评分

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

查看全部评分

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

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

slmgr.vbs -dlv 不就可以了吗

点评

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

活跃 15173| 技术 36| 互助 65| 钻石 260

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

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

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

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

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

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

本版积分规则

itsky2

15173

活跃

36

技术

65

互助
签到任务
最火的业界新闻
  • PD18W快充+7种协议 奥睿科20000mAh移动电源
  • 1TB固态硬盘已经跳水 要买赶紧的
  • 小米潘九堂:小米9处理器/相机这两项成本都
  • 小米9独占骁龙855?潘九堂回应
  • GTX 1660 Ti定价曝光:游戏性能超GTX 1070
  • “写字机器人”悄然流行:家长吐槽 教育界
  • Intel i9-9900KFC惊异曝光:肯德基特供版?
  • 全球第一款真无孔手机:魅族zero视频上手
  • 替代懒人支架!雷军演示小米9保护壳背带玩
  • 比米8窄40%!小米9实现3.6mm最美“下巴”:
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 爸爸的教育
  • 你小时候被打的最惨的一次是因为什么?
  • 为提高人们对濒危动物的认识,把一些濒危物
  • 要学会偶尔对世界说“去nm的”
  • 这才是真正的土味情话,真乃绝世宝典啊!!
  • 就是嘚瑟
  • 上帝创造这个世界......
  • 这小盆有友小小年纪就背负了不该有的债务
  • 可怜的娃
  • 晚上不吃饭真的能减肥吗?
关注官方微信
快速回复 返回顶部 返回列表