[Boa Soft]

1. Сделать бекап.
2. Из Легального дистрибутива взять следующие файлы:

dpcdll.dll
oembios.bin
OEMBIOS.CAT
oembios.dat
oembios.sig
pidgen.dll

(предварительно распаковав)
2. В безопасном режиме заместить на них файлы системы.
3. Исправить значение в ветке реестра:

Код:

[HKEY_LOCAL_MACHINE\SYSTEM\Setup\Pid]
"Pid"="XXXXXXXX"

, посмотрев его на любой системе с легальной лицензией того же типа и sp.

4. Сменить ключик.

Код:

'
' Сценарий WMI - ChangeVLKey.vbs
'
' Этот сценарий меняет ключ продукта на компьютере
'
'***************************************************************************

ON ERROR RESUME NEXT
Dim VOL_PROD_KEY

if Wscript.arguments.count<1 then
   VOL_PROD_KEY = InputBox("Введите новый ключь продукта" & Chr(13) & "В формате:" & Chr(13) & "XXXX-XXXX-XXXX-XXXX-XXXX", "CD KEY Changer")
else
   VOL_PROD_KEY = Wscript.arguments.Item(0)
end if

VOL_PROD_KEY = Replace(VOL_PROD_KEY," ","")
 if VOL_PROD_KEY = "" then
   WScript.Echo "Ключь продукта не может быть пустым!" 
   wscript.Quit
 end if		     


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

   WScript.echo Obj.ProductID

Next

При первой перезагрузке быть готовым к тому, что система попросит активацию сразу.

Проверялось на системах
XP OEM Pro GOLD + Sp2 > XP OEM Pro SP2
XP VL Pro > XP OEM Pro SP2

На сервере не проверял, но сработать должно. Посему смотреть п.1