Code666 (代码贴、代码片段)
创建
最近
趋势
关于
[DOS] 内网注册kms.bat →→→→→
进入此内容的聊天室
来自 Tinct Gibbon, 2022-11-21, 写在 DOS, 查看 51 次.
URL
http://www.code666.cn/view/b4a7c65a
下载便签
或
查看源码
—
扩张便签
来填满整个浏览器
@
echo
off
title
内网kms激活助手
color f9
cls
::申请管理员权限
>
nul
2
>&
1 "
%
SYSTEMROOT
%
\system32\cacls.exe" "
%
SYSTEMROOT
%
\system32\config\system"
if
'
%
errorlevel
%
'
NEQ
'0'
(
goto
UACPrompt
)
else
(
goto
gotAdmin
)
:
UACPrompt
echo
Set
UAC = CreateObject
^(
"Shell.Application"
^)
>
"
%
temp
%
\getadmin.vbs"
echo
UAC.ShellExecute "
%
~s0
", "", "", "runas", 1
>>
"
%
temp
%
\getadmin.vbs"
"
%
temp
%
\getadmin.vbs"
exit
/B
:
gotAdmin
if
exist
"
%
temp
%
\getadmin.vbs"
(
del
"
%
temp
%
\getadmin.vbs"
)
:
start
cls
echo
注意:仅在内网情况下可以激活
echo
.
echo
正在检查与激活服务器的连接情况......请耐心等待
ping -n 1 192.168.70.119
|
find "超时"
>
NUL
&&
goto
fail
ping -n 1 192.168.70.119
|
find "目标主机"
>
NUL
&&
goto
fail
ping -n 1 192.168.70.119
|
find "无法访问"
>
nul
&&
goto
fail
ping -n 1 192.168.70.119
|
find "故障"
>
nul
&&
goto
fail
ping -n 1 192.168.70.119
|
find "找不到"
>
nul
&&
goto
fail
echo
成功连接
echo
.
:
menu
echo
请选择项目:
echo
= = = = = = = = = = = = = = = = = = = = = =
echo
【1】安装 Windows10 Pro 密钥 并设置 激活服务器(Win11 Pro通用)
echo
【2】设置 Office LTSC 激活服务器
(
office16以上
)
echo
.
echo
【3】仅设置 Windows 激活服务器
echo
.
echo
注意:本工具仅能帮助连接内网的激活认证服务器
echo
【0】检查激活状态
echo
= = = = = = = = = = = = = = = = = = = = = =
echo
.
:
select
set
/p a=请输入数字后回车:
If
"
%
a
%
"=="0"
goto
check
If
"
%
a
%
"=="1"
goto
Windows10key
If
"
%
a
%
"=="2"
goto
Office16
If
"
%
a
%
"=="3"
goto
kms
echo
.
&
echo
输入无效,请重新输入.
pause
>
nul
goto
select
:
Windows10key
cls
echo
-------------------------------------------
echo
正在安装 Windows10 Pro 密钥...(Win11通用)
slmgr /ipk W269N-WFGWX-YVC9B-4J6C9-T83GX
echo
.
echo
连接激活服务器...
echo
会有几个窗口弹出需要手动确认
slmgr /skms 192.168.70.119:1688
timeout /nobreak /t 1
>
nul
echo
重启激活服务...
slmgr /ato
echo
-------------------------------------------
echo
.
echo
请查看是否完成
echo
.
pause
cls
goto
menu
:
Office16
cls
echo
-------------------------------------------
echo
连接激活服务器...
cd
"C:\Program Files\Microsoft Office\Office16"
cscript ospp.vbs /sethst:192.168.70.119
timeout /nobreak /t 1
>
nul
echo
重启激活服务...
cscript ospp.vbs /act
echo
-------------------------------------------
echo
.
echo
请查看是否完成
echo
.
pause
cls
goto
menu
:
kms
echo
连接激活服务器...
echo
会有几个窗口弹出需要手动确认
slmgr /skms 192.168.70.119:1688
timeout /nobreak /t 1
>
nul
echo
重启激活服务...
slmgr /ato
echo
命令执行完毕
pause
cls
goto
menu
:
check
cls
echo
office激活查看命令行窗口,系统激活会弹出窗口
echo
.
timeout /nobreak /t 1
>
nul
cscript "C:\Program Files\Microsoft office\Office16\ospp.vbs" /dstatus
echo
.
echo
以上为office激活状态
timeout /nobreak /t 2
>
nul
echo
.
slmgr.vbs -dli
pause
cls
goto
menu
:
fail
echo
.
echo
无法连接到服务器 QAQ
echo
.
pause
exit
回复 "内网注册kms.bat"
这儿你可以回复上面这条便签
作者
你的名字是?
标题
给你的便签一个标题。
语言
你的便签是以
Plain Text
HTML5
CSS
JavaScript
PHP
Python
Ruby
Lua
Bash
Erlang
Go
C
C++
Diff-output
LaTeX
SQL
XML
-----------------
4CS
MOS 6502
MOS 6502 Kick Assembler
MOS 6502 TASM/64TASS
Motorola 68000 Devpac Assembler
ABAP
Actionscript
ActionScript3
Ada
AIMMS
ALGOL 68
Apache
AppleScript
Apt sources.list
ARM Assembler
x86 Assembler
asymptote
ASP
autoconf
Autohotkey
AutoIT
AviSynth
Awk
BASCOM AVR
Basic4GL
BBCode
Brainfuck
BibTeX
BlitzBasic
BNF (Backus-Naur form)
Boo
C (for LoadRunner)
C for Macs
C with WiAPI
CAD DCL (Dialog Control Language)
AutoCAD/IntelliCAD Lisp
CFDG
ColdFusion
ChaiScript
Chapel
CIL (Common Intermediate Language)
Clojure
CMake
COBOL
CoffeeScript
C++ with WinAPI
C#
Cuesheet
D
Dart
DCS
DCL
DCPU/16 Assembly
Delphi (Object Pascal)
DIV
DOS
dot
E
ECMAScript
Eiffel
Email (mbox/eml/RFC format)
Enerscript
Euphoria
EZT
Formula One
Falcon
fo
Fortran
FreeBasic
FreeSWITCH
F#
GAMBAS
GDB
Genero
Genie
GNU Gettext .po/.pot
glSlang
GML
Gnuplot script
Groovy
GwBasic
Haskell
Haxe
HicEst
HQ9+
HTML 4.01 strict
Icon
Unoidl
INI
Inno Script
INTERCAL
Io
ISPF Panel
J
Java
Java 5
Job Control Language
jQuery 1.3
KLone with C
KLone with C++
Kotlin
Liberty BASIC
LDIF
Generic Lisp
LLVM
Locomotive Basic (Amstrad CPC series)
Logcat
Logtalk
LOLcode
@Formula/@Command
LotusScript
Lightwave Script
Linden Scripting
Motorola 68000 Assembler
MagikSF
Make
MapBasic
Matlab M-file
mIRC Scripting
MMIX Assembler
Modula-2
Modula-3
Microchip Assembler
MXML
MySQL
Nagios
NetRexx
newLISP
nginx
Nimrod
Nullsoft Scriptable Install System
Oberon-2
Objective-C
Objeck Programming Language
OCaml (Objective Caml)
GNU Octave M-file
OpenOffice.org Basic
ooRexx
Oracle 11i
Oracle 8
Delphi Prism (Oxygene)
Oz
ParaSail
PARI/GP
Pascal
PCRE
Per (forms)
Perl
Perl 6
OpenBSD packet filter
PIC16 Assembler
Pike
Pixel Bender 1.0
PL/I
Oracle 9.2 PL/SQL
PostgreSQL
Postscript
Povray
PowerBuilder (PowerScript)
PowerShell
ProFTPd
Progress
Prolog
Property
ProvideX
PureBasic
Python for S60
q/kdb+
QBasic/QuickBASIC
QML
Racket
Ruby (with Ruby on Rails Framework)
RBS Script
Rebol
Microsoft Registry Editor
Rexx
robots.txt
RPM Spec
R
Rust
SAS
Scala
Scheme
SciLab
SCL
sdlBasic
Smalltalk
Smarty template
SPARK
SPARQL
StandardML
StoneScript
SystemVerilog IEEE 1800-2009(draft8)
TCL/iTCL
Tera Term Macro
thinBasic
T-SQL
TypoScript
Unicon
UnrealScript
UPC
Urbi
Vala
Visual Basic
VB.NET
VBScript
Vedit macro language
Verilog
VHDL
Vim scripting
Visual FoxPro
Visual Prolog
Whitespace
Whois response (RPSL format)
WinBatch
XBasic
xorg.conf
Axapta/Dynamics Ax X++
YAML
ZiLOG Z80 Assembler
ZXBasic
你的便签
在这儿输入便签内容
@echo off title 内网kms激活助手 color f9 cls ::申请管理员权限 >nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system" if '%errorlevel%' NEQ '0' ( goto UACPrompt ) else ( goto gotAdmin ) :UACPrompt echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs" echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs" "%temp%\getadmin.vbs" exit /B :gotAdmin if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" ) :start cls echo 注意:仅在内网情况下可以激活 echo. echo 正在检查与激活服务器的连接情况......请耐心等待 ping -n 1 192.168.70.119 | find "超时" > NUL && goto fail ping -n 1 192.168.70.119 | find "目标主机" > NUL && goto fail ping -n 1 192.168.70.119 | find "无法访问" >nul && goto fail ping -n 1 192.168.70.119 | find "故障" >nul && goto fail ping -n 1 192.168.70.119 | find "找不到" >nul && goto fail echo 成功连接 echo. :menu echo 请选择项目: echo = = = = = = = = = = = = = = = = = = = = = = echo 【1】安装 Windows10 Pro 密钥 并设置 激活服务器(Win11 Pro通用) echo 【2】设置 Office LTSC 激活服务器 (office16以上) echo. echo 【3】仅设置 Windows 激活服务器 echo. echo 注意:本工具仅能帮助连接内网的激活认证服务器 echo 【0】检查激活状态 echo = = = = = = = = = = = = = = = = = = = = = = echo. :select set /p a=请输入数字后回车: If "%a%"=="0" goto check If "%a%"=="1" goto Windows10key If "%a%"=="2" goto Office16 If "%a%"=="3" goto kms echo.&echo 输入无效,请重新输入. pause >nul goto select :Windows10key cls echo ------------------------------------------- echo 正在安装 Windows10 Pro 密钥...(Win11通用) slmgr /ipk W269N-WFGWX-YVC9B-4J6C9-T83GX echo. echo 连接激活服务器... echo 会有几个窗口弹出需要手动确认 slmgr /skms 192.168.70.119:1688 timeout /nobreak /t 1 >nul echo 重启激活服务... slmgr /ato echo ------------------------------------------- echo. echo 请查看是否完成 echo. pause cls goto menu :Office16 cls echo ------------------------------------------- echo 连接激活服务器... cd "C:\Program Files\Microsoft Office\Office16" cscript ospp.vbs /sethst:192.168.70.119 timeout /nobreak /t 1 >nul echo 重启激活服务... cscript ospp.vbs /act echo ------------------------------------------- echo. echo 请查看是否完成 echo. pause cls goto menu :kms echo 连接激活服务器... echo 会有几个窗口弹出需要手动确认 slmgr /skms 192.168.70.119:1688 timeout /nobreak /t 1 >nul echo 重启激活服务... slmgr /ato echo 命令执行完毕 pause cls goto menu :check cls echo office激活查看命令行窗口,系统激活会弹出窗口 echo. timeout /nobreak /t 1 >nul cscript "C:\Program Files\Microsoft office\Office16\ospp.vbs" /dstatus echo. echo 以上为office激活状态 timeout /nobreak /t 2 >nul echo. slmgr.vbs -dli pause cls goto menu :fail echo. echo 无法连接到服务器 QAQ echo. pause exit
创建短链接
创建一个较短的URL,连接到这个便签
私人
私人便签不会显示在最近列表中
保存期限
我们应该什么时候删除这张便签?
阅后即焚
五分钟
一小时
一天
一周
一月
一年
永久保留
防滥用
键入这些字符
创建