UC知道又见WGA，微软正版验证，答案都TOOOLD，怎么办？
来源：百度知道 编辑：UC知道 时间：2024/07/04 17:40:34
早就不是这里说的卸载kb892130和kb905474即可：http://blog.csdn.net/csevan/archive/2008/10/16/3086223.aspx;
因为我的XP是SP-3，更新程序早就不是KB89or90系，而是kb95*-97*.
也早就不是四年前大牛们说的，去注册表深处删掉wgalogon再重启删掉什么WgaTray.exe.因为那些东东早就没有了，人家WGA当然也会升级。。。
真是悲痛，工作这么累，什么PWGA
怎么办？谁给个答案，积分虽少，全部奉送!
因为我的XP是SP-3，更新程序早就不是KB89or90系，而是kb95*-97*.
也早就不是四年前大牛们说的，去注册表深处删掉wgalogon再重启删掉什么WgaTray.exe.因为那些东东早就没有了，人家WGA当然也会升级。。。
真是悲痛，工作这么累，什么PWGA
怎么办？谁给个答案，积分虽少，全部奉送!
将以下文字粘贴到记事本保存为*.vbs，双击执行即可，我过了正版验证。
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.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 e