标题:
修改Windows 2003序列号
[打印本页]
作者:
爱的伤痕
时间:
2009-1-8 13:03
标题:
修改Windows 2003序列号
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号
3 J1 R% x' c6 R; |/ O
$ W, w% x$ E& a/ \ v. R
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
* \4 ~9 F: N4 z1 l6 k; Z! G
U9 a/ y4 f% F. r. |
主要功能可以修改安装时的序列号.
$ _8 s3 Z, Y$ b- D, |+ Y- y
1 S7 I V. }6 p/ N9 `
'
. M Z0 q7 T7 H; L! a8 O
' WMI Script - ChangeVLKey.vbs
$ X7 Y; l/ ?) f
'
! ^# V' H4 H' t
' This script changes the product key on the computer (XP SP1 SP2 2003)
+ G$ H) F; {# n) Z9 K( S9 ^
'
' N2 W' N* ?0 [% C: @0 S! m8 }
' Made by zyling.
1 e: M6 F G0 ]1 e6 \: {
'***************************************************************************
* T+ |/ c% W* ]
( @# I. y) D8 [; {
ON ERROR RESUME NEXT
5 {9 ?& v9 T) p5 u, c/ f1 L
# g+ w1 ?; p$ U" q+ L: W9 i3 `. S
Dim VOL_PROD_KEY
- D" O; g7 F0 O5 r2 K$ Y; W
if Wscript.arguments.count<1 then
5 z4 d E$ a9 ^
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
: v3 y( I8 l7 O Y3 H5 q3 F
if VOL_PROD_KEY="" then
9 ~9 y- Q7 X, Z2 U
Wscript.quit
/ w; _8 H# U w; J- @0 R) Y% G
end if
2 w$ s2 v& X5 j/ C0 L, I" T. c
else
; H% P$ x# s9 o. f- b* y
VOL_PROD_KEY = Wscript.arguments.Item(0)
' j3 S6 |' Y) M# H% N) I
end if
& y& h( h- V6 o6 x4 t
0 q1 A9 @( c% q& `3 [. s
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
# S+ _. Y0 Q4 E8 L( B
0 X! @9 z }' }' ^+ d
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
- E- L. r" Q. ` q+ Z2 i6 b
0 l2 {) g2 q3 C
result = Obj.SetProductKey (VOL_PROD_KEY)
: b; N: J2 K4 t. Z
" Q5 o1 @6 a) ]
if err = 0 then
; P# I$ f3 ?7 B$ Y! D' k6 s( o) A
Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"
) x0 ]' l* A0 F9 b L
end if
* V: M7 L; S# L" _2 `" ]1 u$ @) Q
2 x3 J5 J- a. x; ]' R7 H
if err <> 0 then
% @3 A4 U* C8 X, R" N y4 m
Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
* N0 H5 C0 w: c% R( q5 p
Err.Clear
1 R; D- F9 f9 t
end if
! o) h! |) C) g+ v8 `6 a. [3 s8 s8 D
/ B4 ~- j' x0 r5 x G7 O% N
Next
作者:
爱的伤痕
时间:
2009-1-8 13:03
注意:Windows 2003 企业推荐号码:JCGMJ-TC669-KCBG7-HB8X2-FXG7M
欢迎光临 管庄论坛 guanzhuang.net (http://www.guanzhuang.net/)
Powered by Discuz! 7.2
