|
 
- 帖子
- 7765
- 积分
- 21514
- 管庄币
- 9 元
- 注册时间
- 2008-8-20
- 最后登录
- 2016-6-8
|
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号% t; W8 l8 u; C4 R- a! W
3 W* q9 a- ?7 {( p$ t, @新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS & l& R2 N5 l5 h) ^
- t7 P/ S3 E) L
主要功能可以修改安装时的序列号.
1 K; `+ ]* V, n) t& [! n/ F' V4 S0 A* I) M
' 7 `& }, X6 A0 L. v4 q; V
' WMI Script - ChangeVLKey.vbs / T. b% ^( K' Q1 B t7 ^) \% x$ j% [
'
; ~4 F: O& O4 N; I- Y- c' This script changes the product key on the computer (XP SP1 SP2 2003)
/ L4 B2 N) S/ K6 T3 m5 h2 J3 s7 b% Y'
& x" D9 B: _7 f0 ^, x7 ^' Made by zyling. 0 e! X' {5 n# Y6 H
'*************************************************************************** + x3 W8 e0 X- v/ T, D# R: d6 r
7 k) m5 g+ O5 d. c) BON ERROR RESUME NEXT ) o# n4 i6 o4 t& j! W
3 D' m/ @2 q5 u3 F/ \8 p
Dim VOL_PROD_KEY
8 L4 V2 F7 H# X) n7 C/ L h/ i4 cif Wscript.arguments.count<1 then " v4 g5 ~0 e6 F& |+ r( Z
VOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
* {" ^( o1 _# |if VOL_PROD_KEY="" then
2 y! h& M6 _! fWscript.quit ; R/ [1 I% u# M6 U- F
end if 3 ~- m6 I _5 Y: Q7 j
else
) z% @1 Q' k& t& EVOL_PROD_KEY = Wscript.arguments.Item(0)
! r# j# `$ u1 oend if % f2 S& t* O( g2 V: P C( C/ }' _
9 T6 \' C5 Q0 }8 @$ MVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any 8 p6 P$ @/ K/ R) s! {
' T" Q4 {* T+ X
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") . e2 ?$ `4 K0 H; p: ^ e- F2 {
* h! {3 B0 r t4 l3 K2 Z
result = Obj.SetProductKey (VOL_PROD_KEY) 2 A1 m6 x* I. N4 t% S" f, |
# V3 _# F5 x' y; S; J u
if err = 0 then
0 i' l3 S4 x1 r( r9 x' r! _1 l& R, YWscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。" $ ~$ N2 t8 \" V2 G: I0 |
end if
% b( b6 e9 U# t5 w6 I4 P- O8 T+ Q$ T- \; q4 C
if err <> 0 then . |* T ]. i1 D
Wscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" * i7 w/ z7 n5 f' D( b" I8 E
Err.Clear ) l: i, S% F) F
end if
3 A- D6 s4 G$ R }+ ]( M& y" B4 r
( @ k$ a4 A& x; [9 \# ]Next |
|