|
- 帖子
- 7765
- 积分
- 21514
- 管庄币
- 9 元
- 注册时间
- 2008-8-20
- 最后登录
- 2016-6-8
|
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号' W) g# e8 @) c% ?
( Q6 v% O) o2 y+ ?新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS 8 N* R2 q3 U5 } S
5 p5 h! v1 L q. [
主要功能可以修改安装时的序列号.
+ n5 M/ S4 b9 I# W
6 {; G8 O: f9 u6 X; N1 f'
( R0 c/ x5 o$ N. [! p' WMI Script - ChangeVLKey.vbs # ~3 S) W9 u X; v% T3 n
'
, G& i0 S9 V. w6 v% E' This script changes the product key on the computer (XP SP1 SP2 2003)
8 G) t) s* |: X- z'
$ @: L: ^$ i2 O" |' |% m$ f/ u' Made by zyling.
# @& Z* q8 E& y6 P1 U'***************************************************************************
7 m3 F! @; {9 }: \+ A2 A) V' }1 b; F5 A% U: _8 i6 {# e( Y( R
ON ERROR RESUME NEXT " T9 W \" x) l& m9 ^2 {& [
1 H) K' {% G/ ^$ L( u" D oDim VOL_PROD_KEY + t2 H- l" u' c
if Wscript.arguments.count<1 then 8 a3 m. Q1 } i) d* }' l
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ") - s2 k" u1 }% m: E+ ^" t i
if VOL_PROD_KEY="" then ' F$ L8 b+ \% H/ t. z& O& k1 k; c
Wscript.quit
' P' L' l; j$ {4 ` Y" `2 u6 N- pend if
& z' t8 i$ e) Z; I, Eelse
; O/ R, W% y* K9 RVOL_PROD_KEY = Wscript.arguments.Item(0)
+ ?0 {' b: O9 h0 }; `end if ) f, H8 D) q% U
2 w( R' ]4 ^0 m' k+ V" T
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
8 h: ]( a7 }9 }- |# H0 N, P
& Q0 ]% b6 T% ^7 d- ^8 Kfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") + w# Q$ |7 _8 {) l) D" Q$ K5 v+ J
; ?5 @7 d2 }9 v- ^* Q1 \
result = Obj.SetProductKey (VOL_PROD_KEY) 5 B3 p- A2 p* M5 e( y+ Y) m; w) Q
* w7 ^( F" s, X1 e1 j M& V4 Zif err = 0 then
# {6 h4 f. v7 t9 V2 E8 ^( ?Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。" ' a7 t- c" |7 v$ K6 m% P
end if
N+ n" H6 ^1 v. h/ G E1 i; ~' R* {0 d# H4 E8 X1 ]
if err <> 0 then
8 j' ~. p8 j8 t! w7 Q# f1 C- h, cWscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
0 j! v! C) V/ h( W+ h; jErr.Clear
+ B( U1 |& l$ f! Bend if
$ x: ~7 @9 [# i8 n. v, [" {7 S9 v
Next |
|
发表于 2009-1-8 13:03
|