Изменение ключа Windows

[pashtetoff]

Товарищи! Помогите решить следующую проблему:

Есть машина Compaq с наклейкой от Win2k Pro SP4 Ru (OEM). На ней стоит система Win2k Pro с активированной службой терминалов, но данные на наклейке и в системе отличаются. Может кто знает как изменить ProductKey в системе или хотябы где она хранит ключ активации и как его там подменить? Машина работает сервером, так что переустановка не подходит.

Заранее благодарен.

Пишеш такой скрипт

-GetXPKey.vbs----
Set WshShell = WScript.CreateObject("WScript.Shell")
strDigitalProductId="HKLM\SOFTWARE\Microsoft\Windo ws NT\CurrentVersion\DigitalProductId"
'strOffXPRU="HKLM\SOFTWARE\Microsoft\Office\10.0\R egistration\{91110419-6000-11D3-8CFE-0050048383C9}\DigitalProductId"

strXPKey=GetKey(WshShell.RegRead(strDigitalProduct Id))
'strOffXPRUKey=GetKey(WshShell.RegRead(strOffXPRU) )

'CopytoClipboard
set ie=CreateObject("internetExplorer.application")
ie.navigate "about:blank"
do until ie.readystate=4: wscript.sleep 1: loop
ie.document.parentwindow.clipboardData.setData "Text", strXPKey


MsgBox "WinXP:"&strXPKey&chr(13)&_
"key in clipboard"
' "OffXP:"&strOffXPRUKey

Function GetKey(rpk)

Const rpkOffset=52:i=28
szPossibleChars="BCDFGHJKMPQRTVWXY2346789"

Do 'Rep1
dwAccumulator=0 : j=14
Do
dwAccumulator=dwAccumulator*256
dwAccumulator=rpk(j+rpkOffset)+dwAccumulator
rpk(j+rpkOffset)=(dwAccumulator\24) and 255
dwAccumulator=dwAccumulator Mod 24
j=j-1
Loop While j>=0
i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1 )&szProductKey
if (((29-i) Mod 6)=0) and (i<>-1) then
i=i-1 : szProductKey="-"&szProductKey
End If
Loop While i>=0 'Goto Rep1

GetKey=szProductKey
End Function
-----

Сохраняеш его как GetXPKey.vbs
для смены ключа в 2K используем sysprep.exe от MS

запускать так <win2K/Xp CDROM>:\Support\Tools\Deploy.cab/sysprep.exe

Читать Sreadme.doc в том же каталоге.