用vbs实现的XP序列号替换器
程序员文章站
2022-07-04 20:33:36
复制代码 代码如下:on error resume next dim vol_prod_key if wscript.ar...
复制代码 代码如下:
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
上一篇: 实现winrar密码破解的vbs代码
下一篇: 伸手向我示好