解决windows-xp无法升级的方法！！！

uynetwork

解决windows-xp无法升级的方法！！！（本人已经对多台电脑系统进行了升级）

激活WINDOWS让你成为正版用户
使用方法:
1.把下面的字符完整复制下来 ，建个文本复制进去改成 .vbs
2.完后安装.
3.完后登陆:http://www.microsoft.com/genuine/downloads/Validate.aspx
4.下载微软提供的控件 OK 注册完成。
5.如果不行，再找一个正版序列号更换下面第四行中序列号，再重新制作换号器。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

1. 解决windows-xp无法升级的方法！！！（本人已经对多台电脑系统进行了升级）
   
2. 
   
3. 激活WINDOWS让你成为正版用户
   
4. 使用方法:
   
5. 1.把虚线下面的字符完整复制下来 ，建个文本复制进去改成 .vbs
   
6. 2.完后安装.
   
7. 3.完后登陆:http://www.microsoft.com/genuine/downloads/Validate.aspx
   
8. 4.下载微软提供的控件 OK 注册完成。
   
9. 5.如果不行，再找一个正版序列号更换下面第四行中序列号，再重新制作换号器。
   
10. －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
    
11.    
    
12. ON ERROR RESUME NEXT
    
13. Dim VOL_PROD_KEY
    
14. if Wscript.arguments.count<1 then
    
15. VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
    
16. if VOL_PROD_KEY="" then
    
17. Wscript.quit
    
18. end if
    
19. else
    
20. VOL_PROD_KEY = Wscript.arguments.Item(0)
    
21. end if
    
22. VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
    
23. for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
    
24. result = Obj.SetProductKey (VOL_PROD_KEY)
    
25. if err = 0 then
    
26. Wscript.echo "OK！去微软验证吧！"
    
27. end if
    
28. if err <> 0 then
    
29. Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
    
30. Err.Clear
    
31. end if
    
32. Next

复制代码