标题:
修改Windows 2003序列号
[打印本页]
作者:
爱的伤痕
时间:
2009-1-8 13:03
标题:
修改Windows 2003序列号
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号
3 F+ B: Y$ r9 p: ~2 @5 j
$ B0 T$ X/ ^# P ~" b0 C! D9 `: \
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
) N2 C0 H8 ]. w8 K' o. Z0 v
# s& x% N1 H6 N
主要功能可以修改安装时的序列号.
X" a# S3 j5 D4 y
1 Y+ B. A5 ~* H+ I- u5 @
'
' e- \4 n! t; X4 r L
' WMI Script - ChangeVLKey.vbs
: A/ F. a5 D3 K7 v, s7 S
'
4 f) s, H2 ^, l7 n% Z9 h1 @+ W
' This script changes the product key on the computer (XP SP1 SP2 2003)
6 r) E3 B" C1 u' I8 b: O0 R! S2 Q
'
. [7 W6 l5 s: l* k t
' Made by zyling.
# g2 R6 l1 T% n7 j4 F9 \
'***************************************************************************
5 E8 l( T1 e* C1 |
) \, R3 g; u, l; s
ON ERROR RESUME NEXT
: N* m0 p' d, H% ~1 {5 b, O
+ I" S3 K! O. X1 W1 s2 [ M
Dim VOL_PROD_KEY
" F" D5 X5 @! I! E
if Wscript.arguments.count<1 then
! R3 l0 Q6 |) J( z8 V' t: G6 y
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
7 v* ~1 g% `' {, Q( d+ [
if VOL_PROD_KEY="" then
6 }6 `5 x- }( B, o' m1 T( U
Wscript.quit
! ?# W# T5 t" B6 U) X/ Q& A
end if
, z! {0 c& e! K- b5 G$ p" b S
else
0 |+ {" y, q. c. o
VOL_PROD_KEY = Wscript.arguments.Item(0)
0 X! ?% i7 ]7 P& D* L8 v
end if
* S& G" O" c% I* @& J
, o7 V/ W- a( A2 O- H: u% M; Z
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
8 j# V0 P1 @) i$ `
$ e+ |) I5 b4 b- X6 N, H7 A6 I
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
. C6 H g% B! a1 R
. X8 k V" Y$ E2 p/ Q8 N; ?
result = Obj.SetProductKey (VOL_PROD_KEY)
& N. b2 A) p: V* w) e, L6 C
+ `, m ]/ N. L
if err = 0 then
5 s2 l8 a( \! h
Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"
$ _) k) ~: ~' t# q$ E2 b6 Z& f% k
end if
9 G2 |$ {; O, _& \% ^
O( s4 \: _9 Y& w4 k
if err <> 0 then
4 M) r8 g7 H2 e! t" Z$ u
Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
5 Y/ ?6 o+ A" o2 {; f: o. {: [
Err.Clear
/ C& u4 J% R; k8 ^( s. y/ A1 _/ z
end if
+ C; z; h& `1 p {: s
$ }& X; W" R. o2 D+ ^
Next
作者:
爱的伤痕
时间:
2009-1-8 13:03
注意:Windows 2003 企业推荐号码:JCGMJ-TC669-KCBG7-HB8X2-FXG7M
欢迎光临 管庄论坛 guanzhuang.net (http://guanzhuang.net/)
Powered by Discuz! 7.2
