[求助]：有谁知道WinXP的安装序列号存在注册表何处？谢谢！！

李军

有谁知道WinXP的安装序列号存在注册表何处？谢谢！！

monk

无法从注册表查到xp的序列号，但可以用专门的软件查找……

http://www.webtree.ca/windowsxp/tools/ViewKeyXP.exe

hy999

这个软件还真不错，谢谢 monk！

dx5678

恩,确实不错,谢谢monk

李军

好是好，但不能确定注册表中的具体位置！有没有更改WinXP密鈅的工具？

longcable

用过了，显示出了XP注册码，但无法在注册表中定位，请高手指点。

monk

对上述网友的问题解答如下：

    虽然windows 9X 和 windows 2000能够通过注册表查找到系统的安装序列号，但windows xp的序列号你无法从注册表中找到的！

    修改系统序列号的方法有以下几种，谨供大家参考——


■修改注册表法（参考天极网）

    1、在“开始-运行”的对话框中填入“regedit”，按“确定”打开注册表编辑器。在左窗口中找到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion，在WPAEvents内将“OOBETimer”的最后两个数值删除。

    2、在“开始-运行”对话框中填入“oobe/msoobe /a”进入“启动画面”，选择第二项（电话启动）再进入下一个视窗，选择“change product key”来修改序列号及输入新的序列号。完成后点击“update”进行更新及选“remind me later”项。

    3、重新启动电脑后，再在“开始-运行”的对话框中填入“oobe/msoobe /a”，进入（启动画面）时应该显示已经启动。


■使用脚本修改

    以下有2个脚本，一个是用于没有安装SP1的WinXP，一个是用于已经安装了SP1的WinXP。

    下面是用于已经安装了SP1的WinXP的脚本(ChangeVLKeySp1.vbs)，使用方法同没有安装SP1的WinXP的脚本，一起放在最后一段里面（例子）。

'
' WMI Script - ChangeVLKeySp1.vbs
'
' Windows XP With SP1
'
' This script changes the product key on the computer
'
'ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
Wscript.echo "Script can't run without VolumeProductKey argument"
Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
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 Err.Description, "0x" & Hex(Err.Number)
Err.Clear
end if

Next


    下面的脚本是用于没有安装SP1的WinXP(ChangeVLKey2600.vbs)。

'
' WMI Script - ChangeVLKey2600.vbs
'
' This script changes the product key on the computer
'ON ERROR RESUME NEXT

if Wscript.arguments.count<1 then
Wscript.echo "Script can't run without VolumeProductKey argument"
Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents\OOBETimer" 'delete OOBETimer registry value
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

result = Obj.SetProductKey (VOL_PROD_KEY)

if err <> 0 then
WScript.Echo Err.Description, "0x" & Hex(Err.Number)
Err.Clear
end if

Next


    例子：脚本使用方法
    以下的例子描述了在命令行里面如何使用VBS脚本程序。

1.点击[开始]，然后点击[运行]；
2.输入C:\ChangeVLKeySp1.vbs ABCDE-ABCDE-ABCDE-ABCDE-ABCDE-ABCDE
假设 ChangeVLKeySp1.vbs 放在C:根目录下
ABCDE-ABCDE-ABCDE-ABCDE-ABCDE-ABCDE 是新的序列号
以上 ChangeVLKeySp1.vbs 适用于已经安装了SP1的WinXP，没有安装SP1的 ChangeVLKey2600.vbs 的使用方法同样是这样的。
3.然后点击[确定]即可。


■使用软件修改

    请参考我的这个帖子——
http://www.xdcad.net/forum/showthread.php?s=&threadid=216827