关于正版验证问题 急急急

来源：百度知道 编辑：UC知道 时间：2024/06/24 00:31:58
我的电脑 是 XP 副本 人家用张用过的然后又给我重装的
今天升好 PLAYER11 说是副本 无法通过验证 希望大家给个什么东西
帮帮忙

验证WINDOWS正版找我。

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox(" ◆夜幕之影◆制作 xhyang125.blog.xunlei.com"&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 "替换失败！输入