这篇文章主要介绍如何实现修改Windows序列号的脚本,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!
修改Windows序列号的脚本
' ' WMI Script - ChangeVLKey.vbs ' ' This script changes the product key on the computer (XP SP1 SP2 2003) ' ' Made by zyling. '*************************************************************************** do ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then VOL_PROD_KEY=InputBox(" 使用说明(OEM版无效):"&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows 的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","Windows XP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ") 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 "您的 Windows CD-KEY 修改成功。请检查系统属性。" end if if err <> 0 then Wscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。" Err.Clear end if next loop
以上是“如何实现修改Windows序列号的脚本”这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注亿速云行业资讯频道!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。