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

修改Windows 2003序列号

修改Windows 2003序列号

如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号
: q  {7 F+ d" g4 v& ]% D
* e6 t: {. [! p新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
, q; S% @2 N0 B/ N  `9 }8 E# Y
; @1 D# c- L. }6 T9 u主要功能可以修改安装时的序列号.
5 \5 e9 o, @9 f( r) Y2 ~! B5 G* b2 f8 {
'  
+ t) p* t5 U5 }/ u$ O% X% [4 X' WMI Script - ChangeVLKey.vbs 7 y, q# M- H4 a1 H
' ( g# x8 A( R; d
' This script changes the product key on the computer (XP SP1 SP2 2003) / ?' z* D5 {  [' _' d
' : w/ S5 f1 g8 o1 ?9 G
' Made by zyling.
9 Q7 x- B/ }4 P. A# ['***************************************************************************
7 |2 G# P$ N& M1 l( G" e. G+ S
! o7 t/ |, o. {$ D; Y# v1 wON ERROR RESUME NEXT 0 K! {  V- D9 K% x* H
3 N9 Q% T. D5 d
Dim VOL_PROD_KEY
# Y3 e+ `& O/ p4 A0 ~7 mif Wscript.arguments.count<1 then * F4 v& {5 {8 T8 J* R
VOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
. h- l: A8 w' ~! y- a2 aif VOL_PROD_KEY="" then
; G2 Y+ A  O4 N- vWscript.quit ! _) H1 c: y, a
end if
9 y4 Z! B, Z! f: u; Relse
5 [1 F% W5 ?, d0 |" \/ ^+ BVOL_PROD_KEY = Wscript.arguments.Item(0)
- W# Y+ h+ h8 d1 K2 _7 Z5 c) Y6 Kend if
! z1 D$ B% L+ {! }$ I# f; m$ I9 G; ~1 B; |& \! ^( q1 X: ]
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
" T8 w6 x" T% @1 K( j6 A+ Q
0 Y* l6 q5 |. e- e7 u$ C& `for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") " v& K( Y" p' z! s

% L$ u) ^  j* ?6 q: [( ]result = Obj.SetProductKey (VOL_PROD_KEY)
7 \2 [0 b  I" n- T6 t+ D" S1 K1 E) I
if err = 0 then
& ~  x- u) A, Y8 B# r8 U) O. E; l( JWscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。" 2 W( f+ Y/ n4 J
end if & Y4 o; }- z" U! d3 `, e8 S
& y# G& u" W0 R  P7 h% a
if err <> 0 then , O! |' C8 F4 C) _5 n, A9 `
Wscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" , h: [$ ^# z- O& k# G
Err.Clear
$ U5 @2 m+ |$ U7 b  l9 xend if
9 S  w9 K3 ^3 W- e8 J/ m
3 |, M1 ]+ C  d8 B6 ]Next

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

TOP

返回列表