管庄首页 | 管庄资讯 | 房屋租售 | 活动聚会 | 求职招聘 | 常营商铺 | 常营论坛 | 联系站长
返回列表 发帖

修改Windows 2003序列号

修改Windows 2003序列号

如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号
3 C7 b( m+ x, @
- p: q& S" b8 j% N2 u新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
% X8 T. [1 B5 }, l& U. L$ Q
+ [9 T8 q4 e; Q' I- _! P主要功能可以修改安装时的序列号. 9 t  G  n  M' A2 o" S$ l
0 Y7 `( D; X& j
'  
6 V7 y6 k( {1 o' WMI Script - ChangeVLKey.vbs 8 n1 p* u. a$ l: u& p% M. m
'
( Z6 s' A/ F" _' This script changes the product key on the computer (XP SP1 SP2 2003)
  j. }. b9 M( B( {" a+ O: Y: E'
. Q7 o) v$ e# [6 k' Made by zyling.
. v1 d6 E; e: x! P# ]- C0 s3 s'***************************************************************************
6 D9 @' K8 _2 w4 N5 A& G2 P+ I3 p
+ u6 y# b6 x6 AON ERROR RESUME NEXT / q3 p  ?% b& R+ ^; Q

$ `; f8 }) u+ g' h4 O8 _4 t7 R' a* VDim VOL_PROD_KEY
, s% V2 G+ {/ Y: e& s+ L* @if Wscript.arguments.count<1 then / v* w* m1 Z- _
VOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ") 0 n+ G. |* [7 h  t& Q' u
if VOL_PROD_KEY="" then
% t8 f+ {# s% {  S8 o- cWscript.quit % @" X' P: Y1 s- H
end if
/ ^/ F, i7 J, |0 w& A; R/ Q+ [else ! J' \: {) h, u$ q3 X
VOL_PROD_KEY = Wscript.arguments.Item(0)
; A9 y# O5 g7 N3 oend if
' H; y; Q. Q' E  }7 M
; {+ Z4 m' s; @' T3 V: Q% m; D: n( EVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
  m  n4 G. |% C" @* Z% ^5 A3 N3 ?* G  n! N& u+ j7 B* z
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
& F; K$ ^# V+ W$ Q# ]( G' ?
) M7 D+ y! d1 |2 _/ @result = Obj.SetProductKey (VOL_PROD_KEY)
, g- S1 {, _; W1 y- w
4 i4 f! n. M) a' }" {* j: G* ~8 gif err = 0 then
; F' s! V0 F6 R* M3 h2 `Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。" : |, R* N+ ^# d/ m9 g
end if
5 Y" p* }8 y+ o' x3 R0 P2 \) t7 Z# Z' N" S/ W# J/ ?
if err <> 0 then
3 i& r+ J  }, l/ RWscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" 7 t, f7 `8 Z. g; K% E
Err.Clear . H2 V. J0 E& w# I+ Q
end if 8 Z& f0 ^: {) ~+ `8 m8 |1 x, m. ]$ i
% b5 J8 ~3 R- x* q
Next

注意:Windows 2003 企业推荐号码:JCGMJ-TC669-KCBG7-HB8X2-FXG7M

TOP

返回列表