|
- 帖子
- 7765
- 积分
- 21514
- 管庄币
- 9 元
- 注册时间
- 2008-8-20
- 最后登录
- 2016-6-8
|
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号
" \1 P2 \2 w4 P5 _
8 s: {% {! {" E' C7 G* D; N' t% J新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS * ~0 [: k6 n, I ^, ?
" w- v) Z3 B# y" S* u& x( u/ e主要功能可以修改安装时的序列号.
( ?4 O: A. A: [6 i1 K- s; m
# |$ N; `! T+ X8 X'
6 `" | a/ X E' WMI Script - ChangeVLKey.vbs
/ H. T1 E/ D0 I9 E7 {'
. u$ e$ h7 o# W# a' This script changes the product key on the computer (XP SP1 SP2 2003)
; B% p" Z$ L9 C'
- R- N0 {2 A7 f# I- I' Made by zyling. 3 b& b% a, R8 M e! R- J/ n
'***************************************************************************
# h# m6 Z9 g! M& l& ^8 S% g e, {2 h0 @4 i0 ~- j2 ~( m
ON ERROR RESUME NEXT 4 g8 O* W; V4 O6 h# `: b
. {2 ?- Y4 V% s. BDim VOL_PROD_KEY " o- l. }; j$ p6 S2 K3 Q/ H: J* l
if Wscript.arguments.count<1 then
2 r8 y7 L6 r4 j# oVOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
9 c+ C- r/ x8 W0 Kif VOL_PROD_KEY="" then
7 p' Y. I! i( A$ }9 }; R; JWscript.quit
# P& s) w6 I8 K% V! ]3 Cend if % I. h- n4 |% y( Q8 ^
else 6 w. K9 a& t% K0 C( K" E; g
VOL_PROD_KEY = Wscript.arguments.Item(0) # V6 n" S# {7 B6 {( f
end if - F" n( u; T: k: |( J
4 l" T) Q. K4 @% h, oVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
, d1 h7 \% b& w/ C* Z( a
7 J; c+ |) l# ^3 w9 n$ efor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") & b, g6 l( v5 N/ c( h0 q2 E
) [# ]" R( u& K5 y' o5 U: p. n
result = Obj.SetProductKey (VOL_PROD_KEY) - M+ z0 O; `' [* M) _. R0 r
8 C/ W8 O! _' A, o8 z6 R
if err = 0 then ( D1 s/ P: {7 t' c6 G
Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"
0 L6 _! q; O0 v$ @) f+ f" j0 Jend if 6 O! S- k3 r/ g5 N" i T, p9 }
' M# Q7 F8 |* r# F# f% P% y8 xif err <> 0 then 3 K- |6 K$ C1 j# j8 k W
Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
. s, i) P/ C5 E7 @3 b& y! i, T; L1 EErr.Clear 1 D+ [: U! t* v( w
end if
9 u* f9 z5 Q: O/ L v" C$ t8 Z l# a8 K2 }/ S
Next |
|
发表于 2009-1-8 13:03
|