|
- 帖子
- 7765
- 积分
- 21514
- 管庄币
- 9 元
- 注册时间
- 2008-8-20
- 最后登录
- 2016-6-8
|
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号
, l- `' [! `; S. n+ y$ F! q. J5 @( o) ^) p; }
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
. A, K1 o9 F+ y7 v4 c; B" k# M
2 d9 P- R& x5 G5 |9 P主要功能可以修改安装时的序列号. ) R* O, C+ M* f; j8 r4 q" A
$ n( n& f% i, \, M: f& }' A7 J& l6 \
'
, R ?$ Y- F e3 O# m' WMI Script - ChangeVLKey.vbs ' N8 x. `! M+ X6 X& S, v4 k
' 6 I; \0 m# X/ z2 |* m+ n! }
' This script changes the product key on the computer (XP SP1 SP2 2003)
: \6 v3 e/ X+ Z4 u'
`: ?/ z4 M3 i" x' `, ~' Made by zyling. * m8 v8 h# t3 Q6 i0 N! {: d7 Z
'*************************************************************************** . @% j. X, o3 q9 J, ]
* G0 k6 W" Z& Q1 A% L+ P
ON ERROR RESUME NEXT
4 K" R6 r Q* ?; t1 n! A8 O) h, ^4 g* O
Dim VOL_PROD_KEY
" _6 f5 X# A& ]- I) Aif Wscript.arguments.count<1 then
8 T( Z3 t0 j+ _( L2 W2 X2 t- |VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
: {+ ~# f8 U0 R8 w6 B5 gif VOL_PROD_KEY="" then 0 Y/ I; \5 j" d; f4 U
Wscript.quit 0 e% p9 i' A. ^& {/ y
end if
% l6 {/ g1 u2 {. }2 j/ h) K' M/ Y) gelse
) ]! a# R" {, \0 s0 DVOL_PROD_KEY = Wscript.arguments.Item(0)
/ C! w# f9 R) |5 g! y3 uend if # W7 j" n4 x3 e( l) J
# t9 F# o/ C7 S# v/ p2 K a: T- \
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
0 J! g' p# _) R% `' W
7 m' {) Z' Q: N6 L0 R! P+ Nfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") 9 u$ H5 z- L& E5 m _6 V
- `; O7 Z8 d- r" e$ A# [5 mresult = Obj.SetProductKey (VOL_PROD_KEY)
; H9 R7 H% T/ b4 n8 K7 V7 ~
' l: W* @/ ^4 C) }0 u! Iif err = 0 then ) k0 T6 Q6 G! A0 u
Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"
) r& R" i# N h8 l8 Uend if " L, F1 _# [: Y% A# D2 I
% K6 a" W* P0 v* p) x6 X* vif err <> 0 then ; n2 K, D6 T C& n
Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
4 F, c( _. @' ?2 h2 UErr.Clear 9 m$ H# {, \& |! i* [
end if
2 A- o1 E6 P1 h1 P2 f( X2 j$ Q1 M# d% `
Next |
|
发表于 2009-1-8 13:03
|