|
- 帖子
- 7765
- 积分
- 21514
- 管庄币
- 9 元
- 注册时间
- 2008-8-20
- 最后登录
- 2016-6-8
|
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号
1 M% e' I( h6 ` x2 J( K& D8 U2 t' a0 U8 b) N; G
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
4 z. N) y/ ] v( Q7 \, ~/ |7 f& }0 x0 R
主要功能可以修改安装时的序列号. : X( t+ d- v2 v+ S. ^, [1 t: z3 W
3 O0 P2 `' u$ R- z5 E" L- L( A'
7 U" y2 G9 L! ]; q; `( b% a' WMI Script - ChangeVLKey.vbs
9 N/ o; ?* N5 ]( W( m+ V, _' ! ]. K8 }" O( t2 d" G
' This script changes the product key on the computer (XP SP1 SP2 2003) ' e9 z+ u7 g) X7 Q l; H; |
' ' c. R2 [+ e2 {, A& q% R. p- }
' Made by zyling.
: Q& ?! Q/ X% x7 O& H/ N'***************************************************************************
- q) _5 |, D. u- p- ~
; @+ i- O1 f3 W3 f3 t( i/ f& s! @ON ERROR RESUME NEXT
- _/ A# l9 u2 {# K9 S0 u" d! }) J; |: r- @6 Q! M
Dim VOL_PROD_KEY
- y8 h& O7 ~# H. G' @if Wscript.arguments.count<1 then
/ t7 F8 a# O' V2 p jVOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
, X" I7 m% ~: y/ I' j9 y3 ?+ ?! _if VOL_PROD_KEY="" then
! @- h' u l# g p6 B- LWscript.quit & V$ X9 M% C$ {
end if ; G$ w4 I. I# K% s% z" H% k
else ( ~% e1 h% c V1 I
VOL_PROD_KEY = Wscript.arguments.Item(0) - |' o; Z; P& y% q
end if ; S3 {' m( i# }( Y% d! r3 t
9 O/ w# A i0 y' L" gVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any 6 ]9 X0 E/ Q- X, ~2 X9 ]2 J
4 q- A& I7 D# W O! b
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
1 V- J% S h5 N6 E0 y5 k
2 K" L; [% ^9 H5 i' f7 Mresult = Obj.SetProductKey (VOL_PROD_KEY) 3 `" G; l7 z0 W/ j: q0 [8 B' P5 ^
( H# A+ j: I' b3 u! w' I
if err = 0 then ' t8 [# v7 b( t$ D; X4 x2 t
Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"
% C1 U, V2 H2 m0 A$ @' r+ h# T. wend if % H. m4 W& ~% v9 N3 ]
$ u0 M) e9 v0 N- S
if err <> 0 then + q) a( _6 L9 [6 j: l# r* s l
Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
, i% i( S" D# B0 r0 o& @Err.Clear
# J: \& Y- G# h* ?8 Y! \6 x& N7 mend if 6 |4 f* m" U( W8 O# [/ h
3 r0 r4 Z3 ]) WNext |
|
发表于 2009-1-8 13:03
|