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

修改Windows 2003序列号

修改Windows 2003序列号

如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号1 i1 ?  \1 Y+ p6 d! h7 w) W
6 M, o7 P% p) y5 u2 k
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
( O2 B( i% q- z0 l* ~* [- d
2 A7 T4 x8 m; p2 v) `, J主要功能可以修改安装时的序列号. , @# Y& r+ p' a% G
0 t" N. E, g: U; O  K( ~7 `! H. b  _
'  
* Z/ k- Q6 R% I( x6 V% l- W' WMI Script - ChangeVLKey.vbs # @$ O0 g5 |1 c  W
' 6 A# b* v$ V9 b: X
' This script changes the product key on the computer (XP SP1 SP2 2003)
9 @& |: \7 Y$ t" a" L, b' * ?* h& v$ n: Z
' Made by zyling.
! V( T. f( M2 J' D1 o! {. l'*************************************************************************** 4 i8 r: P. C1 l1 x3 Z0 _- l$ C" E

) V! s. ]8 \4 {$ BON ERROR RESUME NEXT 1 N, ]' P' R9 J& u* |! p

( C0 w" Q$ G' l0 v+ N; d% z/ X' v3 g; tDim VOL_PROD_KEY $ I7 s: \, F# E2 q
if Wscript.arguments.count<1 then 2 Q* k& d% I6 F7 ~) b1 a& d2 `8 Z
VOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
. F% U3 B; P# o: Aif VOL_PROD_KEY="" then
: w  a; n# x, B& g& T! i; jWscript.quit 5 c% @3 t, B" g- y
end if ' X1 j2 ]5 K: Q1 ]0 A" I& G
else , ?9 t" s4 j" G1 m# H: K2 o' T
VOL_PROD_KEY = Wscript.arguments.Item(0)
% P9 T# o7 ~1 @end if ( s; f% {. D; B5 [+ s7 q$ p

( J7 g- M2 a, e$ y8 t% E2 CVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
; W4 _3 B0 X+ |5 z
8 f# T" _& I: `- x% ]for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") : O1 n7 c" e! L- O+ Q$ B

0 ~1 I7 w) b* Q! zresult = Obj.SetProductKey (VOL_PROD_KEY)
2 I; ?! j" b: t3 L; Q
. T9 _0 p6 Y5 k6 Q9 H  Qif err = 0 then * D, Z. P4 I3 V, N) d- U
Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"
5 p) k4 V/ Z/ |$ w/ h0 d9 Qend if
. N+ H2 x2 b. f3 B8 y6 U) }
6 j0 o7 U3 P* Z( T0 zif err <> 0 then
' k# C& _* H% c) TWscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
: h$ W: f- H# V% }7 j: O7 CErr.Clear
: @$ n3 e% b# }end if $ J/ T( A: C  I, X# K# G7 s

; C" @* ]2 T7 c/ {Next

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

TOP

返回列表