|
- 帖子
- 7765
- 积分
- 21514
- 管庄币
- 9 元
- 注册时间
- 2008-8-20
- 最后登录
- 2016-6-8
|
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号
! }5 C$ [$ q( K0 W
0 v" g* M; E$ Z新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS + a: z. P8 u1 i# o; X
) s/ h4 [7 J; {2 d+ z4 E. N
主要功能可以修改安装时的序列号.
- L0 I# @9 q* E7 Y* D* a8 U5 W2 Q( o& H! h
'
5 C( v2 Z8 t1 x' WMI Script - ChangeVLKey.vbs ( P7 c0 |+ m/ F
'
9 d' l) X6 W* b' This script changes the product key on the computer (XP SP1 SP2 2003)
& ^8 V' _' A( F7 S1 F/ z( s" F'
q* P: m) ?% H0 T' Made by zyling.
: t; ], o/ X$ v! h# j8 K% \'***************************************************************************
9 k) p* h, A. y* T/ n! V+ v
^8 b) w4 m( t+ |ON ERROR RESUME NEXT 1 T/ C' x9 v5 b9 F s& A- H' g- I
! V+ E | P8 _
Dim VOL_PROD_KEY
: ?2 Q4 y$ e, E- h, pif Wscript.arguments.count<1 then
. X8 Y' \# G9 g. D6 lVOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
" b: ^) B4 f1 [- y' ]" M- Sif VOL_PROD_KEY="" then ' M3 } Q# O0 n s0 D, j# X
Wscript.quit
$ _# n* u. d' Zend if 6 P0 k. s. D9 @3 u
else % p) w& X/ W5 c1 a
VOL_PROD_KEY = Wscript.arguments.Item(0) 5 Y4 `% ^0 {$ ?) M9 R
end if # D, G: M5 F: h
2 c, [% a' P' x: s, J/ g6 o. T
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
5 v+ g6 ]3 e6 x x1 b" y; A; y. w8 D- S
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
! Q9 m* K9 y8 k
& U) d, y, v+ G# gresult = Obj.SetProductKey (VOL_PROD_KEY) 5 _ [8 r4 I* G
9 h! }# y# v3 V0 ?( Pif err = 0 then
: V2 U" \" P G5 LWscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。" $ w" u, E& ]5 B, `, S; T
end if
# Y) r: z6 F& V* i% v/ w/ U7 n: a5 V) B1 _3 \
if err <> 0 then 2 C- {/ X J( x; o
Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" + p/ q) x/ h- f- V8 `
Err.Clear
" g3 g* _: S2 E! O: ~. g8 F9 ?end if
0 a" B6 A2 D! I# J5 b2 ^1 ]
2 x: C1 L- j" j" TNext |
|
发表于 2009-1-8 13:03
|