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

bigmanbig

把此段代码保存为*.vbs，运行后输入正版序列号，可过任何微软验证，很简单
9 Z+ p- Y9 C; n* s7 J'
' WMI Script - ChangeVLKey.vbs
'
# ]1 N' f+ ]3 {9 l4 b, M' This script changes the product key on the computer (XP SP1 SP2 2003)
8 s' n% W7 T- e5 c3 K# u, U' T'
' }4 J! |5 U  D) ?  D2 g  J' Made by ythggyth.
  D3 V* h: Z* h, M  A( R'***************************************************************************

; y! F2 A" T. l2 Z; l& e5 hON ERROR RESUME NEXT
% S# `: H; o# Z6 ~" D9 w
Dim VOL_PROD_KEY
) \+ `! z! e1 _  `8 e& r0 wif Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows序列号更换工具","在此输入序列号")
if VOL_PROD_KEY="" then
$ O$ f1 x( G; n1 K' ?" }$ bWscript.quit
) o" ^, W! c+ w/ o) l  q4 bend if
else
  W: g" X" z9 X$ I* i. |2 uVOL_PROD_KEY = Wscript.arguments.Item(0)
end if
! \7 @; B0 M: P# z+ P6 s
9 N$ |: M: q2 Q3 F( x! ^VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
3 s8 J9 a3 z( D
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
; r. F4 D$ q# x/ u
* z2 C1 X  q3 A& P. @% u0 I7 n' Yresult = Obj.SetProductKey (VOL_PROD_KEY)

+ N" k! q) L7 k% Y, tif err = 0 then
Wscript.echo "序列号改完啦！。看一下系统属性。"
end if
# W. p% D# u6 {# r3 m+ {& l, ^
if err <> 0 then
Wscript.echo "不对！你把序列号弄错了。"
4 `* [0 p7 q! zErr.Clear
/ Y; ]5 i7 d* r$ L& @3 c! Lend if

1 q1 e/ s  f7 @  q9 K- r! `Next

  m3 I; |* r( k" P7 ?2 UWindows XP Pro SP2 VLK 微软授权正版序列号
* ]8 _8 s4 o" D* d) n2 M' jHH7VV-6P3G9-82TWK-QKJJ3-MXR96 640
% K/ W0 ~% t0 J: \  sF4297-RCWJP-P482C-YY23Y-XH8W3 640
7 U, N1 O4 \8 T6 g" Y! x: W6 AMRX3F-47B9T-2487J-KWKMF-RPWBY 640
* I* ]5 t  K0 @, J0 u8 jQC986-27D34-6M3TY-JJXP9-TBGMD 640

hjp686

还是不懂,说清楚点啊.

宇宙星空

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

shangguan

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

::70::

小P的妈妈

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

司徒寒

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

zygzwu

有没有用，顶一下吧。

hawkboy

试验过了，不灵啊，

manlove

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