|
- 帖子
- 7765
- 积分
- 21514
- 管庄币
- 9 元
- 注册时间
- 2008-8-20
- 最后登录
- 2016-6-8
|
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号; g+ \- U1 t4 g
3 s1 `& k8 y2 | ^$ I/ n
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
, f S9 Z: ?2 v! v9 [- l: D3 N. Z- m2 I8 Y# @$ P k
主要功能可以修改安装时的序列号.
& |9 v) U' \0 Z% C6 p4 W# D; p& d" F( A" J( y2 Y; [
' 0 ], v e5 N ~$ e% X. j
' WMI Script - ChangeVLKey.vbs 9 q* a- R( D% s' R2 D6 A; D) p
'
8 ]# A! `6 t6 J2 h2 y2 \' This script changes the product key on the computer (XP SP1 SP2 2003)
4 L5 _6 G. A) u% G; r! f'
+ R' `: z0 _, |; b, e" }' Made by zyling.
" s3 G0 R3 e* q6 a'***************************************************************************
$ E5 v3 G6 u, q$ \& c) H1 z- a1 E% v
% w7 S" Y( ^4 l- m, n: r, t2 a. B* N4 AON ERROR RESUME NEXT + K G1 J, X, E: @' i, \- a
; f/ P$ @0 {3 ?- f( l8 W) v+ DDim VOL_PROD_KEY - @$ B& l! t0 ^7 f) x6 W' p! t/ J
if Wscript.arguments.count<1 then
8 t7 B8 H# V4 }2 l3 x/ ZVOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ") 6 Y" z6 @" m7 V' M* i
if VOL_PROD_KEY="" then
5 C: S$ O) X. V: wWscript.quit 2 g. u$ s, y3 i* V. h# N, H
end if
1 `, `. s% c: c9 E4 {else
; S7 H6 F: ]8 T% J0 Y; rVOL_PROD_KEY = Wscript.arguments.Item(0)
3 r* O/ f& N( `end if
4 ?4 i" I/ d0 } R# H/ X3 t9 k. _, G8 t, v5 m8 q
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any 7 S1 ] `( s' `( H |* f7 R0 P
/ P3 [: H- e0 {8 j6 } y# y) B
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
S1 T6 A' d" i9 s/ ~! L* y3 p2 `5 g
. E8 o) O# f% ]8 C; g7 a$ _* ^/ d2 }result = Obj.SetProductKey (VOL_PROD_KEY) ) E' R% F- Y5 }) y2 K6 D5 G
0 T. h: G' M: @. r3 k( qif err = 0 then
. a- x$ F, N% d+ i CWscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。" ; C! h" d8 }- E6 ^8 y
end if / D5 \4 p( K6 ?+ y% o! f
9 ?2 L8 b2 \ Q6 e, G( j4 J5 eif err <> 0 then # _, B+ O% F9 L- q$ s! v* h; O: i: x
Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" 7 N/ ?% l* c0 u) M m' @
Err.Clear
( `6 w2 F- b1 \, Q5 xend if ' Z. G& l# m0 R- M( B, I7 f0 k8 z
s3 r% Z) o* y! b" m: l/ M! r
Next |
|
发表于 2009-1-8 13:03
|