|
- 帖子
- 7765
- 积分
- 21514
- 管庄币
- 9 元
- 注册时间
- 2008-8-20
- 最后登录
- 2016-6-8
|
如果WIN2003升级SP1的时候 因为序列号无法升级的时候 可以用简便的方法修改序列号0 f1 |9 I5 {5 U4 l- R6 f
! d4 @1 J4 ^8 w0 |2 q/ l2 W
新建立一个文本内容如下修改扩展名:Windows序列号修改.VBS
; P% T, o) G4 j2 j4 k* C. j) e; i/ G7 T2 ?& [
主要功能可以修改安装时的序列号.
D7 I( J ~# E, z7 j \4 j G9 B8 y' m2 Z3 o; y5 x* Q' J
' " k* R# X* q+ e$ y$ Q7 ~1 ?
' WMI Script - ChangeVLKey.vbs ; }9 S2 t! n5 Z
'
1 O* h: V$ @( ?# D' This script changes the product key on the computer (XP SP1 SP2 2003) 7 K5 C2 V5 n- a' U% X
'
, Q' i" s, J* s5 [3 s6 g& v- {* w' Made by zyling.
" t c- w3 P% Q8 R2 N9 N \'*************************************************************************** 9 W3 }* M# ^$ T9 J; r
4 H: T$ x: m% [! J! m% M! R
ON ERROR RESUME NEXT
7 p' e! p; Y4 F3 b4 k M6 |" z
4 Z! A3 R. a; F3 p, p, j+ e% r9 [- bDim VOL_PROD_KEY
$ m6 \/ J p: s/ L2 _if Wscript.arguments.count<1 then & ~! T6 g8 e' D9 z0 o( U
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&"本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","WindowsXP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ") $ D0 b) w, u+ N" ]( r
if VOL_PROD_KEY="" then : k+ x+ g7 L/ N! o1 P. z
Wscript.quit # j- N) P+ C- L$ z2 r2 f8 F
end if
7 u) W( `! Q! {6 V telse
* Z/ K9 n, s( h1 n& _" H2 n OVOL_PROD_KEY = Wscript.arguments.Item(0)
; V* f: {) S6 p% s$ h4 [* l% c: [: F2 cend if . I' F* M' ^/ D: O+ {
2 U; ?! ^, }3 E0 W9 C! a) B7 E6 eVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
' Q. r; F( B4 v5 N5 X9 c( H$ P2 \" \" T
! s+ D1 Z) r) X/ f! E6 }4 ~for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") * d) Y* o: ?' q5 @( l4 d$ _
9 v4 p! r* n0 K
result = Obj.SetProductKey (VOL_PROD_KEY) , n. i3 I! F( Y4 V+ Y+ x" ]
7 H6 }. V: C& Y6 R( P) fif err = 0 then 0 ^/ i2 ], C1 N* A
Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"
; _6 w, E6 D& y5 Z* S3 r# tend if
5 i3 j$ y+ i4 B/ |0 l4 x. E
; p' g' q$ D3 D6 e; u* z* w1 Jif err <> 0 then 8 i1 [/ D0 ~% F1 p2 B& r7 K
Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
6 e" b( z( {9 @% UErr.Clear 1 \( Q' D+ Q+ P8 Y4 u4 t* O3 ]- K! ?+ q& z
end if " x" _3 z+ a: }# ]0 _( H9 C
[4 ?* w6 f$ k% s* ZNext |
|
发表于 2009-1-8 13:03
| 