我的系统xp现在已经无法升级,提示未通过正版验证.
on error resume next dim vol_prod_key if wscript.arguments.count<1 then vol_prod_key=inputbox("powered by "&vbcr&vbcr&" 本程序将自动替换你当前 windows 的序列号,通过微软验证完全正版。"&vbcr&vbcr&"序列号(oem版无效,默认版本为 xp vlk):","windows xp序列号自动更换器","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 "ok!去微软验证吧!" end if if err <> 0 then wscript.echo "替换失败!输入的 cd-key 与当前的版本不匹配。" err.clear end if next 复制粘到记事本上然后另存为vbs格式的文件!双击就行了! 20210311