千家信息网

如何实现修改Windows序列号的脚本

发表于:2024-11-22 作者:千家信息网编辑
千家信息网最后更新 2024年11月22日,这篇文章主要介绍如何实现修改Windows序列号的脚本,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!修改Windows序列号的脚本'' WMI Script - ChangeV
千家信息网最后更新 2024年11月22日如何实现修改Windows序列号的脚本

这篇文章主要介绍如何实现修改Windows序列号的脚本,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!

修改Windows序列号的脚本

'' WMI Script - ChangeVLKey.vbs'' This script changes the product key on the computer (XP SP1 SP2 2003)'' Made by zyling.'***************************************************************************doON ERROR RESUME NEXTDim VOL_PROD_KEYif Wscript.arguments.count<1 thenVOL_PROD_KEY=InputBox(" 使用说明(OEM版无效):"&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows 的序列号,复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK):","Windows XP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")if VOL_PROD_KEY="" thenWscript.quitend ifelseVOL_PROD_KEY = Wscript.arguments.Item(0)end ifVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if anyfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")result = Obj.SetProductKey (VOL_PROD_KEY)if err = 0 thenWscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"end ifif err <> 0 thenWscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"Err.Clearend ifnextloop

以上是"如何实现修改Windows序列号的脚本"这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注行业资讯频道!

0