- 在线时间
- 1 小时
- 信用度
- 2122
- 最后登录
- 2015-9-21
- 注册时间
- 2007-3-8
- 精华
- 2
- 阅读权限
- 100
- UID
- 4
|
1楼
发表于 2007-4-18 21:31:36
|
查看: 1915 |
回复: 0
解决windows-xp无法升级的方法！！！（本人已经对多台电脑系统进行了升级）
激活WINDOWS让你成为正版用户
使用方法:
1.把下面的字符完整复制下来 ，建个文本复制进去改成 .vbs
2.完后安装.
3.完后登陆:http://www.microsoft.com/genuine/downloads/Validate.aspx
4.下载微软提供的控件 OK 注册完成。
5.如果不行，再找一个正版序列号更换下面第四行中序列号，再重新制作换号器。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－- 解决windows-xp无法升级的方法！！！（本人已经对多台电脑系统进行了升级）
- 激活WINDOWS让你成为正版用户
- 使用方法:
- 1.把虚线下面的字符完整复制下来 ，建个文本复制进去改成 .vbs
- 2.完后安装.
- 3.完后登陆:http://www.microsoft.com/genuine/downloads/Validate.aspx
- 4.下载微软提供的控件 OK 注册完成。
- 5.如果不行，再找一个正版序列号更换下面第四行中序列号，再重新制作换号器。
- －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
-
- 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 err <> 0 then
- Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
- Err.Clear
- end if
- Next
|
|
QQ空间
腾讯微博
腾讯朋友
转发到微博