代码可能老了点，但是里面还是有很多可以借鉴的地方，喜欢的朋友可以研究下。3 L; S8 z8 Y' g
（开源）) O' v& r4 B. H$ ^/ @3 l

复制内容到剪贴板

代码:

ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
if VOL_PROD_KEY="" then
Wscript.quit
end if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if

VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)

if err = 0 then
Wscript.echo "OK！去微软验证吧！"
end if
if err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if

Next

, x. w9 ?( h4 |7 b
3 a, A' |9 }4 k" f; ]5 B' A0 U v
弄了半天别人不会使用，下载vbs后解压双击就可以了。很简单
0 _: g% {5 g9 g$ P. B; W9 _/ u7 X# W7 b( F8 |9 R/ W
[ 本帖最后由 benteng302 于 2007-9-11 19:35 编辑 ]

这个脚本是用于替换CdKEY还是避开正版认证的`~?