标题:
修改Windows 2003序列号
[打印本页]
作者:
爱的伤痕
时间:
2009-1-8 13:03
标题:
修改Windows 2003序列号
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号
: {! L) q5 L$ V
7 ?+ L$ M; L# c
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
/ `( r* y- N5 H g
! D( n' m3 p+ J! K! R `
主要功能可以修改安装时的序列号.
3 j' N$ l) [- s' y1 ^& S4 O+ ^; [
2 {* x1 }: g& ^- ?0 h/ `% ]$ [: B' M
'
$ w/ C! j. N, C; P0 W7 I. ]% }
' WMI Script - ChangeVLKey.vbs
, Y4 ]" h: Z; \0 c! ~ c" {
'
$ q5 n' A& D4 ]7 Q( D
' This script changes the product key on the computer (XP SP1 SP2 2003)
# f' Y% l4 @1 l" r
'
' A7 h' m* k# T9 T% Y% a+ |6 w) v
' Made by zyling.
4 F. C* l( k' M) G
'***************************************************************************
0 @* u2 R l5 e b% A0 S
1 ?5 ~- p) @# }9 @1 _
ON ERROR RESUME NEXT
0 T# Q4 p S0 y$ _
8 a9 w* j2 V: p5 I6 @' X
Dim VOL_PROD_KEY
9 L/ V w$ R6 z; V+ A# o
if Wscript.arguments.count<1 then
6 ]: I& }) g! \, g. E& O# ?$ w: M4 [
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
/ G( V. j7 X6 @! q5 y% t
if VOL_PROD_KEY="" then
2 Q! i* m# ~8 S
Wscript.quit
$ G# s8 m5 ]' V P- a5 C
end if
9 p4 l4 N- i7 ^+ ~3 h; d9 y, C
else
l, S( }: J, n6 l# P1 |4 q5 `
VOL_PROD_KEY = Wscript.arguments.Item(0)
& R ]# Z! ~: i$ {3 Q, G! X
end if
. A8 U+ `* b9 Y; B( b7 R: H5 D" S7 \7 `
) T3 t2 e& ~6 T0 y @7 O G
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
5 C" @, y. h/ R/ n$ q& O1 ]2 b$ j1 R
7 T1 V" z* H! g g; u& i
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
6 V9 L5 e+ D6 u) T6 P8 g
: U$ H: \& ? n& @7 P. v- ]& F5 q: }
result = Obj.SetProductKey (VOL_PROD_KEY)
0 w+ v. A2 d9 j: s) j
% n+ F+ }3 r: R
if err = 0 then
! p1 G4 |8 V u. c) e
Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"
+ t# A: N0 Y# ^- b2 y3 N
end if
; R9 e& Q& O4 N- f% r
" I+ c' P- B+ o+ \) X' M
if err <> 0 then
7 r/ o! q7 F% k( T) [
Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
- P- r6 F( W. @. c4 ?( i' S8 ~
Err.Clear
( b1 K8 S6 g. O' ^9 f) r+ p, k
end if
6 m7 a% H* U, ^5 j
, \/ v0 ]: S. T4 }; B5 i
Next
作者:
爱的伤痕
时间:
2009-1-8 13:03
注意:Windows 2003 企业推荐号码:JCGMJ-TC669-KCBG7-HB8X2-FXG7M
欢迎光临 管庄论坛 guanzhuang.net (http://guanzhuang.net/)
Powered by Discuz! 7.2
