当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 用vbs实现的XP序列号替换器

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

2017年12月12日  | 移动技术网IT编程  | 我要评论

cctv4在线直播观看,新浦区团委书记周静,最好的seo学习网站

复制代码 代码如下:

on error resume next

dim vol_prod_key
if wscript.arguments.count<1 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 


您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网