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

bigmanbig

把此段代码保存为*.vbs，运行后输入正版序列号，可过任何微软验证，很简单
' M' S( P! Q6 S" I9 F, |'
8 V2 G8 W$ B- f% s; Q* W6 r' WMI Script - ChangeVLKey.vbs
  _. s* E8 R8 R; p'
, g! W2 `) j! b9 `% P' This script changes the product key on the computer (XP SP1 SP2 2003)
1 F9 s7 P$ \) r% e* V'
' Made by ythggyth.
'***************************************************************************

' d* m' d& ]/ L* m! SON ERROR RESUME NEXT

8 k  [& s7 e/ s# r* ADim VOL_PROD_KEY
/ ~7 {' K* L- U: l  H5 `& H9 Hif Wscript.arguments.count<1 then
$ ?( I" L4 h' Z, k1 c  nVOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows序列号更换工具","在此输入序列号")
7 P9 b, v  ~6 d, t: zif VOL_PROD_KEY="" then
Wscript.quit
end if
+ c5 ~/ b% K* Welse
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if
1 |  w3 e5 Q. [+ e
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

/ m/ m; U* i9 Z# i1 u5 @for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
" F& g5 L9 J+ p
result = Obj.SetProductKey (VOL_PROD_KEY)
( X$ E- P1 @$ ?$ Y+ V  L5 u3 Y
1 @9 Y7 _, a# `1 N) _" \1 J- g( Qif err = 0 then
5 ?, _6 V, I; r6 G% i+ F" EWscript.echo "序列号改完啦！。看一下系统属性。"
+ T1 J8 C1 j" E. Fend if
3 i5 \3 Y+ ~0 z2 C; d
if err <> 0 then
Wscript.echo "不对！你把序列号弄错了。"
Err.Clear
  a5 a$ {+ v6 }) oend if
8 @4 S1 q, [1 G5 i# c' v; o' g
Next
) ~5 P; F* a& E4 c* w
0 N0 B% l1 I& V. A' |- A0 |: FWindows XP Pro SP2 VLK 微软授权正版序列号
4 [$ J2 i  P" S0 }8 NHH7VV-6P3G9-82TWK-QKJJ3-MXR96 640
0 G* D2 y; h& K* K1 u( U2 M0 qF4297-RCWJP-P482C-YY23Y-XH8W3 640
MRX3F-47B9T-2487J-KWKMF-RPWBY 640
: T; x' v6 @# D; ^. FQC986-27D34-6M3TY-JJXP9-TBGMD 640

hjp686

还是不懂,说清楚点啊.

宇宙星空

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

shangguan

原帖由 宇宙星空 于 2008-3-12 19:52 发表
! O" I9 i8 R3 b+ V看不懂呀,楼主,解释清楚一点吧

6 e9 V! \" q" d" p' Z$ }0 }::70::

小P的妈妈

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

司徒寒

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

zygzwu

有没有用，顶一下吧。

hawkboy

试验过了，不灵啊，

manlove

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