输入正版序列号让你的系统成为正版

bigmanbig

把此段代码保存为*.vbs，运行后输入正版序列号，可过任何微软验证，很简单
$ @. p# b" Q% K/ b'
, p5 Z* m3 @9 B' WMI Script - ChangeVLKey.vbs
'
! d8 U, E" L( j: }' This script changes the product key on the computer (XP SP1 SP2 2003)
'
' Made by ythggyth.
'***************************************************************************
0 [( a  z, b9 ?7 v, {) T
: ~: V, Q% m  P9 p7 ^ON ERROR RESUME NEXT

3 Y$ K9 p/ @9 |: \2 _7 ?Dim VOL_PROD_KEY
% A# _& P+ J+ o; pif Wscript.arguments.count<1 then
% G% R) P+ p  Z8 G9 eVOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows序列号更换工具","在此输入序列号")
5 D, d- ]4 K. ^' k8 mif VOL_PROD_KEY="" then
4 O3 |+ o4 i9 _. ]Wscript.quit
% q' v0 G1 D$ Send if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
3 e8 d. t6 n) J) |0 C2 N! }4 Mend if
) ]# H$ e5 G; L9 R! y( E+ G
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
( u5 R, c2 }1 ]7 w2 g9 }4 U/ w
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

# |* \' H5 Z& J- i2 R2 J& Jresult = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then
. E. w# Z) D6 D$ \7 W% MWscript.echo "序列号改完啦！。看一下系统属性。"
+ O2 s$ u8 i; Y& ?. C# ]- ]1 W7 m: uend if
9 K+ T: j( B9 \1 g
& h$ b7 M+ [8 m2 Y+ S, X6 x) L% nif err <> 0 then
( t  Z! X' C0 g* W8 E9 jWscript.echo "不对！你把序列号弄错了。"
; @1 B9 w! c# W. o6 d( K/ ~6 PErr.Clear
end if
9 w9 s5 E" a  S1 }, u3 J
5 V. q- K/ @0 t/ d  ~4 Q' PNext
+ j9 K' }7 S& a& I
9 P7 ?* x  c4 c6 X: @+ dWindows XP Pro SP2 VLK 微软授权正版序列号
; U; _) k" e  K9 D, kHH7VV-6P3G9-82TWK-QKJJ3-MXR96 640
) B) u5 b$ N6 t* R! s) I- |F4297-RCWJP-P482C-YY23Y-XH8W3 640
MRX3F-47B9T-2487J-KWKMF-RPWBY 640
QC986-27D34-6M3TY-JJXP9-TBGMD 640

hjp686

还是不懂,说清楚点啊.

宇宙星空

看不懂呀,楼主,解释清楚一点吧

shangguan

原帖由 宇宙星空 于 2008-3-12 19:52 发表
看不懂呀,楼主,解释清楚一点吧

::70::

小P的妈妈

直接下个序列号更改器比这个方便

司徒寒

我看不懂啊，我是说是盗版的还真是郁闷啊

zygzwu

有没有用，顶一下吧。

hawkboy

试验过了，不灵啊，

manlove

真是不明白，你这个vbs脚本用什么运行啊？