使用说明:将下面的代码复制后保存为 key.vbs ,然后运行--确定即可。
代码
- ON ERROR RESUME NEXT
- Dim VOL_PROD_KEY
- if Wscript.arguments.count<1 then
- VOL_PROD_KEY=InputBox("EvilCat制作evilcat.blogchina.com"&vbCr&vbCr" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr"序列号(OEM版无效,默认版本为 XP VLK):","EvilCat最新序列号自动更换器","CM3HY-26VYW-6JRYC-X66GX-JVY2D")
- 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
原创文章如转载,请注明:转载自IT问答
本文链接地址:http://www.itwenda.com/post/372.html
分享收藏到: