|
|
|
把此段代码保存为*.vbs,运行后输入正版序列号,可过任何微软验证,很简单
2 K. s/ r8 a! ]) d1 A/ A'
3 C' G [$ g, e6 G: v4 M8 X: u' WMI Script - ChangeVLKey.vbs
; y4 K/ T( t/ o'
9 z E) A) t% ] N7 F6 j* N' This script changes the product key on the computer (XP SP1 SP2 2003). H! N3 Y8 M2 K3 q5 u0 ?
'9 V! n6 x* i+ T% T2 ^
' Made by ythggyth.
. z/ R O* D/ ^'***************************************************************************
2 D. F9 ?7 K& O) M" s- x2 F# q6 x/ `* j7 n+ v- K9 ^4 U
ON ERROR RESUME NEXT
5 J/ {! k; z) p" [: ~
3 Y0 U2 D9 o: |0 z" DDim VOL_PROD_KEY& E2 l0 B0 d/ f* b* F' R+ A# s
if Wscript.arguments.count<1 then
, n7 b/ Q; i6 h) z# K4 N- ZVOL_PROD_KEY=InputBox("使用说明(OEM版无效):"&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请选择一个微软授权正版Windows 的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","Windows序列号更换工具","在此输入序列号")
& b1 d% v2 {3 p) H& j" _( [if VOL_PROD_KEY="" then( v% r0 q; @6 ]7 W
Wscript.quit
& D6 [& X; ` A+ w6 Zend if
2 b* [; {, [/ B% a- ^6 e# Qelse
; g8 Y; r+ h5 s, j% LVOL_PROD_KEY = Wscript.arguments.Item(0)3 u1 e1 [/ w! {5 ]/ m1 k) W6 L' A; A
end if
8 x% Z8 f' ~( [( [# H( g% f5 D! r2 M2 i( O4 A' D5 y! q
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any7 N% m- v% ~) X# p: q8 r
) t1 ]3 _0 Q4 D! Kfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")0 u/ n) C9 X! q
% ?; h( X5 Y i6 B4 o$ j {# Qresult = Obj.SetProductKey (VOL_PROD_KEY)( v. _/ B3 s* R% r" d* r8 n5 |
. N T* h8 ?# a6 |6 F. e
if err = 0 then& v" p/ t& F, H, k3 Q% I
Wscript.echo "序列号改完啦!。看一下系统属性。"
3 X: X2 _8 o7 T; h0 \8 ^5 vend if
! \! B) I. _6 n) I
! b! u. G2 R8 rif err <> 0 then* B+ N* b n4 V0 F+ Q) P
Wscript.echo "不对!你把序列号弄错了。"; m* @: P- U7 m: q9 U8 m" [8 _
Err.Clear
. U8 j2 \6 u# I8 H, ?0 P9 e$ X, Mend if1 g6 k( ^# v3 [2 a" S
: p8 u# B3 q7 X! s- G+ I" A% ~5 K9 [Next 5 @! q5 {& U7 ^; \
6 Y8 o0 h0 d/ g% }) b y& R2 b
Windows XP Pro SP2 VLK 微软授权正版序列号
8 |" S2 }: Y9 gHH7VV-6P3G9-82TWK-QKJJ3-MXR96 640
5 x7 R$ Q+ Y1 q+ n R ~6 X; LF4297-RCWJP-P482C-YY23Y-XH8W3 640
5 `# \* k3 k5 {" N/ fMRX3F-47B9T-2487J-KWKMF-RPWBY 640$ d+ y2 I7 I' i; E
QC986-27D34-6M3TY-JJXP9-TBGMD 640 |
|