Серійний номер Вінди

[Zheny@]

Сабж.

Є Н-на кість компів на яких стоїть вінда. Звичайнісінька скачана з інета ламана крякана - відлагоджена зі всіма прогами і т.д.

також є Н-на к-сть Ліцензійних Віндовсів .

Необхідно вбити в уже поставлену Вінду новий серійник - ну відповідно зареєструвати чи активувати через нет.

(щоб не переставляти всі налагоджені проги і т.д.)

Якщо хтось стикався із подібним - прошу надати пораду.

Якщо БОЯН - тицьніть носом у відповідний топік.

Ну і порад типу "спобуй, а вдруг поможе!" - теж не варто давати.

Буду вдячний *beer* та *+*

[SunSeth]

ProduKey v.1.0

ProduKey - крошечная, бесплатная утилита, которая отображает ProductID и серийные ключи для MS-Office, Windows, Exchange Server и SQL Server, установленных на вашем компьютере. Данная программка может быть полезна, если вы потеряли свой CD-ключ, и вам надо переустановить какой-то из компонентов или ОС целиком.

Прога http://www.nirsoft.net/utils/produkey.zip (З5 Кб)

[keepo]

1. http://www.microsoft.com/genuine/selfhelp/...structions.aspx - якщо не пробував і знаєш англійську (приблуда від мягких)

1.1 як варіант, почитати тут

2. RockXP, відключивши файрвол і антивірус. можливі варіанти несумісності твоїх ключів і вінди

3. взято тут

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

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

ЗІ кожен з варіантів робочий, тільки от для різних грабель