|
把此段代码保存为*.vbs,运行后输入正版序列号,可过任何微软验证,很简单6 z; A, I, ?4 @2 k# d
' & s' ~8 o1 j% T4 T7 B
' WMI Script - ChangeVLKey.vbs1 C, r) |, p) V9 o; M% |- X$ F4 C8 [
'
+ q+ G2 u0 M+ y- F2 \. ?& }, f7 M' This script changes the product key on the computer (XP SP1 SP2 2003)
0 J: V! r1 v/ ~* J+ T" i'
4 b) a/ T4 p' j# I+ z- k0 ^' Made by ythggyth.
; ]# ?8 R8 D+ C'***************************************************************************
( a9 p: ?& S; L' D- ?
" t, q7 X8 G) w/ Q8 M8 ~ON ERROR RESUME NEXT
& E4 V M& ~* }9 s$ H7 v2 s! N/ ]/ n/ ] q
Dim VOL_PROD_KEY
' x* `5 ^* }( ]* K+ L; U" _if Wscript.arguments.count<1 then. J+ u0 R$ v" c) u
VOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","Windows序列号更换工具","在此输入序列号")
* _9 m/ b' g% Y R/ yif VOL_PROD_KEY="" then
$ D& W5 @( ^+ r7 M5 P( f; v8 Z3 OWscript.quit' h h6 I. j: e l
end if+ ~* L& L6 G% K1 L# c
else- m& R0 |) G R% `5 n
VOL_PROD_KEY = Wscript.arguments.Item(0)- a% B0 L6 l" n- }9 ~
end if& _9 E' F" J% l! c0 q
2 ]7 k$ m4 w- P* C. f V
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any4 W0 n$ v" d, N
+ b5 w3 H9 U& U( Q
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")$ J3 Y7 K. |9 {: v8 ~- D1 o
3 P5 U! V( C; I8 N2 ^! l& Dresult = Obj.SetProductKey (VOL_PROD_KEY); I. Y( u1 ~2 ^, R1 d( L7 w$ |
. i: E8 U/ u9 \ B
if err = 0 then" o2 `% P5 \ X9 k E
Wscript.echo "序列号改完啦!。看一下系统属性。"9 h& C4 L% w+ K
end if9 D: z7 t9 Y/ d8 @$ q6 P
- T+ a2 n. V9 ?- R$ n; iif err <> 0 then
1 g p& C( Z! _7 nWscript.echo "不对!你把序列号弄错了。"2 P+ Y6 \9 }0 l: m& Q
Err.Clear
' l" ^3 N* A) Z) M9 Wend if% h6 v }& D! I# }6 g- }
$ O D/ `3 R; r7 D- xNext ( \+ E& ^! D) o C$ E
1 N/ W& U. W% U+ m" n9 t6 Q, ]+ {: W
Windows XP Pro SP2 VLK 微软授权正版序列号
7 O B B3 g9 S+ d" E& tHH7VV-6P3G9-82TWK-QKJJ3-MXR96 640
' A6 o: o% J3 Y, M1 {- wF4297-RCWJP-P482C-YY23Y-XH8W3 640
4 R: g5 u. P) s% n8 `MRX3F-47B9T-2487J-KWKMF-RPWBY 6407 C I1 X" C- Z0 A; x
QC986-27D34-6M3TY-JJXP9-TBGMD 640 |
|