标题:
修改Windows 2003序列号
[打印本页]
作者:
爱的伤痕
时间:
2009-1-8 13:03
标题:
修改Windows 2003序列号
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号
! f4 ^) o0 g8 U/ a/ K" q5 _; n
) U& A6 r. _/ N% b+ ^3 n' m
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
2 g' _/ h5 ?/ ^6 z% ]7 \
# d$ d. c7 H/ A) F1 s- \
主要功能可以修改安装时的序列号.
c! G% T/ l7 c* a( H& W& S
: F6 U3 ` ^1 Y2 }
'
* C" f }. w% G9 ~) u$ i. r4 i$ G
' WMI Script - ChangeVLKey.vbs
, o( P+ A: _: W# s( K4 e
'
- M- i) P3 c& ?, s+ j! A
' This script changes the product key on the computer (XP SP1 SP2 2003)
# H6 L1 B/ O5 Y$ F' F) ~
'
T4 O( R& H; B% ~$ B2 P" Z0 Z
' Made by zyling.
" Q3 S: A6 W1 i( Q
'***************************************************************************
6 _5 p6 O' X8 l+ O7 b3 }! m6 [
! }9 r% ]; b2 p7 ]
ON ERROR RESUME NEXT
9 r2 [6 D# w5 z
0 L, R3 d( v4 z) C8 k
Dim VOL_PROD_KEY
$ g1 g4 ]/ ?) ]- _
if Wscript.arguments.count<1 then
: \- O. ^ ^+ w$ w7 L$ U4 i2 q
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
" ^, Z' X% l5 [3 h& M
if VOL_PROD_KEY="" then
- X; E# [) P6 o+ D$ d
Wscript.quit
/ S: r; X; B: s5 E- i* a4 {
end if
$ G- f$ Y* z/ j2 \6 ?& c u
else
0 S& d- Q9 [* Y
VOL_PROD_KEY = Wscript.arguments.Item(0)
' a! P. k5 U/ x7 x, z
end if
- p- L i1 B2 q5 d
8 N, R( o/ w; h
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
4 _. Z. P9 m* W, @' ] ^
! q8 o6 S* {' J" V: n
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
6 V/ T8 i& O9 x
$ x8 d3 ^( g5 h2 P+ V
result = Obj.SetProductKey (VOL_PROD_KEY)
; `6 F" U, v; b; X( Q
4 n: f, S6 Y( \2 e8 b3 t, k
if err = 0 then
" H+ s6 J$ b3 H' P3 J5 l$ F
Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"
2 y( h4 {7 m( L9 S4 Q
end if
% \; E5 o4 s- @9 n+ k* q
6 {9 y, K4 o A) a- B+ u5 t9 h
if err <> 0 then
% R5 D- y/ }# w @! }* n4 y
Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
4 w& [- x& s; x6 d% {' I
Err.Clear
5 O4 A; l8 ?* m3 Z) L
end if
* W" s/ \6 Y9 m; D
: z7 y E' {- \6 q
Next
作者:
爱的伤痕
时间:
2009-1-8 13:03
注意:Windows 2003 企业推荐号码:JCGMJ-TC669-KCBG7-HB8X2-FXG7M
欢迎光临 管庄论坛 guanzhuang.net (http://www.guanzhuang.net/)
Powered by Discuz! 7.2
