如何更改Windows XP操作系统序列号

出处:天极Blog
本文适用于:
Microsoft Windows XP Professional
Microsoft Windows XP Professional SP1
本文是用于描述如何更改Windows XP中的序列号,你有2个方法来修改在已经安装完毕的Windows XP上更改序列号,一个是使用GUI界面里面的激活向导,一个是使用WMI(Windows Management Instrumentation)来实现的 。
使用激活向导修改
微软强烈建议你在修改之前作一个系统还原点,以免遭受不测 。
1.点击[开始],再点击[运行];
2.输入regedit以后回车打开注册表编辑器;
3.定位到HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsNTCurrent VersionWPAEvents,在右边右键单击OOBETimer,然后选择修改;
4.至少修改一个字节,确定保存 。
5.点击[开始],再点击[运行];
6.输入%systemroot%system32oobemsoobe.exe /a
7.选择通过电话激活以后点击下一步;
8.点击修改序列号;
9.输入新的序列号以后选择更新;
如果退回到前一个画面,那么选择稍后激活,并重新启动;
10.反复5---8步一直到修改成功为止;
11.重新激活 。
12.点击确定 。
13.安装SP1 。
如果你安装SP1以后不能重新启动,那么启动的时候按F8,选择使用[最后一次正确的配置],然后重复以上流程 。
使用脚本
以下有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 "HKLMSOFTWAREMicrosoftWindows NTCurrentVersionWPAEventsOOBETimer" "delete OOBETimer registry value
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
【如何更改Windows XP操作系统序列号】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

推荐阅读