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

bigmanbig

把此段代码保存为*.vbs，运行后输入正版序列号，可过任何微软验证，很简单
'
- `; j% [5 w* S& X9 |8 l' WMI Script - ChangeVLKey.vbs
'
, |" ]' B' D% S' E! b% i' This script changes the product key on the computer (XP SP1 SP2 2003)
'
5 x4 E  V' b' D* R  ^' L3 ?' Made by ythggyth.
'***************************************************************************
& O/ J& k5 g0 p# Y2 p; l
/ L2 ^: P+ v) xON ERROR RESUME NEXT

: v8 v: T' ?' R% V+ dDim VOL_PROD_KEY
# E7 Y0 m/ r4 G, f$ D9 e6 k' n+ n% Xif Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows序列号更换工具","在此输入序列号")
( T: O) Q/ q  p0 L, `5 E" e6 D; mif VOL_PROD_KEY="" then
Wscript.quit
6 k$ b4 l3 f/ {& u' Q- }end if
else
" E) F. H+ [3 t9 m. j( ~VOL_PROD_KEY = Wscript.arguments.Item(0)
- d1 y9 d. P* {0 lend if

# ?" @* ^  J$ F3 J8 CVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

+ ^# k9 F- ?' Y* H) ]- j7 kfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

. I5 \% K* p/ B9 A% |9 \result = Obj.SetProductKey (VOL_PROD_KEY)

9 x7 B+ m7 r, B$ h+ B1 u4 j  ?if err = 0 then
( J$ a- o+ A4 T& q- L0 }6 K+ SWscript.echo "序列号改完啦！。看一下系统属性。"
. m4 d' s3 u7 L+ {; l. Vend if

* w) p+ y$ [8 E% |if err <> 0 then
Wscript.echo "不对！你把序列号弄错了。"
: q/ }6 s! W/ z& m3 K- ]8 O2 `  {Err.Clear
end if
0 _! `+ W# z# f, Y8 ^
7 S! }0 t- l5 f! dNext

  X) U' Y2 O! ^3 a$ b! O, T4 o+ dWindows XP Pro SP2 VLK 微软授权正版序列号
HH7VV-6P3G9-82TWK-QKJJ3-MXR96 640
F4297-RCWJP-P482C-YY23Y-XH8W3 640
& G3 ?6 O/ [4 s+ eMRX3F-47B9T-2487J-KWKMF-RPWBY 640
QC986-27D34-6M3TY-JJXP9-TBGMD 640

hjp686

还是不懂,说清楚点啊.

宇宙星空

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

shangguan

原帖由 宇宙星空 于 2008-3-12 19:52 发表
( ?( r" r7 A7 G) Q看不懂呀,楼主,解释清楚一点吧

::70::

小P的妈妈

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

司徒寒

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

zygzwu

有没有用，顶一下吧。

hawkboy

试验过了，不灵啊，

manlove

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