我很久之前重装过系统，XP的，是ghost SP3 的，昨天装一个模考软件之前，要求先装一个XP驱动，结果后来开机就显示需要激活，是 否都开不了机，我快崩溃了！我开机时，显示什么ghost key 倒计时几秒的，那个有用么？我重要东西全在F盘，之前用ghost重装系统时桌面快捷啥的也在D盘的，需要重装系统的光盘，还是那个ghost key就够了？
现在开不了机，很多重要文件都操作不了！！！急！！！！！
把下面的代码复制到记事本中，并把扩展名改为.vbs ，保存之后就可以使用啦。
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("本程序能帮助您更换 WindowsXP 的序列号。"&vbCr&vbCr&"序列号由您自己寻找并输入。下面列出的不一定是您当前用的序列号，仅作格式参考。"&vbCr&vbCr&"请输入新的序列号：","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 "修改成功。验证是否正版的方法是：打开“我的电脑”窗口，在“帮助”菜单中选取“这份windows合法吗”。祝您好运！"
end if
if err <> 0 then
Wscript.echo "替换失败！您输入的序列号有误。"
Err.Clear
end if
Next
提醒：你先试一下？追问
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("本程序能帮助您更换 WindowsXP 的序列号。"&vbCr&vbCr&"序列号由您自己寻找并输入。下面列出的不一定是您当前用的序列号，仅作格式参考。"&vbCr&vbCr&"请输入新的序列号：","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 "修改成功。验证是否正版的方法是：打开“我的电脑”窗口，在“帮助”菜单中选取“这份windows合法吗”。祝您好运！"
end if
if err <> 0 then
Wscript.echo "替换失败！您输入的序列号有误。"
Err.Clear
end if
Next
提醒：你先试一下？追问
我自己不敢弄，之前是朋友帮忙重装系统的，你这个是针对我这个XP版本么？我是因为昨天装了一个变态补丁后，变成这样的
追答不行你在去你朋友那里从新做个系统，看看怎么样？
问题是正对这个？系统是xp sp3的，现在一打开电脑就显示这个，点是或否都不能进去。
我是从“ON ERROR”开始一直复制到你提醒上面的NEXT么？还是中间的说明要我自己去掉的？还有序列号我也不知道是多少
追答说明你自己去掉？
温馨提示：答案为网友推荐，仅供参考
