|
- 帖子
- 7765
- 积分
- 21514
- 管庄币
- 9 元
- 注册时间
- 2008-8-20
- 最后登录
- 2016-6-8
|
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号+ h I6 K, U* y: V
! A& }) c6 [/ c& |7 @0 `
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS ) U0 Y4 z9 K9 v! m1 a# {
X' Q4 j/ U1 s! g
主要功能可以修改安装时的序列号.
$ v8 C( ~" U# E; f6 G4 ^- \. K
5 s4 ]+ j: s3 y, E. I: T' S'
. ]8 n9 G A) A% ]6 a- l2 S, u+ W' WMI Script - ChangeVLKey.vbs ( f! \% |: U( |) B; W
' ( ^1 M8 i, ~& y8 |* n
' This script changes the product key on the computer (XP SP1 SP2 2003) . [$ R- _ ^8 d, X# W% f/ J
'
4 b( w9 I% I# k7 k3 t& q' Made by zyling.
& n/ e) B6 X6 Z; Y'*************************************************************************** - R- W' }: s* {( d# p
! s, [% p5 x* x. q' d& fON ERROR RESUME NEXT 9 W+ g0 L: a. s$ ^ _8 Q! z
7 m5 A/ G' Y7 r, K' ADim VOL_PROD_KEY
1 N4 `! W: [( ^8 d' j' |3 @9 d X8 ?if Wscript.arguments.count<1 then
; ?7 f' U+ n6 w$ h' o# v; a/ ?VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ") ; |. i& y) r/ Q6 m5 \
if VOL_PROD_KEY="" then
8 G0 `6 R* e& V8 X" V: IWscript.quit 7 J0 O& M& R/ D9 N! m5 C' a
end if
$ e) X( D+ H0 _else
/ ]. G' S1 N$ e5 nVOL_PROD_KEY = Wscript.arguments.Item(0) + ^8 E+ z2 M8 l/ {* d3 @+ Z9 k
end if 2 l, }+ e% `, O) A, J3 P( D- P
8 K& e2 L/ \- ?VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
' r! ^0 l( F( q6 v
- C7 l$ f \: o* Wfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") : {& ~' u N) A8 E8 f, R8 Z
, f2 O0 |, T' k
result = Obj.SetProductKey (VOL_PROD_KEY) + s9 ]. y9 v/ z% c9 W! C4 n/ X
$ W/ N/ ?. V" B- Rif err = 0 then
1 F+ F( ^9 Z5 ^2 z% y( ?* M; z* _Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。" ) D5 ]$ M9 v/ q. G& X
end if
9 a( o/ M% _" @# |, [ P' C5 _: Z1 Q4 U9 a; x3 }/ y) z/ q- J! I
if err <> 0 then
4 T" u7 C! c* ~$ VWscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
# r9 i( }+ ^$ ^Err.Clear 8 e3 k# `, E# u# q# t1 Y, X
end if 6 @0 j2 T+ ]4 M2 N) @4 y
$ y5 d- J: m& b- d- z0 _) x, V0 h) QNext |
|
发表于 2009-1-8 13:03
|