出處：天極Blog

本文適用于：

Microsoft Windows XP Professional Microsoft Windows XP Professional SP1

本文是用于描述如何更改Windows XP中的序列號，你有2個方法來修改在已經安裝完畢的Windows XP上更改序列號，一個是使用GUI界面里面的激活向導，一個是使用WMI（Windows Management Instrumentation）來實現(xiàn)的。

使用激活向導修改

微軟強烈建議你在修改之前作一個系統(tǒng)還原點，以免遭受不測。

1.點擊[開始]，再點擊[運行]； 2.輸入regedit以后回車打開注冊表編輯器； 3.定位到HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsNTCurrent VersionWPAEvents，在右邊右鍵單擊OOBETimer，然后選擇修改； 4.至少修改一個字節(jié)，確定保存。 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')

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.然后點擊[確定]即可。