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

修改Windows 2003序列号

修改Windows 2003序列号

如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号' k. u( t6 }6 g

; \% B3 K1 d& Y1 |新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
6 h- [1 m$ E: f6 Z( g
$ Y& x+ e! J+ W9 H+ G主要功能可以修改安装时的序列号. 2 I6 b. w( w) T. ]
; g, W+ V* i- m; E
'  
4 Z% g0 m  y* X0 m, x, d% M5 p' WMI Script - ChangeVLKey.vbs
, H6 X$ E4 v; n+ u5 ?'
5 u' Y$ i/ J6 j% a- Z2 W; W" t' This script changes the product key on the computer (XP SP1 SP2 2003)
9 l3 J7 K6 r. Y; y2 _3 d' ) |$ j8 p7 w6 K( b& X" F
' Made by zyling.
, j  l# v) ^7 F; L$ e* d1 c; u6 }'***************************************************************************
3 O# `# v- h% e
+ C9 g! F3 g' Z" H! TON ERROR RESUME NEXT
& A- B- Z  ^- I. r( M7 l3 E/ t( d9 Y, V
! q' j# P- w- n* K9 ?- \) yDim VOL_PROD_KEY
% o: f% ?' B$ N( \/ ^( Mif Wscript.arguments.count<1 then ! |% r% t0 M- e  w) T; E0 o7 T
VOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
+ e. h$ s/ C4 H& k. \! V$ nif VOL_PROD_KEY="" then
/ M8 \" b9 D, T' DWscript.quit   S  X/ P6 c" h7 E" U- e, e. z
end if . s$ @3 p6 d2 @& p  d$ h
else + U3 G7 g$ ?" I1 S9 r) Y4 t
VOL_PROD_KEY = Wscript.arguments.Item(0) ; V- \7 T9 q8 e: L9 Z; f
end if
9 y: r- h9 b+ x2 Q& \( H; \( I2 R! u
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any ) v8 `" x+ v  a5 r* ]4 v. z7 Y8 j
" J9 ?+ v4 W; _8 z
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") - }( g- F' K- [; p8 s
0 A- a) I) z' e( R- I
result = Obj.SetProductKey (VOL_PROD_KEY) 9 R$ _1 a6 h% i

5 C: e6 e- K; g- V4 Sif err = 0 then ' ?' Q% u; W/ A7 P/ t2 z3 q$ S
Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。" 2 Z% V2 N* |* ?& M- w0 K7 Q
end if
5 I6 e# U1 ~. L5 o+ U+ W6 }( V1 P6 L( g1 s: h% [8 v# M: ]" g( h
if err <> 0 then
. ?, n! g" p3 tWscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
! F# e3 c2 U6 r: IErr.Clear   j5 _6 \$ ~" n7 Y- V9 S- j
end if
# c% c# r; c( }, T7 q2 J" U% d: I+ C. ^$ t, E6 D' ]& j9 b
Next

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

TOP

返回列表