用vbs实现的XP序列号替换器

时间2024-02-11 09:18:03发布访客分类脚本浏览357

导读：收集整理的这篇文章主要介绍了用vbs实现的XP序列号替换器，觉得挺不错的，现在分享给大家，也给大家做个参考。复制代码代码如下:ON ERROR RESUME NEXT Dim VOL...

收集整理的这篇文章主要介绍了用vbs实现的XP序列号替换器，觉得挺不错的，现在分享给大家，也给大家做个参考。复制代码代码如下:
ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count1 then
   VOL_PROD_KEY=InputBox("本程序能帮助您更换 WindowsXP 的序列号。"& vbCr& vbCr& "序列号由您自己寻找并输入。下面列出的不一定是您当前用的序列号，仅作格式参考。"& vbCr& vbCr& "请输入新的序列号：","Windowsxp序列号更换器  by donghai","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 "修改成功。请点击附带的网址到微软网站进行验证。祝您好运！"
   end if

   if err > 0 then
      Wscript.echo "替换失败！您输入的序列号有误。"
      Err.Clear
   end if

Next

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！

若转载请注明出处：用vbs实现的XP序列号替换器
本文地址： https://pptw.com/jishu/609609.html

用VBS实现的批量gb2312转utf-8,支持拖动 VBS可以做什么的简单说明