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

修改Windows 2003序列号

修改Windows 2003序列号

如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号/ l, Y7 i+ Q! a/ `, k' Z5 B- l4 o9 e
; d  B; R- e7 r* O
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
3 T# y2 G6 W0 V
6 f. A+ b* {" g8 B主要功能可以修改安装时的序列号.
; `5 O# k, K2 r6 J* Y. J
1 g% ~9 x( a  P* D; c'  
8 i6 Q9 g( r& T; J* F6 s! C; f' WMI Script - ChangeVLKey.vbs / v1 K/ b8 L; @1 F1 n+ D8 a
'
: k0 ^, x+ o. W: b# C' This script changes the product key on the computer (XP SP1 SP2 2003) ( t' `* s: C: u0 M3 s: X2 g* Q% X
' , R0 h/ p$ I% ~" @! x5 u
' Made by zyling. 0 G' v7 S5 Y6 r6 k# j
'*************************************************************************** " e0 s7 E/ _* R% J- K1 Q% M

& b- P% q8 G# u0 Y  FON ERROR RESUME NEXT ; K6 E& Z1 u3 a+ H% \1 _
; |1 j6 ~$ x  X$ H
Dim VOL_PROD_KEY
7 y+ T4 n$ X' tif Wscript.arguments.count<1 then $ i  t% W! k1 N; c; A
VOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
6 P2 f4 v8 n+ t7 P! y; Bif VOL_PROD_KEY="" then 0 n$ B) i% T  s1 n/ P$ e8 ^
Wscript.quit 3 v. b; G# b3 p1 L
end if 4 y* G1 l/ E; a
else
% S! u9 D4 G8 }2 }7 H+ c8 A$ WVOL_PROD_KEY = Wscript.arguments.Item(0)
/ R2 i( h7 o8 O, Wend if 9 e' {! l: s- G

( E% U: _+ g9 b  p& LVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
" B  u8 l* A: U6 N9 z  W  F' @% G% G: e+ M. D/ a9 C
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") # G, R  ^! }7 g' c
' W: N0 V9 o! l% p( t  X
result = Obj.SetProductKey (VOL_PROD_KEY) * d3 d! J3 Y  }2 r: S+ J+ `

# t  G/ H' J% f. g% u# Xif err = 0 then
5 f: K4 A+ j: d% V  Y+ ]+ X6 ~0 @. O) RWscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。" 9 t6 q2 L/ C. o
end if 1 [0 Y- q% f$ q% z) V: F8 U
, R7 e* p  e* T/ v
if err <> 0 then
  f- c3 }, w6 r" o7 c' R$ a9 uWscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" 8 k, C+ ]8 f! h1 R- s' M+ _3 {
Err.Clear
& d0 d: }, [: s# U9 b1 n8 P# h4 H$ l# z: qend if
+ ^# _3 _! i( V5 r' y+ O+ b8 G- u. R
Next

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

TOP

返回列表