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

bigmanbig

把此段代码保存为*.vbs，运行后输入正版序列号，可过任何微软验证，很简单
2 x( d) `. v) s! |/ n$ r. U. d& {% L8 j% a'
' WMI Script - ChangeVLKey.vbs
'
. u9 n8 b! q. E" A: B' This script changes the product key on the computer (XP SP1 SP2 2003)
, v+ v; Y3 o* C6 o- X" [& s  }'
0 g( o5 D% V& V, N- y  p6 P( q' Made by ythggyth.
'***************************************************************************
- N- N5 H; Z& D( w6 j) H
ON ERROR RESUME NEXT
+ y) P; N4 v, c5 g
; `7 [2 J0 U9 X! v9 {2 CDim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows序列号更换工具","在此输入序列号")
1 s' ?8 B* T- T+ Eif VOL_PROD_KEY="" then
Wscript.quit
  J# {5 r) _; G0 Nend if
else
; x+ j9 U* c* C9 E/ uVOL_PROD_KEY = Wscript.arguments.Item(0)
/ _( t. P1 o) H8 V+ _0 _7 oend if
' j$ J0 s& p/ N* \, g
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

. _3 r9 E2 W4 K1 x. t: Afor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

# ~* c* @. M" C8 Wresult = Obj.SetProductKey (VOL_PROD_KEY)
7 R) }7 y1 X+ Q% j
if err = 0 then
+ K4 p6 B* {6 v1 f# c7 @Wscript.echo "序列号改完啦！。看一下系统属性。"
% B# A; K6 w& Hend if
* a: k4 ?8 V% K, e
! [& @, N0 _" z% j5 N& @if err <> 0 then
Wscript.echo "不对！你把序列号弄错了。"
2 L5 E* B' P0 B: N, m. E8 p$ L8 |Err.Clear
/ m+ I/ m2 C! q# m: z: }1 fend if

Next
- e4 X4 V! ~/ j6 h. {6 A% L
& l1 d* K: Z% @' wWindows XP Pro SP2 VLK 微软授权正版序列号
HH7VV-6P3G9-82TWK-QKJJ3-MXR96 640
4 f  O4 V. d2 B1 {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 发表
, G2 P) e% Y  \" }. R看不懂呀,楼主,解释清楚一点吧

::70::

小P的妈妈

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

司徒寒

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

zygzwu

有没有用，顶一下吧。

hawkboy

试验过了，不灵啊，

manlove

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