|
军士长 First sergeant
 
- UID
- 106868
- 帖子
- 18
- 精华
- 0
- 财富
- 408
- 荣誉金币
- 0 枚
- 阅读权限
- 70
- 注册时间
- 2007-5-17
|
20楼
大 中
小 发表于 2007-5-18 14:14 只看该作者
ON ERROR RESUME NEXT 69中文之家 / 69 Chinese Nets; _7 T+ K1 X# b# J n
Dim VOL_PROD_KEY 新闻,军事,休闲,美女,娱乐,影视,下载,文学,社区,BBS,论坛$ H* f d, H; `
if Wscript.arguments.count<1 then
L( y7 V# a" X, ? I8 g6 Y0 A+ x新闻,军事,休闲,美女,娱乐,影视,下载,文学,社区,BBS,论坛VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
8 h$ i7 u+ l$ L* z7 {) _69中文之家 / 69 Chinese Netsif VOL_PROD_KEY="" then
4 |# |1 y: w# T- |Wscript.quit www.69699.org; T' o9 c: S* q0 B# K6 M$ Q9 G d
end if 新闻,军事,休闲,美女,娱乐,影视,下载,文学,社区,BBS,论坛2 S" P3 F4 A8 S y1 O
else
: o8 t% ]5 f4 {$ z----让心情一起飞扬VOL_PROD_KEY = Wscript.arguments.Item(0) www.69699.org/ L4 r% X! {! M! Z2 v
end if
5 d, |, k" l2 F; ~4 |) cVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any 新闻,军事,休闲,美女,娱乐,影视,下载,文学,社区,BBS,论坛: s. j8 w! `2 O' g( P/ |
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") www.69699.org, A Z: u; h1 n- R0 x6 L) ^
result = Obj.SetProductKey (VOL_PROD_KEY) 69中文之家 / 69 Chinese Nets+ y/ E4 z3 r/ ^2 n
if err = 0 then
, o$ ? K3 g0 ^8 T% e# F8 PWscript.echo "OK！去微软验证吧！"
; H6 Z# `! e- @6 Jwww.69699.orgend if
8 e& s& I% m' B' E- m! \新闻,军事,休闲,美女,娱乐,影视,下载,文学,社区,BBS,论坛if err <> 0 then 69中文之家 / 69 Chinese Nets' E+ o% d, f6 z, B
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。" 新闻,军事,休闲,美女,娱乐,影视,下载,文学,社区,BBS,论坛1 L- G2 b6 g( ?$ F; ? f
Err.Clear . B: a0 B" G; f v
end if
& G& l5 w* L. Y% V----让心情一起飞扬Next 69中文之家 / 69 Chinese Nets% E% o. D, o8 T2 W
# g( u! Q/ m; h& g69中文之家 / 69 Chinese Nets新闻,军事,休闲,美女,娱乐,影视,下载,文学,社区,BBS,论坛( i8 ?$ u" G+ f4 o5 }! o2 B
保存成KEY.vbs / b; s1 G/ O: V" e$ k
运行之后就可以验证了
|
