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

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

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

点评

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

活跃 7513| 技术 16| 互助 32| 钻石 40

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

这个代码更复杂

点评

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

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

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

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

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

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

评分

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

查看全部评分

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

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

slmgr.vbs -dlv 不就可以了吗

点评

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

活跃 7513| 技术 16| 互助 32| 钻石 40

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

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

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

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

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

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

本版积分规则

itsky2

7513

活跃

16

技术

32

互助
签到任务
最火的业界新闻
  • 这是GTX 2060的3DMark跑分?居然可以和1080
  • 坚果Pro 2S信息汇总:骁龙710加持 8月20日
  • 分析师:我们正在迎来闪存价格的崩盘
  • 微星RTX 2080/2080 Ti显卡抢先曝光:11GB G
  • AMD全新路线图曝光:Zen3架构确认登陆桌面
  • NVIDIA RTX 2080显卡内部首曝:核心代号TU1
  • 外媒:一加6T将于10月份推出 当地售价或为5
  • 899元!云米互联网燃气热水器1A发布:±1℃
  • 雷蛇天狼星专业版是一款专用于游戏的高保真
  • 分析师:我们正在迎来闪存价格的崩盘
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 一个不是很快乐的父亲节……
  • 二哈把小男孩的暑假作业撕碎了,可真是高兴
  • 相亲遇到奇葩男!连饭店老板都看不下去了:
  • 有这样的朋友真好
  • 10道智力测试,听说做对5道智商就有140
  • 恋爱
  • 还有治疗的机会吗?
  • 2018新婚姻观曝光:“妈,我决定不结婚了”
  • 他在世界各地伪装行骗,16岁就骗过了全世界
  • 哪个水池的水先满
关注官方微信
快速回复 返回顶部 返回列表