用VBS脚本实现更换Windows Xp序列号的代码
程序员文章站
2022-07-04 20:48:47
on error resume next dim vol_prod_key if wscript.arguments.co...
on error resume next
dim vol_prod_key
if wscript.arguments.count<1 then
vol_prod_key =inputbox("使用说明:"&vbcr&vbcr&" 本程序将自动替换你当前 windows 的序列号,通过微软验证完全正版。"&vbcr&vbcr&"序列号(oem版无效,默认版本为 xp vlk):"& vbcr&vbcr&"输入序列号(默认为 xp vlk):","windows xp/2003 序列号更换工具","dg8fv- b9tky-frt9j-6crcc-xpq4g")
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 "您的 windows cd-key 修改成功。请检查系统属性。"
end if
if err <> 0 then
wscript.echo "修改失败!请检查输入的 cd-key 是否与当前 windows 版本相匹配。"
err.clear
end if
next
dim vol_prod_key
if wscript.arguments.count<1 then
vol_prod_key =inputbox("使用说明:"&vbcr&vbcr&" 本程序将自动替换你当前 windows 的序列号,通过微软验证完全正版。"&vbcr&vbcr&"序列号(oem版无效,默认版本为 xp vlk):"& vbcr&vbcr&"输入序列号(默认为 xp vlk):","windows xp/2003 序列号更换工具","dg8fv- b9tky-frt9j-6crcc-xpq4g")
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 "您的 windows cd-key 修改成功。请检查系统属性。"
end if
if err <> 0 then
wscript.echo "修改失败!请检查输入的 cd-key 是否与当前 windows 版本相匹配。"
err.clear
end if
next