|
把此段代码保存为*.vbs,运行后输入正版序列号,可过任何微软验证,很简单% t. z4 I$ z' }
' " g k2 B- W; y* ?( y! J
' WMI Script - ChangeVLKey.vbs
' ]6 H& B7 G7 y2 e') {- f0 t$ p ?) \' j) j% U
' This script changes the product key on the computer (XP SP1 SP2 2003)2 O. Z# b& B' `. l
'. w8 m4 D& u* d1 [9 e) c7 k- J
' Made by ythggyth.
7 v) r5 r e5 h0 ]'***************************************************************************) J9 S% F$ b/ J5 ~1 O7 K) F
! t0 ~! _* Q% k- q& c' `4 U
ON ERROR RESUME NEXT8 m# r( Z$ ]& }
3 Q1 m% m- e* O1 L0 G R
Dim VOL_PROD_KEY8 U1 j4 ]$ d U, `
if Wscript.arguments.count<1 then
7 d8 ~( w; @4 K+ HVOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","Windows序列号更换工具","在此输入序列号")
& I* ]; B. g! f# mif VOL_PROD_KEY="" then1 {+ U& r- L! m8 |
Wscript.quit4 s& M4 I9 ]/ w2 h% @
end if' s7 i% o' z# U8 r
else
& ?) h0 j6 P3 h4 _2 M h9 ~+ r/ g3 q8 cVOL_PROD_KEY = Wscript.arguments.Item(0)- C$ l3 x2 g: h7 I3 N
end if2 X' l! w2 O* u' A' ~ I
. n9 p3 V2 j) B/ V# w1 sVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
! Z% {" V1 b+ `' ^! D' b/ j! }
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
7 ^& I& {) S2 d& C
9 b5 {' k) A7 r0 c% r. eresult = Obj.SetProductKey (VOL_PROD_KEY)5 ]7 v ^8 x8 t9 p5 p1 Z8 S
6 R) o/ C/ V3 N$ f/ xif err = 0 then& G2 d" X/ ^4 @; {7 @2 a$ B
Wscript.echo "序列号改完啦!。看一下系统属性。"' P2 G" E4 M2 j( E6 I2 a/ Z, ?9 Y" Z
end if3 ?- W9 Z9 E/ z9 f% h" j4 n
4 J2 C2 r4 X% Y
if err <> 0 then, n% o j4 t% \% U0 @, Q
Wscript.echo "不对!你把序列号弄错了。"
& y/ b5 w5 F. u4 JErr.Clear
, ~' [& V1 S. uend if) G+ N' M% Z s
2 k1 M7 X' q8 S
Next 4 ^* A" H& P3 i" G' ^' n: W
! t9 m; T5 _. _% p2 m$ n6 N& _Windows XP Pro SP2 VLK 微软授权正版序列号. L4 `$ G# Y4 Z: ?1 w
HH7VV-6P3G9-82TWK-QKJJ3-MXR96 640
2 z% K% R4 P2 S% Q+ O% t) sF4297-RCWJP-P482C-YY23Y-XH8W3 640
|1 d5 f" c# _MRX3F-47B9T-2487J-KWKMF-RPWBY 640
# A" o- |7 R+ U9 L- _* PQC986-27D34-6M3TY-JJXP9-TBGMD 640 |
|