本文网址:http://bbs.bitscn.com/169661 复制

ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Start change CD-KEY..."&vbCr&vbCr&"(without OEM, only for 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 "Successful!"
end if
if err <> 0 then
Wscript.echo "Sorry, something is wrong."
Err.Clear
end if
Next


这段代码是否可行？

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
把上面的代码保存为.VBS文件，在安全模式下面运行。

我估计现在楼主的电脑根本不能进系统，也就是说不能执行你们写的。

电脑在用户登陆界面就开始询问是否去激活。但是还是可以进入系统，你点击网络激活，在IE中输入C:/就可以进入C盘，但是我问的那段代码确不能激活。
我想了解一下，这个问题和微软最近搞的那个正版验证有没有什么直接的关系可？

个人认为从网上找几个可用的序列号应该最简单吧.而且还方便

我以前找过，从网上找了10多个序列号都不能用

序列号一大堆啊  看清楚自己的版本号
然后搜下  很多的

用pe系统吧
替换哪个正版验证的文件

aaaaaaaaaaaaaaaaaaaaaaa