[转帖] 修改操作系统CD-KEY的 VBS

‘修改操作系统CD-KEY的 VBS, 我的WinXp Sp2 和Server2003EESp1测试通过.8 O7 D" r- B8 p- m% p
ON ERROR RESUME NEXT
$ E/ s) Z: b) W& T% x* M# d/ PDim VOL_PROD_KEY
" ], Z4 h' x- |* |8 ]5 ^if Wscript.arguments.count<1 then! O p" r3 P/ X% g! m, w/ X
VOL_PROD_KEY=InputBox("使用说明："&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)："&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows XP/2003 序列号更换工具","DG8FV-B9TKY-FRT9J-6CRCC-XPQ4G")6 B* r! ?" j. n9 }+ n
if VOL_PROD_KEY="" then
* L* ^( N# u/ i. O7 V1 `Wscript.quit- B5 W9 v2 E* B
end if
7 }. D; \; Z6 n' L4 J9 a+ p/ g' \else' I0 P% T6 F$ o0 C
VOL_PROD_KEY = Wscript.arguments.Item(0)
: p" ~# x9 g- S3 v* p* cend if% _/ v& d+ X# h0 N
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any7 [# x2 G( x1 m' H( p
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")( V' p+ \+ f# w
result = Obj.SetProductKey (VOL_PROD_KEY)$ `( q% O. Z5 D3 D
if err = 0 then+ E, d# T+ @, H
Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"
7 M) N# m6 U. b/ S) \end if
* l. X( u# J3 C! y5 W$ h ]if err <> 0 then# P2 @6 ?- v2 l, l4 u; k8 y
Wscript.echo "修改失败！请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"
7 o" L8 D) A8 o5 a) QErr.Clear
+ B) ?% H1 _ ?end if
X2 o& {. l" o; UNext
" r. k9 m) d7 G$ Z[附:通过最新WinXP Sp2 上网认证的几只Cdk,因为2006年3月16号MS改了认证方式,所有盗版XP都不能UPD,一切2006年3月16号公开的一切"方法"全部失效,唯一能UP的只有换正版CDK]
- ]/ ^- I4 u4 x l; R$ z; UCM3HY-26VYW-6JRYC-X66GX-JVY2D
+ W) w) m7 V* D) ]5 y) T6 ^DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ x( j- X! f7 j5 L s) m9 f" Y6 t
F4297-RCWJP-P482C-YY23Y-XH8W3
- Y) P4 K( w* S5 oHH7VV-6P3G9-82TWK-QKJJ3-MXR96
1 A l) Q. C% \3 }+ ^HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT
+ R8 c- G5 E5 y7 E R新增俩组：4 f5 p# p- v9 F
QC986-27D34-6M3TY-JJXP9-TBGMD
) H4 X) c6 e) e; I. IMRX3F-47B9T-2487J-KWKMF-RPWBY : L9 X* ~1 `' V2 i0 {' T( f
序列号有时效性,有可能不久就被MS拉到黑名单中,3月20更升了一次序列号暂时还能用]